设置目录树的NodeMouseClick:
Dim nm As String = e.Node.TextIf Tables.Contains(nm ) then MainTable = Tables(nm)end if
也可以看看:http://www.foxtable.com/help/topics/2244.htm