用目录树管理表
如果表比较多，那么通过表标题选择目标表可能会让人感到不够便捷。
你可以考虑采用目录数来分类管理表，单击某个节点即可快速选择某个表：
![图片点击可在新窗口打开查看]()
要实现这样的功能很简单，设计步骤：
1、新建一个窗口，窗口类型设置为共享，停靠区域设置为左。
2、在窗口增加一个TreeView控件，停靠属性设置为Fill。
3、窗口的AfterLoad事件代码设置为：
Dim trv As WinForm.TreeView =
e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
nd = Trv.Nodes.Add("分类1","分类1")
nd.Nodes.Add("表A")
nd.Nodes.Add("表B")
nd.Nodes.Add("表C")
nd = Trv.Nodes.Add("分类2","分类2")
nd.Nodes.Add("表D")
nd.Nodes.Add("表E")
4、TreeView控件的NodeMouseClick事件代码设置为：
If e.Node.Level =
1
Then
MainTable = Tables(e.Node.Text)
End
If
加好友 
发短信
Post By：2017/6/14 10:10:00 [显示全部帖子]
