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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何实现交叉查询

共有9815人关注过本帖树形打印复制链接主题：[求助]如何实现交叉查询

muhua	小大 11楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：等待验证帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00	Post By：2012/7/13 10:50:00 [只看该作者] 用户已被锁定

狐狸爸爸

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

加好友

发短信

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

Post By：2012/7/13 10:58:00 [只看该作者]

在命令窗口执行：

Dim dtb As New DataTableBuilder("表D")
dtb.AddDef("姓名", Gettype(String), 32)
For Each v As String In DataTables("表A").GetUniqueValues("","期间")
    dtb.AddDef(v, Gettype(String))
Next
dtb.Build()
For Each v As String In DataTables("表A").GetUniqueValues("","姓名")
    Dim dr1 As DataRow = DataTables("表D").AddNew()
    dr1("姓名") = v
    For Each dr2 As DataRow In DataTables("表A").DataRows
        If dr2("姓名") = v Then
            dr1(dr2("期间")) = dr2("成本中心")
        End If
    Next
Next
MainTable = Tables("表D")

就可以得到你要的表

idoicand

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

加好友

发短信

等级：婴狐帖子：34 积分：304 威望：0 精华：0 注册：2012/3/5 14:40:00

Post By：2012/7/13 11:03:00 [只看该作者]

没有成功，是不是因为我这个不是一一对应的，比如张三没有1201和1202的数据？但实际情况是这样的，有的人刚来，有的人离职走了。

狐狸爸爸

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

加好友

发短信

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

Post By：2012/7/13 11:04:00 [只看该作者]

张三在原始数据本来就没有1201和1202

idoicand

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

加好友

发短信

等级：婴狐帖子：34 积分：304 威望：0 精华：0 注册：2012/3/5 14:40:00

Post By：2012/7/13 11:19:00 [只看该作者]

Wonderful!

不好意思，刚才没见到狐爸的回答，只是用帮助里的例子试了一下。现在OK了！谢谢！

再进一步，如果加一列内容基本工资，能否实现附图里面的报表？

此主题相关图片如下：交叉表.jpg

狐狸爸爸

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

加好友

发短信

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

Post By：2012/7/13 11:21:00 [只看该作者]

呵呵，可以，不过除了图片，你最好也提供foxtable文件，这样别人才有兴趣帮你写代码的。

idoicand

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

加好友

发短信

等级：婴狐帖子：34 积分：304 威望：0 精华：0 注册：2012/3/5 14:40:00

Post By：2012/7/13 11:34:00 [只看该作者]

例子做好了，请狐爸指教，非常感谢！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:交叉查询.table

muhua	小大 18楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：等待验证帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00	Post By：2012/7/13 11:43:00 [只看该作者] 用户已被锁定