Dim Name As StringFor Each dt As datatable In DataTables Name = Name & "|" & dt.NameNexte.Form.Controls("ComboBox1").ComboList = Name
最近刚好用到提取表名&窗体名的列表,用遍历的方法是可以取得,但有个小问题是这个列表不是按表/窗体名排列的,可以把字符串用spilt 转成数组》排序》转成字符串,这样表或窗体多的话不会乱。如有这种需要的话。
Dim Name As String
Dim names() As String
For Each dt As DataTable In DataTables
Name = Name & "|" & dt.Name
Next
names = name.split("|")
Array.Sort(names)
name = String.join("|",names)
e.Form.Controls("ComboBox1").ComboList = Name