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

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

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

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

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

'窗口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) '删除后要重新打开项目,