- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 优化代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=67977)
-- 发布时间：2015/5/7 14:41:00
-- 优化代码
Dim sql As String = "sel ect 仓库id,仓库名称,商品条码,商品名称,库存数,总计 From {华南仓} union all sel ect 仓库id,仓库名称,商品条码,商品名称,库存数,总计 From {华北仓} union all sel ect 仓库id,仓库名称,商品条码,商品名称,库存数,总计 From {华东仓}"
Dim g As New CrossTableBuilder("统计表1", SQL,"")
g.HGroups.AddDef("商品条码")
g.HGroups.AddDef("商品名称")
g.VGroups.AddDef("仓库名称")
g.Totals.AddDef("库存数")
g.Totals.AddDef("总计", "金额")
g.filter = "仓库名称 is not null"
g.Build()
MainTable = Tables("统计表1")
此主题相关图片如下：图2.jpg
这串代码的命令执行结果是图1， 我想优化该代码，使其形成效果为图2 。 请问哪位大神可以实现么？？
此主题相关图片如下：图1.jpg
此主题相关图片如下：图1.jpg-- 发布时间：2015/5/7 14:45:00
--
这串代码的命令执行结果是图1， 我想优化该代码，使其形成效果为图2 。 请问哪位大神可以实现么？？
-- 发布时间：2015/5/7 14:50:00
--
把标题给改了即可,你可以在生成表之后再更改.
搞不定就上例子
-- 发布时间：2015/5/7 14:53:00
--
例子
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:沧溟库存.table |
-- 发布时间：2015/5/7 14:53:00
--
Dim sql As String = "sel ect 仓库id,仓库名称,商品条码,商品名称,库存数,总计 From {华南仓} union all sel ect 仓库id,仓库名称,商品条码,商品名称,库存数,总计 From {华北仓} union all sel ect 仓库id,仓库名称,商品条码,商品名称,库存数,总计 From {华东仓}"
Dim g As New CrossTableBuilder("统计表1", SQL,"")
g.HGroups.AddDef("商品条码")
g.HGroups.AddDef("商品名称")
g.VGroups.AddDef("仓库名称", "仓库_{0}")
g.Totals.AddDef("库存数")
g.filter = "仓库名称 is not null"
g.Build()
MainTable = Tables("统计表1")
-- 发布时间：2015/5/7 14:59:00
-- 可以全一点么？？···
想要的是 有各个仓库的库存数，还有合计，如图2， 还有进货价 供货价 正品价 （包括：单价、价值）
-- 发布时间：2015/5/7 15:01:00
--
根据什么得出
-- 发布时间：2015/5/7 15:04:00
--
.
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:沧溟库存.table |
-- 发布时间：2015/5/7 15:05:00
--
根据 华南、华东、华北、华南二仓、西南二仓 表 里面的对应的 商品 的正品价 供货价 和 进货价。
此主题相关图片如下：fc~0k)sklqy$4h@9ms_au49.jpg
-- 发布时间：2015/5/7 15:07:00
--
1、你的几个库存表结构不同
2、你原来的设计大大的有问题，应该只需一个库存表就行了，不需要这么多表，如果企业大的，上百仓库，岂不是要100多个库存表？