去编写窗口的click事件,如
If DataTables.Conttains(e.Sender.Name) Then
Tables("窗口1_Table1").DataSource = DataTables(e.Sender.Name)
End If