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

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

共有11026人关注过本帖树形打印复制链接主题：[求助]交叉表引用字符

csxuebai

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

加好友

发短信

等级：婴狐帖子：33 积分：513 威望：0 精华：0 注册：2009/3/8 23:20:00

[求助]交叉表引用字符 发帖心情

Post By：2011/12/26 22:20:00 [显示全部帖子]

请问，交叉表中能否实现下图的功能：

图片点击可在新窗口打开查看此主题相关图片如下：1.jpg

图片点击可在新窗口打开查看此主题相关图片如下：2.jpg

在A表中是记录，通过按钮生成交叉表的形式，但交叉表只能是数值或者记录数，能不能生成字符，显示对应的行程，类似易表中findtext

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

csxuebai

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

加好友

发短信

等级：婴狐帖子：33 积分：513 威望：0 精华：0 注册：2009/3/8 23:20:00

Post By：2011/12/26 22:50:00 [显示全部帖子]

老六，我依葫芦画瓢，不行啊，请帮我看看是什么原因，最好能告诉我错在哪里以便我学习

Dim dtb As New DataTableBuilder("表b")
dtb.AddDef("车号", Gettype(String), 32)
For Each v As String In DataTables("表A").GetUniqueValues("","日期")
dtb.AddDef(v, Gettype(Double))
Next

dtb.Build()
For Each v As String In DataTables("表A").GetUniqueValues("","车号")
    Dim dr1 As DataRow = DataTables("表B").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("表b")