谁会做这样的目录树 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 谁会做这样的目录树

共有9161人关注过本帖树形打印复制链接主题：谁会做这样的目录树

实话实说

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00

谁会做这样的目录树 发帖心情

Post By：2012/11/22 15:54:00 [只看该作者]

觉得很实用,但一时做不来。项目中有三个窗口，分别是目录树的不同功能需求

下载信息 [文件大小：下载次数： ]
点击浏览该文件:产品代码.table

lin_hailun

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2012/11/22 16:07:00 [只看该作者]

由目录树生成数据表的情况应该很少遇到吧？

[此贴子已经被作者于2012-11-22 16:07:33编辑过]

实话实说

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00

Post By：2012/11/22 16:17:00 [只看该作者]

有需要,这里有个简单的

DataTables("表A").DataRows.Clear

Dim trv As WinForm.TreeView = Forms("目录树→表A").Controls("TreeView1")
Dim t As Table = Tables("表A")
Dim n As Integer
For Each nd As WinForm.TreeNode In trv.AllNodes
    Dim r As Row = t.AddNew
    r(t.cols(0)) = t.Rows(n)(0)
    'r(t.cols(1)) = t.Rows(n)(1)
    'r(t.cols(2)) = t.Rows(n)(2)
    r(t.cols(nd.Level)) = nd.Text
    n = t.Rows.Count -1
Next

DataTables("表A").DeleteFor("规格 is Null ")

但我想要1楼的功能

[此贴子已经被作者于2012-11-22 16:19:12编辑过]