Dim g As New GroupTableBuilder("统计表1", DataTables("部品明细"))
Dim dt1 As fxDataSource
g.Groups.AddDef("品番")
g.Groups.AddDef("品名")
g.Totals.AddDef("初期库存")
g.Totals.AddDef("最低在库")
g.Totals.AddDef("最高在库")
dt1 = g.BuildDataSource()
'建立 一个 以 品番 为 唯一值 的 列表 (含列 品番 品名 初期库存 最低在库 最高在库 )
Dim t As New CrossTableBuilder("统计表2", DataTables("进出明细"))
Dim dt2 As fxDataSource
t.HGroups.AddDef("品番")
t.HGroups.AddDef("品名")
t.VGroups.AddDef("进出方式")
t.Totals.AddDef("总数量", "总数量")
dt2 = t.BuildDataSource()
dt1.Combine("品番",dt2,"品番")
e.Form.Controls("Table1").DataSource = dt1
'建立 一个 以 品番 为 唯一值 的 列表 (含列 品番 品名 出库 入库 )
dt1.Combine("品番",dt2,"品番")
'按帮助建立一个 联合的表格
e.Form.Controls("Table1").DataSource = dt1 '将统计结果绑定到Table
'With DataTables("窗口1_Table1").DataCols '用表达式列计算库存数据
' .Add("当前库存",Gettype(Integer), "IsNull([初期库存],0) + ISNULL([入库],0) - ISNULL([出库],0)")
'End With
'按帮助 建立一个 表格,但 报错,请 老师帮忙看下 如何操作.
此主题相关图片如下:未命名.jpg
