编写 SelectedNode 事件
If e.Node.Text = "A" Then
MainTable = Tables("表A")
ElseIf e.Node.Text = "B" then
MainTable = Tables("表B")
End If