DataTables("称重信息").Fill("Select [序号],[流水号],[车号],[发货单位],[收货单位],[货名],[毛重],[皮重],[净重],[更新时间] From {称重信息} where [发货单位] <> '' ORDER BY [更新时间] desc", "170", True)
‘如果不是特别需要不建议使用主表Fill,建议改为加载处理,如
DataTables("称重信息").loadfilter = "[发货单位] <> ''"
DataTables("称重信息").load
Tables("称重信息").sort = "更新时间 desc"
'-------------
Tables("称重信息").SetColVisibleWidth("序号|40|流水号|100|车号|70|发货单位|120|收货单位|120|货名|80|毛重|100|皮重|100|净重|100|更新时间|150") '定义表格样式
Dim ggg As New GroupTableBuilder("统计表1", DataTables("称重信息"))
ggg.Groups.AddDef("更新时间", DateGroupEnum.Year, "年")
ggg.Groups.AddDef("更新时间", DateGroupEnum.month,"月")
ggg.Groups.AddDef("更新时间",DateGroupEnum.day, "日")
ggg.Totals.AddDef("净重", "", "净重_重量(公斤)")
ggg.SamePeriodGrowth = True
ggg.CircleGrowth = True
‘’ggg.Build() r如果使用了BuildDataSource就不要在使用Build,这一句去掉
Tables("main_Table3").DataSource = ggg.BuildDataSource()
Tables("main_Table3").AutoSizeCols()
e.Form.Controls("Table3").Visible = True