[求助]这列不重复值代码转成表B列名，表A第1列空间名在表B合并单元格，材料对应填入 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]这列不重复值代码转成表B列名，表A第1列空间名在表B合并单元格，材料对应填入

共有3417人关注过本帖树形打印复制链接主题：[求助]这列不重复值代码转成表B列名，表A第1列空间名在表B合并单元格，材料对应填入

湛江智

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

加好友

发短信

等级：四尾狐帖子：812 积分：6688 威望：0 精华：0 注册：2014/11/26 12:32:00

[求助]这列不重复值代码转成表B列名，表A第1列空间名在表B合并单元格，材料对应填入 发帖心情

Post By：2016/3/22 13:35:00 [只看该作者]

这列不重复值代码转成表B列名，表A第1列空间名在表B合并单元格，材料对应填入

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

[此贴子已经被作者于2016/3/22 14:01:11编辑过]

湛江智

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

加好友

发短信

等级：四尾狐帖子：812 积分：6688 威望：0 精华：0 注册：2014/11/26 12:32:00

[求助]表A 列不重复值代码转成表B列名，其他对应对应填入 发帖心情

Post By：2016/3/22 13:37:00 [只看该作者]

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

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

[此贴子已经被作者于2016/3/22 14:01:32编辑过]

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/3/22 14:39:00 [只看该作者]

参考

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=68546&skin=0

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/3/22 14:41:00 [只看该作者]

Dim dtb As New DataTableBuilder("表B")
dtb.AddDef("空间", Gettype(String), 32)
For Each v As String In DataTables("表A").GetValues("这列不重复值代码转成表B列名")
    dtb.AddDef(v, Gettype(String))
Next
dtb.Build()
For Each v As String In DataTables("表A").GetValues("空间")
    Dim dr1 As DataRow = DataTables("表B").AddNew()
    dr1("空间") = v
    For Each dr2 As DataRow In DataTables("表A").Select("空间 = '" & v & "'")
       dr1(dr2("这列不重复值代码转成表B列名")) = dr2("材料")
    Next
Next
MainTable = Tables("表B")

湛江智

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

加好友

发短信

等级：四尾狐帖子：812 积分：6688 威望：0 精华：0 注册：2014/11/26 12:32:00

Post By：2016/3/22 18:00:00 [只看该作者]

红袍老师，上面代码转换过来，表a只是部分数据到表b，要怎样完善才能把表a数据不缺少转到表b？

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/3/22 18:03:00 [只看该作者]

Dim dtb As New DataTableBuilder("表B")
dtb.AddDef("空间", Gettype(String), 32)
For Each v As String In DataTables("表A").GetValues("这列不重复值代码转成表B列名")
    dtb.AddDef(v, Gettype(String))
Next
dtb.Build()
For Each v As String In DataTables("表A").GetValues("空间")
    Dim dr1 As DataRow = DataTables("表B").AddNew()
    dr1("空间") = v
    For Each dr2 As DataRow In DataTables("表A").Select("空间 = '" & v & "'")
        Dim str As String = dr1(dr2("这列不重复值代码转成表B列名")) & "," & dr2("材料")
        dr1(dr2("这列不重复值代码转成表B列名")) = str.trim(",")
    Next
Next
MainTable = Tables("表B")

[此贴子已经被作者于2016/3/22 19:27:53编辑过]

客人(114.253.*.*)

小大 7楼

Post By：2016/3/22 18:10:00 [只看该作者]

红袍老师，还有一点点问题，开头第一个字，缺少了，怎么改呢？

湛江智

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

加好友

发短信

等级：四尾狐帖子：812 积分：6688 威望：0 精华：0 注册：2014/11/26 12:32:00

Post By：2016/3/22 18:23:00 [只看该作者]

此主题相关图片如下：缺少第一个字.png

红袍老师，还有一点点问题，开头第一个字，缺少了，怎么改呢？

[此贴子已经被作者于2016/3/22 18:23:46编辑过]

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/3/22 19:28:00 [只看该作者]

哦，写错

Dim dtb As New DataTableBuilder("表B")
dtb.AddDef("空间", Gettype(String), 32)
For Each v As String In DataTables("表A").GetValues("这列不重复值代码转成表B列名")
    dtb.AddDef(v, Gettype(String))
Next
dtb.Build()
For Each v As String In DataTables("表A").GetValues("空间")
    Dim dr1 As DataRow = DataTables("表B").AddNew()
    dr1("空间") = v
    For Each dr2 As DataRow In DataTables("表A").Select("空间 = '" & v & "'")
        Dim str As String = dr1(dr2("这列不重复值代码转成表B列名")) & "," & dr2("材料")
        dr1(dr2("这列不重复值代码转成表B列名")) = str.trim(",")
    Next
Next
MainTable = Tables("表B")

湛江智

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

加好友

发短信

等级：四尾狐帖子：812 积分：6688 威望：0 精华：0 注册：2014/11/26 12:32:00

Post By：2016/3/22 20:30:00 [只看该作者]

太感谢了，下班了还帮我整

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

总数 12 1 2 下一页

主题：[求助]这列不重复值代码转成表B列名，表A第1列空间名在表B合并单元格，材料对应填入