- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]怎样用目录树动态管理表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=88934)
-- 发布时间：2016/8/11 20:25:00
-- [求助]怎样用目录树动态管理表
按照说明建了个文件名目录树，但是当新增或删除表时，就要手动再调整代码。有没有现成的方法？
-- 发布时间：2016/8/11 21:34:00
--
循环生成
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
-- 发布时间：2016/8/11 21:36:00
--
动态修改表结构 , 其他功能参考这里实现
http://www.foxtable.com/webhelp/index.htm?page=2122.htm
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目18.foxdb |
-- 发布时间：2016/8/11 21:52:00
--
版主，代码怎么用？
-- 发布时间：2016/8/11 21:59:00
--
朋友，你提供的例子我打不开。谢谢答复！
-- 发布时间：2016/8/11 22:12:00
--
给你弄个 商业版的
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目19.table |
-- 发布时间：2016/8/11 22:21:00
--
谢谢!这个也打不开，我用的是免费版。
-- 发布时间：2016/8/11 22:31:00
--
\'窗口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) \'删除后要重新打开项目,
-- 发布时间：2016/8/11 22:49:00
--
谢谢！成功了。
-- 发布时间：2016/8/11 23:10:00
--
但是，一点击目录树节点，工作表就给删除了。