以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  目录树 求解  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=65147)
--  作者：卟离卟弃
--  发布时间：2015/3/10 13:09:00
--  目录树 求解

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20150310130321.png
图片点击可在新窗口打开查看

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.CreateTree("表a","物料级别",".")
For i As Integer  = trv.AllNodes.count - 1  To 0 Step -1
    Dim nd As WinForm.TreeNode = trv.Allnodes(i)
   Dim dr As DataRow = DataTables("表a").Find("物料级别 = \'" & nd.FullPath.Replace("\\",".") & "\'")
    If dr IsNot Nothing
        nd.text = dr("零件号")
    End If
Next


多谢大家！
--  作者：Bin
--  发布时间：2015/3/10 14:20:00
--  
http://www.foxtable.com/help/topics/2621.htm
--  作者：有点甜
--  发布时间：2015/3/10 14:21:00
--  
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.CreateTree("表a","物料级别",".")
For i As Integer  = trv.AllNodes.count - 1  To 0 Step -1
    Dim nd As WinForm.TreeNode = trv.Allnodes(i)
    Dim dr As DataRow
    If nd.Level = 0 Then
        dr = DataTables("表a").Find("物料级别 like \'" & nd.FullPath.Replace("\\",".") & ".000\'")
    Else
        dr = DataTables("表a").Find("物料级别 = \'" & nd.FullPath.Replace("\\",".") & "\'")
    End If
    If dr IsNot Nothing
        nd.text = dr("零件号")
    End If
Next
--  作者：Bin
--  发布时间：2015/3/10 14:23:00
--  
直接用2楼方法,方便实用