下面的代码，为什么提取的是单字符呢？

.....

方

正

|

深

联

|

.......

提取表A第一列不重复的值，作为B表的第一列

再提取表A中第二列不重复的值，用|符号连接，作为B表的第二列

条件是对应第一列的值

For Each st As String In DataTables("表A").GetValues("第一列") \'提取表A第一列不重复的值,作为表B第一列的值
    Dim r As Row = Tables("表B").AddNew() \'增加到表B
    r("第一列") = st
    Dim dr As DataRow = DataTables("表A").Find("[第一列] = \'" & r("第一列") & "\'") \'
    If dr IsNot Nothing
        For Each st2 As String In DataTables("表A").GetComboListString("第二列","[第一列] = \'" & dr("第一列") & "\'")
            MessageBox.show(st2)
        Next
    End If
Next