关于统计结果在窗口表的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于统计结果在窗口表的问题

共有11529人关注过本帖树形打印复制链接主题：关于统计结果在窗口表的问题

blackzhu

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9875 积分：57590 威望：0 精华：15 注册：2008/9/1 9:45:00

关于统计结果在窗口表的问题 发帖心情

Post By：2011/5/12 15:51:00 [只看该作者]

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属性呀!

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/5/12 16:10:00 [只看该作者]

呵呵，看这个：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.rar

blackzhu

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9875 积分：57590 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2011/5/12 16:18:00 [只看该作者]

狐爸错了,我说的是下面一段代码:

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()

只显示颜色字段

下载信息 [文件大小：下载次数： ]
点击浏览该文件:尺码分配.table

狐狸爸爸

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/5/12 16:34:00 [只看该作者]

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

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

[此贴子已经被作者于2011-5-12 16:34:04编辑过]