e.Form.Controls("ComboBox1")的TextChanged:(去除e.Form.Controls("ComboBox2")的Enter事件代码)
Dim s As String
If DataTables.Contains(e.Sender.Value)
For Each dc As DataCol In DataTables(e.Sender.Value).DataCols
s += dc.Name & "|"
Next
Dim c As WinForm.ComboBox = e.Form.Controls("ComboBox2")
c.ComboList = s.TrimEnd("|")
End If