以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  Dim g As New CrossTableBuilder("统计表1", DataTables("库存表"))  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=61467)
--  作者：jswjyjf
--  发布时间：2014/12/12 21:37:00
--  Dim g As New CrossTableBuilder("统计表1", DataTables("库存表"))

Dim g As New CrossTableBuilder("统计表1", DataTables("库存表"))
g.HGroups.AddDef("产品编码")
g.HGroups.AddDef("产品名称")
g.HGroups.AddDef("产品规格")
g.VGroups.AddDef("仓库名称")
g.VGroups.AddDef("颜色")
g.Totals.AddDef("库存数量", "库存数量")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Build()
Tables("窗口3_Table1").DataSource =g.BuildDataSource()
DataTables("统计表1").SysStyles("EmptyArea").BackColor =Color.FromARGB(245,245,245)

 

 

最后一句不起作用
--  作者：jswjyjf
--  发布时间：2014/12/12 21:42:00
--  
DataTables("窗口3_Table1").SysStyles("EmptyArea").BackColor =Color.FromARGB(245,245,245)
--  作者：Bin
--  发布时间：2014/12/13 8:57:00
--  
上例子看看