Dim dtx2 As DataTable
Dim b1 As New SQLGroupTableBuilder("统计表2","租赁合同收款明细表")
b1.C
Dim dt2 As fxDataSource
b1.Groups.Adddef("收款方式") '根据产品ID分组
b1.Totals.Adddef("收款金额")
dt2 = b1.BuildDataSource()
dt2.Show("统计表2") '显示统计结果,必须有这一句
Dim mg As New Merger
mg.SourceTableName = "统计表2" '指定要合并的表
mg.DataTableName = "收款日报汇总表" '指定接收数据的表,为空的内部数据表
'mg.Fields="收款方式,收款金额"
mg.Merge() '开始合并
此主题相关图片如下:444.png

[此贴子已经被作者于2020/9/22 9:46:55编辑过]