TextChanged事件
If Tables.Contains(e.Sender.Text) Then Dim t As Table = Tables(e.Sender.text) MainTable = t t.FocusEnd If