标题：关于统计结果在窗口表的问题

Dim b As New GroupTableBuilder("统计表1",DataTables("订单"))
b.Groups.AddDef("日期","月份")
b.Totals.AddDef("数量")
Tables("窗口1_Table1").DataSource = b.BuildDataSource()

我测试了一下,这段代码可以在窗口表里显示统计结果的.而这一段只显示颜色字段:

Dim g As New CrossTableBuilder("输入", DataTables("表A"))

g.HGroups.AddDef("颜色")

g.VGroups.AddDef("尺码")

g.Totals.AddDef("数量", "数量")

g.HorizontalTotal = True

g.VerticalTotal = True

g.Horiz

g.VerticalProporti

g.Build()

Tables("窗口1_Table1").DataSource = g.BuildDataSource()

我看过帮助.

GroupTableBuilder

CrossTableBuilder
SQLGroupTableBuilder
SQLCrossTableBuilder
DataTableBuilder

都有DataSource属性呀!

呵呵，看这个：

下载信息  [文件大小：36.1 KB  下载次数：21]

点击浏览该文件:管理项目2.rar

呵呵，加粗的有问题，应该屏蔽，因为列名和标题不同的，你用常规统计得出一个表，看看各列的实际列名是什么，就明白了：

Dim g As New CrossTableBuilder("输入", DataTables("表A"))
g.HGroups.AddDef("颜色")
g.VGroups.AddDef("尺码")
g.Totals.AddDef("数量", "数量")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Horiz
g.VerticalProporti
Tables("窗口1_Table1").DataSource = g.BuildDataSource()
'Tables("窗口1_Table1").SetColVisibleWidth("颜色|90|XS|90|S|120|M|120|L|60|XL|60|XXL|60|XXXL|60|TOTAL|60")
Tables("窗口1_Table1").AllowEdit = True

另外你多了一个Build

只能用SetColVisibleWidth的