以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]用递归函数计算路径  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=85616)
--  作者：ydhcz2009
--  发布时间：2016/5/30 13:02:00
--  [求助]用递归函数计算路径
 表中名单有上下级关系。我想通过表事件DataColChanged，自动生成像目录树章节里的“根据单列内容生成目录树”那样的路径。请教各位大侠
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:用递归函数计算路径.foxdb

 
--  作者：大红袍
--  发布时间：2016/5/30 14:36:00
--  

参考

 

If e.DataCol.Name = "上级_编号" Then
    Dim pdr As DataRow = e.DataTable.Find("编号 = \'" & e.DataRow("上级_编号") & "\'")
    Dim str As String = ""
    Do While pdr IsNot Nothing
        str = "/" & pdr("编号") & str
        pdr = e.DataTable.Find("编号 = \'" & pdr("上级_编号") & "\'")
    Loop
    e.DataRow("绝对路径") = str & "/" & e.DataRow("编号")
End If
--  作者：ydhcz2009
--  发布时间：2016/5/31 7:52:00
--  
看来还是基本功不扎实。
多谢袍爷