- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [讨论]这段代码有误吗 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=73337)
-- 发布时间：2015/8/17 16:06:00
-- [讨论]这段代码有误吗
Dim bd1 As New GroupTableBuilder("库存表1",DataTables("入库表"))
Dim dt1 As fxDataSource
bd1.groups.AddDef("样品编号") \'根据型号分组
bd1.Totals.AddDef("入库数量","入库_数量") \'对数量进行统计
bd1.Totals.AddDef("单位","入库_单位")
dt1 = bd1.BuildDataSource()
Dim bd2 As New GroupTableBuilder("库存表2",DataTables("出库表"))
Dim dt2 As fxDataSource
bd2.Groups.AddDef("样品编号") \'根据型号分组
bd2.Totals.AddDef("出库数量","出库_数量") \'对数量进行统计
bd2.Totals.AddDef("单位","出库_单位")
dt2 = bd2.BuildDataSource()
Dim bd3 As New GroupTableBuilder("库存表3",DataTables("退货表"))
Dim dt3 As fxDataSource
bd3.Groups.AddDef("样品编号") \'根据型号分组
bd3.Totals.AddDef("数量","退货_数量") \'对数量进行统计
bd3.Totals.AddDef("单位","退货_单位")
dt3 = bd3.BuildDataSource()
dt1.Combine("样品编号",dt2,"样品编号") \'将销售统计数据组合到进货统计数据
dt1.Combine("样品编号",dt3,"样品编号") \'将退货统计数据组合到进货统计数据
Tables("成品管理_Table5").DataSource = dt1 \'将统计结果绑定到Table
With DataTables("成品管理_Table5").DataCols \'用表达式列计算库存数据
.Add("库存数量",Gettype(Integer), "IsNull([入库_数量],0) - ISNULL([出库_数量],0) - ISNULL([退货_数量],0)")
按照这段代码，应该显示“样品编号”这一列，为何运行时没有出现呢？问题出在哪里呢？
此主题相关图片如下：1212.png
-- 发布时间：2015/8/17 16:21:00
--
呃，这段代码没问题。
出错的话，做例子发上来。
-- 发布时间：2015/8/17 18:55:00
--
我新增加了个窗口，把这段代码复制过去，发现一切正常，对比了一下，不同之处在于，老窗口上面是有tablescontrol控件，共有4页，第一页是入库，第二页是出库，第三页是库存，第四页是退货，新窗口中没有，难道是这个原因吗？请高手指点
-- 发布时间：2015/8/17 18:56:00
--
如果是的，请问如何解决呢？
-- 发布时间：2015/8/17 19:24:00
--
看一下停靠设置，不要停靠，有可能被遮挡了。
还有可能是你有其余的代码隐藏了此列。
-- 发布时间：2015/8/18 9:24:00
--
谢谢大红袍老师