以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  组合统计报错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=186217)

--  作者:毛毛0115
--  发布时间:2023/4/13 17:07:00
--  组合统计报错
以下内容为程序代码:

1 Dim bd1 As New SQLGroupTableBuilder("统计表1", "入库单明细")
2 Dim dt1 As fxDataSource
3 bd1.C
4 bd1.Groups.AddDef("生产批号") \'根据型号分组
5 bd1.Groups.AddDef("仓库")
6 bd1.Groups.AddDef("商品编号")
7 bd1.Groups.AddDef("规格")
8 bd1.Totals.AddDef("数量", "入库") \'对数量进行统计
9 bd1.Groups.AddDef("支数")
10 bd1.Groups.AddDef("生产人")
11 \'bd1.Groups.AddDef("备注")
12 bd1.Filter = " 未领用<>0 "
13 dt1 = bd1.BuildDataSource()
14
15 Dim bd2 As New SQLGroupTableBuilder("统计表2", "出库单明细")
16 Dim dt2 As fxDataSource
17 bd2.C
18 bd2.Groups.AddDef("生产批号") \'根据型号分组
19 bd2.Totals.AddDef("数量", "出库") \'对数量进行统计
20 dt2 = bd2.BuildDataSource()
21
22 dt1.Combine("生产批号", dt2, "生产批号") \'将销售统计数据组合到进货统计数据
23 \'dt1.Show("统计表1") \'显示统计结果
24
25 Tables("生产批号选择_Table1").DataSource = dt1
26 With DataTables("生产批号选择_Table1").DataCols
27 .Add("未领用", GetType(Integer), "IsNull([入库],0)-IsNull([出库],0)")
28 End With
29


这段代码一直报错,请问是哪里错了?


--  作者:毛毛0115
--  发布时间:2023/4/13 17:07:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:360截图20230413165005411.jpg
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2023/4/13 17:16:00
--  
分组的个数要一样,才能组合
--  作者:毛毛0115
--  发布时间:2023/4/14 11:57:00
--  
好的  谢谢