主题：[求助]已知属性求选择某个节点

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim dt As DataTable = DataTables("表A")
Dim dic As New Dictionary(of Integer, Integer)
Dim prevLevel As Integer = 0
Dim count As Integer = 1
For Each nd As WinForm.TreeNode In e.Form.Controls("TreeView1").AllNodes
    If nd.Level = 0 AndAlso dic.count > 0 Then
        Dim temp = dic(0)
        dic.Clear
        dic.Add(0, temp)
    End If
    If dic.ContainsKey(nd.Level) = False Then
        dic.Add(nd.Level, 1)
    Else
        dic(nd.Level) = dic(nd.Level) + 1
    End If
    For i As Integer = nd.level + 1 To prevLevel
        dic(i) = 0
    Next
   
    prevLevel = nd.Level
    Dim ndr As DataRow
    Dim str As String = ""
    For i As Integer = 0 To nd.Level
        str &= dic(i) & "."
    Next
   
   
    Dim fdr As DataRow = DataTables("表A").find("[_Identify] = '" & nd.tag & "'")
    If fdr IsNot Nothing Then
        fdr("jdzj") = str.TrimEnd(".")
        fdr("wllbmc") = nd.Text
        fdr.baserow("_Sortkey") = count
    End If
    count+=1