主题：找下级部门

你这个找出下级部门是很简单的，例如找出01的下级部门：

For Each r As DataRow In DataTables("部门").Select("编码 Like '01*'")
    output.show(r("编码"))
Next

例如列出01的所有下级部门：

Dim f1 As String = "01"
For Each r1 As DataRow In DataTables("部门").DataRows
    Dim r2 As DataRow = r1
    Do While r2 IsNot Nothing
        If r2("上级编码") = f1 Then
            output.show(r1("名称"))
            Exit Do
        Else
            r2 = DataTables("部门").Find("编码 = '" & r2("上级编码") & "'")
        End If
    Loop
Next