以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]递归目录树问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=59386)
--  作者：lhlxl
--  发布时间：2014/11/3 14:20:00
--  [求助]递归目录树问题
例子是帮助里的，现在想叫进行扩展。根据文本框里的内容，单击按钮形成单一父键的目录树。请斑竹和达人帮忙。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:测试目录树.foxdb
--  作者：有点甜
--  发布时间：2014/11/3 14:28: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("产品图号")
Dim v As String = e.Form.Controls("TextBox1").Text
Dim filter = ""
If v > "" Then
    filter = "标题 = \'" & v & "\'"
Else
    filter = "父键 is null"
End If
For Each dr As DataRow In dt.Select(filter)
    nd = tr.Nodes.Add(dr("键"),dr("标题"))
    Functions.Execute("AddChildren",nd,dt)
Next
tr.ResumeRedraw()