- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]目录树出问题了，请教大师们解救 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=86013)
-- 发布时间：2016/6/7 22:43:00
-- [求助]目录树出问题了，请教大师们解救
如标题，如图
谢谢，
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
按道理是只显示1、2的集合，
此主题相关图片如下：qq图片20160607223811.png
现在出两个集了
此主题相关图片如下：qq图片20160607223811.png现在出两个集了
-- 发布时间：2016/6/7 23:18:00
--
大师们，救救场呀
-- 发布时间：2016/6/8 7:48:00
--
之前可以正常的，不知道怎么就变这样了
-- 发布时间：2016/6/8 8:13:00
--
找了许久没找到原因
哪位大师指点下
-- 发布时间：2016/6/8 11:01:00
--
\'用递归函数生成 目录树(目录带序号)
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
Dim dt As DataTable = DataTables("表A")
tr.StopRedraw()
tr.Nodes.Clear
tr.Nodes.Add("全部")
For Each dr As DataRow In dt.Select("第二列 is not null")
If dr.IsNull("第一列") Then
nd = tr.Nodes.Add(dr("第二列"),dr("第二列") & dr("第三列"))
Functions.Execute("AddChildren",nd,dt)
End If
Next
-- 发布时间：2016/6/9 9:16:00
--
谢谢大红袍老师！
基础不好，以后还要多学习