主题：求代码：显示所有表数据

这个意思？

Select Case e.Node.Text
    Case "加载树"
        MainTable = Tables("表A")
        Tables("表A").OpenloadTree("入职日期 M",150,50,True)
       
    Case "表A"
        MainTable = Tables("表A")
        Forms("表A").open
       
End Select