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


  共有2737人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
湛江智
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:812 积分:6676 威望: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 积分:6676 威望: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 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  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 积分:6676 威望: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 积分:6676 威望: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 积分:6676 威望:0 精华:0 注册:2014/11/26 12:32:00
  发帖心情 Post By:2016/3/22 20:30:00 [只看该作者]

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

 回到顶部
总数 12 1 2 下一页