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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助一个目录树写入的问题

共有2505人关注过本帖树形打印复制链接主题：求助一个目录树写入的问题

blackzhu

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

加好友

发短信

等级：狐仙帖子：9875 积分：57590 威望：0 精华：15 注册：2008/9/1 9:45:00

求助一个目录树写入的问题 发帖心情

Post By：2014/9/22 8:23:00 [只看该作者]

希望目录树勾选的时候是这样:

此主题相关图片如下：图片1.jpg

勾选后,用按钮写入的时候是这样:

此主题相关图片如下：图片2.jpg

下载信息 [文件大小：下载次数： ]
点击浏览该文件:目录树写入.foxdb

逛逛

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

加好友

发短信

等级：版主帖子：1693 积分：12117 威望：0 精华：7 注册：2013/7/11 10:52:00

Post By：2014/9/22 8:34:00 [只看该作者]

直接遍历树的Nodes,如果选择为真，就新建行。第一列等于节点名，再遍历节点的Nodes进行拼接

不行吗？

lsy

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

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2014/9/22 9:00:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:目录树写入.foxdb

blackzhu

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

加好友

发短信

等级：狐仙帖子：9875 积分：57590 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2014/9/22 9:04:00 [只看该作者]

昨日绕进去了.没写出来

lsy 效果不对,看看一楼的图片不是一行一节点,一行一父节点以及相对应的直接点勾选的节点标题用逗号区分

[此贴子已经被作者于2014-9-22 9:05:24编辑过]

lsy

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

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2014/9/22 9:21:00 [只看该作者]

DataTables("表A").DataRows.Clear
Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nr As Row
For Each nd As WinForm.TreeNode In tv.AllNodes
    If nd.Level = 1 AndAlso nd.Checked Then
        If DataTables("表A").Find("第一列 = '" & nd.ParentNode.Name & "'") Is Nothing Then
            nr = Tables("表A").AddNew
            nr("第一列") = nd.ParentNode.Name
            For Each nd1 As WinForm.TreeNode In nd.ParentNode.Nodes
                If nd1.Checked Then
                    nr("第二列") + = nd1.Name & ","
                End If
            Next
            nr("第二列") = nr("第二列").Trim(",")
        End If
    End If
Next

blackzhu

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

加好友

发短信

等级：狐仙帖子：9875 积分：57590 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2014/9/22 9:34:00 [只看该作者]

这次对了昨日搞的太晚,给遍历绕进去了.

下一主题 >> << 上一主题

主题：求助一个目录树写入的问题