以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [原创]目录树代码改错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=124046)
--  作者：有点蓝
--  发布时间：2018/8/29 17:23:00
--  
For Each dr As DataRow In dt.Select("","KMBH")
    If dr.IsNull("KMBH") = False AndAlso dr("KMBH").Length = 4 Then
        Dim i As Integer = CInt(dr("KMBH").Substring(0,1))
msgbox(i) \'这里分别弹出什么值
        nd = tr.Nodes(i).Nodes.Add(dr("KMBH"),dr("KMBH") & " " & dr("KMMC"))
        Functions.Execute("AddChildren",nd,dt,"")
    End If
Next
--  作者：有点甜
--  发布时间：2018/8/29 18:19:00
--  

能否单独做一个实例发上来测试？

 

        Dim i As Integer = CInt(dr("KMBH").Substring(0,1))
        nd = tr.Nodes(i).Nodes.Add(dr("KMBH"),dr("KMBH") & " " & dr("KMMC"))

改成

 

        Dim lb as String = dr("KMLB")
        nd = tr.Nodes(lb).Nodes.Add(dr("KMBH"),dr("KMBH") & " " & dr("KMMC"))
--  作者：有点甜
--  发布时间：2018/8/29 21:25:00
--  

Dim rts As List(Of String) = dt.GetValues("KMLB")

改成

 

Dim rts As List(Of String) = dt.GetValues("KMLB", "", "某列排序")