Dim bd1 As New sqlGroupTableBuilder("统计表1","pzk")
bd1.C
Dim dt1 As fxDataSource
bd1.Groups.AddDef("成本_所属项目","项目分类")
bd1.Groups.AddDef("成本_提供方","材料供应商")
bd1.Totals.AddDef("成本_金额","主材料结算_金额")
bd1.Totals.AddDef("成本_数量","主材料结算_数量")
bd1.Totals.AddExp("成本_摘要", "成本_摘要", AggregateEnum.max)
dt1 = bd1.BuildDataSource()
Dim bd2 As New sqlGroupTableBuilder("统计表2","pzk")
bd2.C
Dim dt2 As fxDataSource
bd2.Groups.AddDef("付款_所属项目","项目分类")
bd2.Groups.AddDef("付款_收款方","材料供应商")
bd2.Totals.AddDef("付款_金额","已付金额")
bd2.Filter = "付款_类别 = '主材料'"
dt2 = bd2.BuildDataSource()
Dim arr() As String = {"项目分类","材料供应商"}
dt1.Combine(arr,dt2,arr)
dt1.show("统计表") '将统计结果绑定到Table 暂时不直接显示
Dim t As Table = Tables("统计表")
With t.DataTable.DataCols '用表达式列计算库存数据
.Add("未付款金额",Gettype(Double), "IsNull([主材料结算_金额],0) - ISNULL([已付金额],0)")
End With
With Tables("统计表")
.MergeMode = MergeModeEnum.Standard
.MergeCols.Clear()
.MergeCols.Add("项目分类")
.MergeCols.Add("材料供应商")
.MergeSort = "项目分类,材料供应商"
.AllowMerge = True
End With
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.SpillNode = True
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "项目分类"
g.TotalOn = "主材料结算_金额,主材料结算_数量,已付金额,未付款金额"
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
g.TotalOn = "主材料结算_金额,主材料结算_数量,已付金额,未付款金额"
g.Caption = "总计"
t.SubtotalGroups.Add(g)
t.Subtotal()
MainTable = t
'以下显示格式
Tables("统计表").cols("已付金额").DataCol.setFormat("#,###.00")
Tables("统计表").cols("主材料结算_金额").DataCol.setFormat("#,###.00")
Tables("统计表").cols("未付款金额").DataCol.setFormat("#,###.00")
Tables("统计表").cols("主材料结算_数量").DataCol.setFormat("#,###.000")
Tables("统计表").SetColVisibleWidth("项目分类|60|材料供应商|500|主材料结算_金额|120|主材料结算_数量|120|已付金额|120|未付款金额|120|成本_摘要|120")
老师，代码生成的汇总统计表为什么第一行始有空白行存在？如何消除
加好友 
发短信
Post By：2018/7/16 16:36:00 [只看该作者]
