以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何将表A中多列内容合并到表B中同一行  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=74217)
--  作者：happy_gile
--  发布时间：2015/9/6 15:33:00
--  [求助]如何将表A中多列内容合并到表B中同一行
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.table

如何将表A变成表B格式
图片点击可在新窗口打开查看此主题相关图片如下：未命名.bmp
图片点击可在新窗口打开查看
[此贴子已经被作者于2015/9/6 15:42:39编辑过]
--  作者：czy
--  发布时间：2015/9/6 15:48:00
--  
For Each dr As DataRow In DataTables("表B").DataRows
    Dim s As String = ""
    For Each n As String In DataTables("表A").GetComboListString("扣率","供应商 = \'" & dr("供应商") & "\'").Split("|")
        s & = n * 100 & "%,"
    Next
    dr("扣率") = s.Trim(",")
Next
--  作者：大红袍
--  发布时间：2015/9/6 15:52:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.table
--  作者：happy_gile
--  发布时间：2015/9/6 16:06:00
--  
以下是引用czy在2015/9/6 15:48:00的发言：
For Each dr As DataRow In DataTables("表B").DataRows
    Dim s As String = ""
    For Each n As String In DataTables("表A").GetComboListString("扣率","供应商 = \'" & dr("供应商") & "\'").Split("|")
        s & = n * 100 & "%,"
    Next
    dr("扣率") = s.Trim(",")
Next


图片点击可在新窗口打开查看此主题相关图片如下：123.bmp
图片点击可在新窗口打开查看
--  作者：happy_gile
--  发布时间：2015/9/6 16:08:00
--  
以下是引用大红袍在2015/9/6 15:52:00的发言：
 下载信息  [文件大小：308.0 KB  下载次数：1]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.table

谢谢老师
--  作者：大红袍
--  发布时间：2015/9/6 16:09:00
--  
直接看3楼。
--  作者：cc119607700
--  发布时间：2015/10/18 14:46:00
--  
请问各位老师：合并 具体是怎样操作的？
--  作者：大红袍
--  发布时间：2015/10/18 14:47:00
--  
以下是引用cc119607700在2015/10/18 14:46:00的发言：
请问各位老师：合并 具体是怎样操作的？

 

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