老师这样生成树之后,排序很乱,如何按代码来排序
Dim cmd As new SQLCommand
Dim Sqldt As DataTable
cmd.C
cmd.CommandText = "Se lect FNumber As 代码,FName As 名称,FLevel as 层次 from {t_Item} where [FItemClassID] = '2001'"
Sqldt = cmd.ExecuteReader
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim fi As String = "代码 not like '%.%'"
trv.nodes.Clear
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.Se lect("代码 like '" & dr("代码") & ".%'")
If cdr("代码").split(".").length = dr("代码").split(".").length + 1 Then
nd.Nodes.Add(cdr("代码"),cdr("代码") & "(" & cdr("名称") & ")")
End If