……
Dim drs As List(of DataRow) = Sqldt.Select(fi,"代码")
For Each dr As DataRow In drs
Dim nd = trv.Nodes.Add(dr("代码"),dr("代码") & "(" & dr("名称") & ")")
For Each cdr As DataRow In Sqldt.Select("代码 like '" & dr("代码") & ".%'","代码")
If cdr("代码").split(".").length = dr("代码").split(".").length + 1 Then
nd.Nodes.Add(cdr("代码"),cdr("代码") & "(" & cdr("名称") & ")")
End If
[此贴子已经被作者于2018/10/13 11:45:49编辑过]