以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]怎么样把多行的同列内容合并到同一行的列？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=78467)
--  作者：vvfree
--  发布时间：2015/12/9 17:28:00
--  [求助]怎么样把多行的同列内容合并到同一行的列？

表A

1列  2列

A1   S1
A1   S2
A1   S3
A1   S4
A1   S5
A1   S6
A2   S7

 

需要遍历到表B

1列    2列

A1     S1;S2;S3;S4;S5;S6;

A2     S7

 

请问按钮如何操作？
--  作者：大红袍
--  发布时间：2015/12/9 17:32:00
--  
For Each s As String In DataTables("表A").GetValues("第一列")
    Dim ndr As DataRow = DataTables("表B").AddNew
    ndr("第一列") = s
    ndr("第二列") = DataTables("表A").GetComboListString("第二列", "第一列 = \'" & s & "\'").replace("|", ";")
Next
--  作者：vvfree
--  发布时间：2015/12/9 17:42:00
--  回复：（大红袍）For Each s As String In DataTables...
如果不是添加行 而是修改 要怎么操作呢>?
--  作者：大红袍
--  发布时间：2015/12/9 17:44:00
--  
For Each s As String In DataTables("表A").GetValues("第一列")
    Dim ndr As DataRow = DataTables("表B").Find("第一列 = \'" & s & "\'")
    If ndr Is Nothing Then
        ndr = DataTables("表B").AddNew
    End If
    ndr("第一列") = s
    ndr("第二列") = DataTables("表A").GetComboListString("第二列", "第一列 = \'" & s & "\'").replace("|", ";")
Next
--  作者：vvfree
--  发布时间：2015/12/9 17:47:00
--  回复：（大红袍）For Each s As String In DataTables...

谢谢！！！