主题：行政区域输入

If e.Node.Level = 0 Then '如果是顶层节点 

    Return '则返回

End If

Dim Vals() As String = e.Node.FullPath.Split("\")

Dim qys() As String = = {"省区", "市县", "乡镇", "街道" }

Dim Filter As String

For i As Integer = 0 To Vals.Length - 1

    Filter = Filter & "and " & qys(i) & " = '" & Vals(i) & "'"

Next

Filter = Filter.TrimStart("and ")

Dim dr As DataRow = DataTables("行政区域").Find(Filter)

If dr IsNot Nothing Then

    Dim dr1 As dataRow = Tables("住址").Current.DataRow

    For n As Integer = 0 To Vals.Length - 1

        dr1(qys(n)) = dr(qys(n))

    Next

End If

e.Form.Close()