用目录树管理表

如果表比较多,那么通过表标题选择目标表可能会让人感到不够便捷。
你可以考虑采用目录树来分类管理表,单击某个节点即可快速选择某个表:

要实现这样的功能很简单,设计步骤:

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


本页地址:http://www.foxtable.com/webhelp/topics/2244.htm