主题：有劳袍哥完善一下

 全局代码

Public Sub cmb_TextChanged(sender As Object,e As EventArgs)
Dim cmb = sender.parent.Controls("cmbDataTables")
Dim lbox = sender.parent.parent.panel2.Controls("lstFields")

Dim tname = sender.Text.Split(" ")(0)
cmb.Text = tname
lbox.Items.Clear
If DataTables.contains(tname) Then
    lbox.Items.Add(tname)
    For i As Integer = 1 To DataTables(tname).DataCols.Count
        Dim dc = DataTables(tname).DataCols(i - 1)
        lbox.Items.Add(dc.Name)
    Next
    lbox.Items.Add("----------------")
    lbox.Items.Add(tname & " " & DataTables(tname).Caption)
    For i As Integer = 1 To DataTables(tname).DataCols.Count
        Dim dc = DataTables(tname).DataCols(i - 1)
        lbox.Items.Add(dc.Name & " " & dc.Caption)
    Next
End If
End Sub