Dim g As New CrossTableBuilder("业务月份统计", DataTables("订单明细")) g.HGroups.AddDef("出货日期", "月") g.VGroups.AddDef("业务员") g.Totals.AddDef("金额", "金额") g.Build() Dim t As Table = Tables("业务月份统计") t.DataTable.DataCols.Add("月份", Gettype(String), 10, "Convert(月,'System.String') + '月'") t.cols("月").Visible = False t.cols("月份").Move(0)
|