去编写窗口的click事件，如
If DataTables.Conttains(e.Sender.Name) Then
Tables("窗口1_Table1").DataSource = DataTables(e.Sender.Name)
End If
加好友 
发短信
Post By：2015/6/10 21:04:00 [只看该作者]
