Dim g As New CrossTableBuilder("统计表1", DataTables("设备状态表")) g.HGroups.AddDef("使用设备") g.HGroups.AddDef("设备名称") g.FromServer = True Tables("设备分配表_设备运行").DataSource = g.BuildDataSource() Dim dt As DataTable = Tables("设备分配表_设备运行").DataTable dt.GlobalHandler.DrawCell = True
For i As Integer = 1 To 31 dt.DataCols("日" & i).caption = format(Date.Today.AddDays(i-1), "MM-dd") Next dt.BuildHeader
加好友 
发短信
Post By：2019/7/15 10:12:00 [只看该作者]
