Dim e As RequestEventArgs = args(0)
Dim g As New CrossTableBuilder("A1销控", DataTables("总表"))
g.HGroups.AddDef("楼层")
g.VGroups.AddDef("楼号")
g.VGroups.AddDef("单元")
g.VGroups.AddDef("位置")
g.Totals.AddDef("房间状态", AggregateEnum.Max, "房间状态")
g.Filter = "[楼号]='A1'"
g.Build()
MainTable = Tables("A1销控")
DataTables("A1销控").GlobalHandler.DrawCell = True
Dim wb As New WeUI
With wb.AddTable("","Table1")
'下面这个数组,用实际的列名.
Dim nms() As String = {"楼层","A1_1_01","A1_1_02","A1_1_03","A1_1_04","A1_2_01","A1_2_02","A1_2_03","A1_2_04","A1_3_01","A1_3_02","A1_3_03","A1_3_04","A1_3_05","A1_3_06"}
.Head.AddRow("楼层","A1","A1","A1","A1","A1","A1","A1","A1","A1","A1","A1","A1","A1","A1") '第一层标题
.Head.AddRow("楼层","1","1","1","1","2","2","2","2","3","3","3","3","3","3") '第二层标题
.Head.AddRow("楼层","01","02","03","04","01","02","03","04","01","02","03","04","05","06") '第二层标题
For Each r As Row In Tables("A1销控").Rows
With .Body.AddRow()
For Each nm As String In nms
.AddCell(r(nm))
Next
End With
Next
End With
e.WriteString(wb.Build)
加好友 
发短信
Post By：2015/2/27 6:49:00 [只看该作者]
