If DataTables.Contains(e.sender.Text) = False Then msgbox("不存在表:" & e.sender.text)Else e.form.controls("Table1").Table.DataSource = DataTables(e.sender.Text)End If