求按月统计代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求按月统计代码

共有14399人关注过本帖树形打印复制链接主题：求按月统计代码

czy

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

加好友

发短信

等级：超级版主帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2010/1/16 15:53:00 [显示全部帖子]

用交叉统计呀。

Dim g As New CrossTableBuilder("统计表1", DataTables("表A"), "[日期] Is Not Null")
g.HGroups.AddDef("型号")
g.VGroups.AddDef("日期", "{0}月")
g.Totals.AddDef("数量", "数量")
g.Filter = "[日期] Is Not Null"
g.TableVisible = False
Tables("窗口1_Table1").DataSource = g.BuildDataSource

czy

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

加好友

发短信

等级：超级版主帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2010/1/16 16:45:00 [显示全部帖子]

在窗口新增一个Table控件。
按钮代码
然后自己试试就知道了。

Dim g As New CrossTableBuilder("统计表1", DataTables("表A"), "[日期] Is Not Null")
g.HGroups.AddDef("型号")
g.VGroups.AddDef("日期", "{0}月")
g.Totals.AddDef("数量", "数量")
g.Filter = "[日期] Is Not Null"
g.TableVisible = False
Tables("窗口1_Table3").DataSource = g.BuildDataSource

czy

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

加好友

发短信

等级：超级版主帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2010/1/16 18:58:00 [显示全部帖子]

窗口中的Table怎么引用帮助中有说明，看来你还得好好学习。

Tables("窗口名称_Table控件名称").Filter = Filter

下一主题 >> << 上一主题

主题：求按月统计代码