老师，下面代码怎样修改。
'-------取出表名-------'
Dim mylist As String
For Each dt As DataTable In DataTables
mylist += dt.name & "|"
Next
Dim mycbo As WinForm.ComboBox = e.Form.Controls("cbo目标表")
mycbo.ComboList = mylist.TrimEnd("|")
mycbo.SelectedIndex = 0
Dim myf As String = ""
For Each dc As DataCol In DataTables(mycbo.SelectedValue).DataCols
myf = myf & dc.name & "|"
Next
Dim drf As WinForm.TextBox = e.Form.Controls("导入列显示")
drf.Text = myf
Dim bzd As WinForm.ListBox = e.Form.Controls("表字段")
bzd.ComboList = myf.TrimEnd("|")
Dim sxl As WinForm.ComboBox = e.Form.Controls("筛选列")
sxl.ComboList = myf.TrimEnd("|")
加好友 
发短信
Post By：2016/10/19 12:42:00 [显示全部帖子]
此主题相关图片如下：图像 2.png