用SQLGroupTableBuilder吧
Dim cn As String = "" '数据源名(空白时为内数据表)
Dim bm As String = "统计表1"
Dim b As New SQLGroupTableBuilder(bm,"表A")
b.ConnectionName = cn
b.Groups.AddDef("M1")
b.Groups.AddDef("类型")
b.Totals.AddExp("进货_属性一","iif(属性一=true,1,null)")
b.Totals.AddExp("进货_属性二","iif(属性二=true,1,null)")
b.Subtotal = True
b.SubtotalLevel = 0
Tables("窗口1_Table1").DataSource = b.BuildDataSource()
With Tables("窗口1_Table1")
.MergeMode = MergeModeEnum.Standard '标准合并模式
.MergeCols.Clear() '清除原来的合并列
.MergeCols.Add("M1") '加入要合并的列
.MergeSort = "客户" '设置合并模式下的排序方式
.AllowMerge = True '启用合并模式
End With
[此贴子已经被作者于2017/2/22 23:36:53编辑过]