主题：怎么在极码中取值

怎么在极码中取值？我想取级码中不同层的值做列表

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:取值.table

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("|"))

这个是combobox2的enter 如果在不同的列我还能弄
Dim xiaolei As WinForm.ComboBox = e.Sender
Dim str As String = e.Form.Controls("ComboBox1").Value
xiaolei.ComboList = DataTables("类别").GetComboListString("小类", "大类 = '" & str & "'")
但是级码中怎么弄 动态合成啊。。。

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

 没太弄明白。
怎么筛选出 str1 str2
我想取 str1 下的str2的值
 
.....怎么合成

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("|"))