Dim sre As String = DataTables("表A").GetComboListString("月日多值列")
Dim str() As String = sre.Replace(",","|").split("|")
Dim lst1 As new List(of String)
Dim lst2 As new List(of String)
Dim s1,s2 As String
For Each s As String In str
If s.length = 4 Then
s1 = s.substring(0,2)
If lst1.Contains(s1) = False Then lst1.Add(s1)
s2 = s.substring(2)
If lst2.Contains(s2) = False Then lst2.Add(s2)
End If
Next
If lst1.Count > 0 Then
e.form.Controls("ComboBox1").ComboList = String.Join("|",lst1.ToArray)
End If
If lst2.Count > 0 Then
e.form.Controls("ComboBox2").ComboList = String.Join("|",lst2.ToArray)
End If
ComboBox2取值ComboBox1对应的数
ComboBox1取值ComboBox2必须也得取值才可以査询
[此贴子已经被作者于2020/11/28 12:18:20编辑过]
加好友 
发短信
Post By：2020/11/28 12:11:00 [只看该作者]
