主题：获取不重复值

 

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

.....

方

正

|

深

联

|

.......

 

提取表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

 

此主题相关图片如下：截图20160119133903.png

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