以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  取得父节点编号以及节点路径全名  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=21991)
--  作者：chnfo
--  发布时间：2012/7/30 11:55:00
--  取得父节点编号以及节点路径全名
在工作中，经常会遇到cpno重名的情况，有时候只看cpno的名称可能会引起误解。
所以，此时需要显示出cpno的全名，也就是包括这个节点的父节点，以及父节点的父节点……的名称，便于识别。

另外，看了一下关于递归的帮助，大致模糊地思考了一下取父节点编号（sortkey）的方法，不知是否可行——也就是遍历所有的sortkey，这个编号从左边开始的字符包括在本行字符串之内且只比本行字符串少一个分隔符（\\），但再一想，如果sortkey有上千行，那效率可能会很低。

请高人指点。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目196.table
--  作者：狐狸爸爸
--  发布时间：2012/7/30 12:01:00
--  
你要怎么显示？ 我没有看明白你的问题。
--  作者：chnfo
--  发布时间：2012/7/31 11:26:00
--  
可能是我描述得不够清楚。

是这样的，在文件里，sortkey和cpno这两列是手工直接输入的。
而totalcnpo和FindFather这两列是要通过代码实现的展示结果（我在表中已经手工输入了结果，最终代码执行之后要跟这个结果一致）

比如第二行的sortkey是000\\001，cpno是p0101
要求
(1)在totalcpno列里把全称显示出来，即p0101的父节点名称是p0104，那么全称显示应为p0104\\p0101
(2)在findfather列里把p0101的父节点的sortkey显示出来，它的父节点的sortkey＝000
--  作者：chnfo
--  发布时间：2012/7/31 11:37:00
--  
同事，如第6行，sortkey=000\\001\\001，cpno=p0119

则totalcpno不仅要包括它的父节点（sortkey=000\\001)的cpno(p0101)，还要包括它的父节点的父节点（sortkey=000）的cpno（p0104），并且用分隔符隔开，也就是它的全名显示为p0104\\p0101\\p0119

而第6行的父节点的sortkey=000\\001
--  作者：狐狸爸爸
--  发布时间：2012/7/31 12:05:00
--  

很简单，你删除totalcpno和FindFather两列的内容，然后在命令窗口执行下面的代码看看：

 

For Each dr1 As DataRow  In DataTables("data").Select("","sortkey")
    Dim idx As Integer = dr1("sortkey").LastIndexof("\\")
    If idx < 0 Then
        dr1("totalcpno") = dr1("cpno")
        dr1("FindFather") = Nothing
    Else
        Dim pkey As String = dr1("sortkey").Substring(0,idx)
        dr1("FindFather") = pkey
        Dim dr2 As DataRow = DataTables("data").Find("sortkey = \'" & pkey & "\'")
        If dr2 IsNot Nothing
            dr1("totalcpno") = dr2("totalcpno") & "\\" & dr1("cpno")
        Else
            dr1("totalcpno") = "输入错误"
        End If
    End If
Next
--  作者：狐狸爸爸
--  发布时间：2012/7/31 12:09:00
--  

如果你要自动，在DatacolChanged事件设置代码：

 

Select Case e.DataCol.name
    Case "cpno","sortkey"
        Dim dr1 As DataRow = e.DataRow
        Dim idx As Integer = dr1("sortkey").LastIndexof("\\")
        If idx < 0 Then
            dr1("totalcpno") = dr1("cpno")
            dr1("FindFather") = Nothing
        Else
            Dim pkey As String = dr1("sortkey").Substring(0,idx)
            dr1("FindFather") = pkey
            Dim dr2 As DataRow = DataTables("data").Find("sortkey = \'" & pkey & "\'")
            If dr2 IsNot Nothing
                dr1("totalcpno") = dr2("totalcpno") & "\\" & dr1("cpno")
            Else
                dr1("totalcpno") = "输入错误"
            End If
        End If
End Select
--  作者：chnfo
--  发布时间：2012/8/1 15:12:00
--  
解决方式巧妙。巧用分隔符来实现，油菜