- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求助一个目录树写入的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=57253)
-- 发布时间：2014/9/22 8:23:00
-- 求助一个目录树写入的问题
希望目录树勾选的时候是这样:
此主题相关图片如下：图片1.jpg
勾选后,用按钮写入的时候是这样:
此主题相关图片如下：图片2.jpg
-- 发布时间：2014/9/22 8:34:00
--
直接遍历树的Nodes,如果选择为真，就新建行。第一列等于节点名，再遍历节点的Nodes进行拼接
不行吗？
-- 发布时间：2014/9/22 9:00:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:目录树写入.foxdb |
-- 发布时间：2014/9/22 9:04:00
--
昨日绕进去了.没写出来
lsy 效果不对,看看一楼的图片 不是一行一节点,一行一父节点以及相对应的直接点勾选的节点标题 用逗号区分
[此贴子已经被作者于2014-9-22 9:05:24编辑过]
-- 发布时间：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
-- 发布时间：2014/9/22 9:34:00
--
这次对了 昨日搞的太晚,给遍历绕进去了.