主题：怎么在极码中取值

Dim str1, str2, str3 As String
For Each dr As DataRow In DataTables("表A").Select("")
    Dim ary() As String = dr("第一列").Split(".")
    Select Case ary.Length
        Case 1
            str1 &= dr("第二列") & "|"
        Case 2
            str2 &= dr("第二列") & "|"
        Case 3
            str3 &= dr("第二列") & "|"
    End Select
Next
msgbox(str1.Trim("|"))
msgbox(str2.Trim("|"))
msgbox(str3.Trim("|"))

 看2楼的代码啊，编写代码合成字符串啊。

Dim str1 As String = "2"

Dim str2 As String = ""

For Each dr As DataRow In DataTables("表A").Select("第一列 like '" & str1 & ".%'")
    Dim ary() As String = dr("第一列").Split(".")
    Select Case ary.Length

        Case 2
            str2 &= dr("第二列") & "|"
    End Select
Next

msgbox(str2.Trim("|"))