以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]SQLGroupTableBuilder 统计结果绑定表时报错  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=146620)

--  作者:流水
--  发布时间:2020/2/27 17:14:00
--  [求助]SQLGroupTableBuilder 统计结果绑定表时报错
绑定统计结果时提示我找不到Tables("库存查询_库存");

Dim b As New SQLGroupTableBuilder("表1","入库明细")
Dim tb1 As fxDataSource
b.C
b.AddTable("入库明细","商品代码","商品资料","商品代码") \'添加统计表
b.Groups.AddDef("{入库明细}.商品代码") \'根据产品名称分组
b.Groups.AddDef("商品名称") \'根据产品名称分组
b.Groups.AddDef("规格型号") \'根据产品名称分组
b.Groups.AddDef("生产批次") \'根据产品名称分组
b.Groups.AddDef("有效效期",DateGroupEnum.None) \'根据产品名称分组
b.Groups.AddDef("生产日期",DateGroupEnum.None) \'根据产品名称分组
b.Groups.AddDef("仓库") \'根据产品名称分组
b.Groups.AddDef("单位名称","供货单位") \'根据产品名称分组
b.Totals.AddDef("数量","入库数量") \'对数量进行统计
TB1 = b.BuildDataSource()
Dim c As New SQLGroupTableBuilder("表2","出库明细")
Dim tb2 As fxDataSource
c.C
c.Groups.AddDef("{出库明细}.商品代码") \'根据产品名称分组
c.Groups.AddDef("生产批次") \'根据产品名称分组
c.Groups.AddDef("有效效期",DateGroupEnum.None) \'根据产品名称分组
c.Groups.AddDef("生产日期",DateGroupEnum.None) \'根据产品名称分组
c.Groups.AddDef("仓库") \'根据产品名称分组
c.Groups.AddDef("供货单位") \'根据产品名称分组
c.Totals.AddDef("数量","出库数量") \'对数量进行统计
TB2 = c.BuildDataSource()
Dim nms() As String = {"商品代码","生产批次","有效效期","生产日期","仓库","供货单位"}
TB1.Combine(nms,TB2,nms) \'将销售统计数据组合到进货统计数据
Tables("库存查询_库存").DataSource = TB1 \'将统计结果绑定到Table
With DataTables("库存查询_库存").DataCols  \'用表达式列计算库存数据
    .Add("库存数",Gettype(Integer), "IsNull([入库数量],0) - ISNULL([出库数量],0)")
End With
[此贴子已经被作者于2020/2/27 17:24:21编辑过]

--  作者:流水
--  发布时间:2020/2/27 17:25:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:捕获.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2020/2/27 17:26:00
--  
名称不正确:窗口名称_控件名称

Tables("窗口名称_控件名称").

--  作者:流水
--  发布时间:2020/2/28 9:15:00
--  
我这个不是用 窗口名_控件名 吗图片点击可在新窗口打开查看,我是用这种方法做的,有时候可以,有时候不行,这次就不行;
--  作者:流水
--  发布时间:2020/2/28 9:20:00
--  
改成这样就可以了,现在好了,谢谢
Tables("库存查询_Table1").DataSource = TB1