自己写的一段代码 怎么让领料数量按商品批号 统计？我这样写 ，测试时领料不是按批号统计的，而是按名称统计在了一起.
Dim txt As String
txt = e.Form.Controls("ComboBox1").Text
Dim bd1 As New GroupTableBuilder("统计表1",DataTables("采购情况表"), "仓库 = '" & txt & "'")
Dim dt1 As fxDataSource
bd1.Groups.AddDef("品名") '根据型号分组
bd1.Groups.AddDef("药品批号")
bd1.Totals.AddDef("数量","进货_数量") '对数量进行统计
dt1 = bd1.BuildDataSource()
Dim bd2 As New GroupTableBuilder("统计表2",DataTables("医生领料表"),"仓库 = '" & txt & "'")
Dim dt2 As fxDataSource
bd2.Groups.AddDef("品名") '根据型号分组
bd1.Groups.AddDef("批号")
bd2.Totals.AddDef("数量","销售_数量") '对数量进行统计
dt2 = bd2.BuildDataSource()
dt1.Combine("品名",dt2,"品名") '将销售统计数据组合到进货统计数据
Tables("库存提醒_Table1").DataSource = dt1 '将统计结果绑定到Table
With DataTables("库存提醒_Table1").DataCols '用表达式列计算库存数据
.Add("库存_数量",Gettype(Integer), "IsNull([进货_数量],0) - ISNULL([销售_数量],0)")
End With
加好友 
发短信
Post By：2018/6/27 14:51:00 [只看该作者]
