主题：动态加载后目录树设计

AddFilter

Dim og As string= args(0)
Dim dt As DataTable = args(1)
Dim drs As List(of DataRow)
drs = dt.Select("[superName] = '" & og & "'")
Dim Filter as string
For Each dr As DataRow In drs
    If Filter > "" Then
            Filter = Filter & " or "
    End If
    Filter=Filter & dr("organName")
    Functions.Execute("AddFilter",Filter,dt)
Next

load:

Dim dt As DataTable = DataTables("organList")
For Each dr As DataRow In dt.datarows
   If dr("organName") = _UserOrgan Then
        Filter=Filter & dr("organName")
        Functions.Execute("AddFilter",Filter,dt)
    End If
Next
 

我想用递归来得到表的filter，返回一个filter表达式，