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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]交叉统计

共有6813人关注过本帖树形打印复制链接主题：[求助]交叉统计

13636600695

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

加好友

发短信

等级：幼狐帖子：102 积分：912 威望：0 精华：0 注册：2012/5/20 6:57:00

[求助]交叉统计 发帖心情

Post By：2013/2/27 19:54:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:统计.zip

下面这段代码是新建临时统计表

Dim g As New CrossTableBuilder("统计表1", DataTables("表A"))
g.HGroups.AddDef("产品")
g.VGroups.AddDef("入库类别")
g.Totals.AddDef("数量", "数量")
g.Build()
MainTable = Tables("统计表1")

怎样才能表B直接统计表A的数据

帮忙修改下代码，谢谢啦

双轨制

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

加好友

发短信

等级：婴狐帖子：89 积分：535 威望：0 精华：0 注册：2013/2/23 20:06:00

Post By：2013/2/27 21:07:00 [只看该作者]

你可以看看：

http://www.foxtable.com/help/topics/0681.htm

13636600695

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

加好友

发短信

等级：幼狐帖子：102 积分：912 威望：0 精华：0 注册：2012/5/20 6:57:00

Post By：2013/2/27 21:15:00 [只看该作者]

看过了，没弄好

双轨制

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

加好友

发短信

等级：婴狐帖子：89 积分：535 威望：0 精华：0 注册：2013/2/23 20:06:00

Post By：2013/2/27 21:31:00 [只看该作者]

在命令窗口执行：

DataTables("表B").DataRows.clear
For Each nm As String In DataTables("表A").GetUniqueValues("","产品")
    Dim dr As DataRow = DataTables("表B").Addnew()
    dr("产品") = nm
    dr("采购入库") = DataTables("表A").Compute("Sum(数量)","产品 = '" & nm & "' And 入库类别 = '采购入库'")
    dr("生产入库") = DataTables("表A").Compute("Sum(数量)","产品 = '" & nm & "' And 入库类别 = '生产入库'")
    dr("外购入库") = DataTables("表A").Compute("Sum(数量)","产品 = '" & nm & "' And 入库类别 = '外购入库'")
Next

13636600695

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

加好友

发短信

等级：幼狐帖子：102 积分：912 威望：0 精华：0 注册：2012/5/20 6:57:00

Post By：2013/2/27 21:50:00 [只看该作者]

有点收获了，谢谢！

13636600695

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

加好友

发短信

等级：幼狐帖子：102 积分：912 威望：0 精华：0 注册：2012/5/20 6:57:00

Post By：2013/2/28 0:34:00 [只看该作者]

谢谢帮助，能否把新增行的代码去掉，我想直接填充到已存在的数据表

狐狸爸爸

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

加好友

发短信

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

Post By：2013/2/28 9:13:00 [只看该作者]

For Each dr As DataRow In DataTables("表B").DataRows
    Dim nm As String = dr("产品")
    dr("采购入库") = DataTables("表A").Compute("Sum(数量)","产品 = '" & nm & "' And 入库类别 = '采购入库'")
    dr("生产入库") = DataTables("表A").Compute("Sum(数量)","产品 = '" & nm & "' And 入库类别 = '生产入库'")
    dr("外购入库") = DataTables("表A").Compute("Sum(数量)","产品 = '" & nm & "' And 入库类别 = '外购入库'")
Next

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

主题：[求助]交叉统计