主题：[求助]怎样用目录树动态管理表

按照说明建了个文件名目录树，但是当新增或删除表时，就要手动再调整代码。有没有现成的方法？

循环生成

 

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each dt As DataTable In DataTables
    Dim nd As WinForm.TreeNode = trv.Nodes.Add(dt.Name)
    For Each dc As DataCol In dt.DataCols
        nd.nodes.Add(dc.name)
    Next
Next

 

动态修改表结构 , 其他功能参考这里实现

http://www.foxtable.com/webhelp/index.htm?page=2122.htm

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目18.foxdb

版主，代码怎么用？

朋友，你提供的例子我打不开。谢谢答复！

给你弄个 商业版的

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目19.table

谢谢!这个也打不开，我用的是免费版。

'窗口1 加载事件   AfterLoad

 

Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim tr As WinForm.TreeNode
For Each dt As DataTable In DataTables
    tr = tv.Nodes.Add(dt.Name)
    For Each cl As DataCol In dt.DataCols
       tr.Nodes.Add(cl.Name)
    Next
Next

 

'新建一个 按键click 事件

 

Dim tv As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")
Dim nd As WinForm.TreeNode = tv.SelectedNode

Dim dx As new ADOXBuilder
dx.Open()
If nd.Level =0 Then
    Tables(nd.Name).Visible = False
    dx.DeleteTable(nd.Name)
Else
    Tables(nd.ParentNode.Name).Cols(nd.Name).Visible = False
   dx.Tables(nd.ParentNode.Name).DeleteColumn(nd.Name)
End If

dx.Close()

nd.Delete()
'Syscmd.Project.Open(ProjectFile) '删除后要重新打开项目,

谢谢！成功了。

但是，一点击目录树节点，工作表就给删除了。