主题：找下级部门

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

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

还参考了这段，原理是差不多的，我改来改去都不对

Dim drs As New List(of DataRow)
Dim keys As New List(of String)
For Each dr As DataRow In DataTables("表A").DataRows
    keys.Clear
    Dim dr1 As DataRow = dr
    keys.Add(dr("键"))
    Do
        Dim pkey As String = dr1("父键")
        If keys.Contains(pkey)
            drs.Add(dr)
            Exit Do
        Else
            keys.Add(pkey)
            dr1 = DataTables("表A").Find("键 = '" &  pkey  & "'")
            If dr1 Is Nothing Then
                Exit Do
            End If
        End If
    Loop
Next

'列出死循环的行的标题
For Each dr As DataRow In drs
    output.show(dr("标题"))
Next

这个不必要用递归的。

可以显示任一级下级。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:目录树显示下级.table