- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 怎么在极码中取值 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71497)
-- 发布时间：2015/7/13 6:45:00
-- 怎么在极码中取值
怎么在极码中取值？我想取级码中不同层的值做列表
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:取值.table |
-- 发布时间：2015/7/13 9:34:00
--
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("|"))
-- 发布时间：2015/7/14 9:04:00
--
这个是combobox2的enter 如果在不同的列我还能弄
Dim xiaolei As WinForm.ComboBox = e.Sender
Dim str As String = e.Form.Controls("ComboBox1").Value
xiaolei.ComboList = DataTables("类别").GetComboListString("小类", "大类 = \'" & str & "\'")
但是级码中怎么弄 动态合成啊。。。
-- 发布时间：2015/7/14 9:07:00
--
看2楼的代码啊，编写代码合成字符串啊。
-- 发布时间：2015/7/14 9:12:00
--
没太弄明白。
怎么筛选出 str1 str2
我想取 str1 下的str2的值
.....怎么合成
-- 发布时间：2015/7/14 9:31:00
--
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("|"))