|
Dim g As New SQLCrossTableBuilder("统计表1", "表A")
g.AddTable("表A","编号","项目","编号")
g.HGroups.AddDef("{表A}.编号")
g.HGroups.AddDef("第二列","多层表头_第一列")
g.HGroups.AddDef("第三列","多层表头_第三列")
g.HGroups.AddDef("第四列")
g.HGroups.AddDef("第五列")
g.HGroups.AddDef("第六列")
g.VGroups.AddDef("xm")
g.Totals.AddDef("数量", AggregateEnum.Count)
g.Build()
MainTable = Tables("统计表1")
Tables("统计表1").Font = New Font("宋体",9,FontStyle.Regular)
DataTables("统计表1").SysStyles("Fixed").BackColor = Color.White
|
加好友 
发短信
Post By：2011/9/29 21:15:00 [显示全部帖子]
