主题：提示AfterSelRangeChange问题

'''

Tables("窗口1_Table1").Select(0,0)
Select Case e.Node.Name
    Case "表A"
        Tables("窗口1_Table1").DataSource = DataTables("表A")
    Case "表B"
        Tables("窗口1_Table1").DataSource = DataTables("表B")
    Case "表C"
        Tables("窗口1_Table1").DataSource = DataTables("表C")
    Case "表D"
        Tables("窗口1_Table1").DataSource = DataTables("表D")
 End Select