Dim g As New CrossTableBuilder("统计表1", DataTables("出口情况表"))
g.H Groups.AddDef("客户")
'g.V Groups.AddDef("是否发货","已发货|未发货")
For E ach c As Col In Tables("统计表1").cols
'mes sagebox.show(c.caption)
If c.Caption.Contains("空") Then
c.Caption = c.Caption.Replace("空", "未发货")
'me ssagebox.show(c.caption)
E nd If
Next
Tab les("统计表1").DataTable.BuildHeader
g.V Groups.AddDef("发货日期", DateGroupEnum.Year, "{0}年")
g.To tals.AddDef("净重", "净重")
g.To tals.AddDef("总值", "总值")
g.To tals.AddDef("预付款", "预付款")
g.To tals.AddDef("收货款", "收货款")
g.To tals.AddDef("扣款", "扣款")
g.To tals.AddDef("余款", "余款")
g.To tals.AddDef("发货日期", AggregateEnum.Count, "发货次数")
g.Ho rizontalTotal = True
g.V erticalTotal = True
g.D ecimals = 2
g.B uild()
Tab les("出口情况查询_Table2").DataSource = g.BuildDataSource()
Tab les("出口情况查询_table2").Cols.Frozen = 1
Tab les("出口情况查询_table2").AutoSizeCols
[此贴子已经被作者于2016/8/5 15:39:28编辑过]