在菜单或窗口中做个按钮,按钮代码为:
Dim g1 As New GroupTableBuilder("统计表1", DataTables("订单"))
Dim dt1 As fxDataSource
g1.Groups.AddDef("客户名称")
g1.Groups.AddDef("产品名称")
g1.Totals.AddDef("数量", "订购数量")
dt1 = g1.BuildDataSource()
Dim g2 As New GroupTableBuilder("统计表1", DataTables("客户提油明细表"))
Dim dt2 As fxDataSource
g2.Groups.AddDef("客户名称")
g2.Groups.AddDef("品种", "产品名称")
g2.Totals.AddDef("提油数量")
g2.Build()
dt2 = g2.BuildDataSource()
Dim nms As String() = {"客户名称","产品名称"} '指定连接列
dt1.Combine(nms,dt2,nms)
dt1.Show("统计表1") '显示统计结果
DataTables("统计表1").DataCols.Add("剩余",Gettype(Double),"[订购数量] - [提油数量]")
以后单击这个按钮,就是你要的统计结果。
这种统计,参考:
http://www.foxtable.com/help/topics/2305.htm
[此贴子已经被作者于2015/9/28 14:17:34编辑过]