主题：如何排序

Dim arr() As String = {"项目分类","结算平台名称","年月"}
dt1.Combine(arr,dt2,arr)
dt1.Combine(arr,dt3,arr)
dt1.Combine(arr,dt4,arr)

dt1.show("统计表B") '将统计结果绑定到Table
Dim t As Table = Tables("统计表B")

With t.DataTable.DataCols  '用表达式列计算库存数据
    .Add("进项税_小计",Gettype(Double), "IsNull([进项税_主材fa piao],0) + ISNULL([进项税_劳务fa piao],0)+ISNULL([进项税_报销fa piao],0)")
    .Add("应交增值税",Gettype(Double), "IsNull([fa piao销项税],0) - ISNULL([进项税_小计],0)")
   
End With
With Tables("统计表B")
    .MergeMode = MergeModeEnum.Standard
    .MergeCols.Clear()
    .MergeCols.Add("项目分类")
    .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 = "fa piao销项税,进项税_主材fa piao,进项税_劳务fa piao,进项税_报销fa piao,进项税_小计,应交增值税"
g.Caption = "总计"
t.SubtotalGroups.Add(g)
t.Subtotal()

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "项目分类"
g.TotalOn = "fa piao销项税,进项税_主材fa piao,进项税_劳务fa piao,进项税_报销fa piao,进项税_小计,应交增值税"
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)

t.Subtotal()

MainTable = t

'以下显示格式
Tables("统计表B").cols("fa piao销项税").DataCol.setFormat("#,###.00")
Tables("统计表B").cols("进项税_主材fa piao").DataCol.setFormat("#,###.00")
Tables("统计表B").cols("进项税_劳务fa piao").DataCol.setFormat("#,###.00")
Tables("统计表B").cols("进项税_报销fa piao").DataCol.setFormat("#,###.00")
Tables("统计表B").cols("进项税_小计").DataCol.setFormat("#,###.00")
Tables("统计表B").cols("应交增值税").DataCol.setFormat("#,###.00")

Dim frm As WinForm.Form
frm = Forms("按项目应交增值税汇总窗口")
frm.Open()
MainTable = Tables("统计表B")

'结束