主题：移动版 等级查询

Dim fdr = DataTables("权限").find("部门 = '" & bm & "'")

If fdr IsNot Nothing Then
    filter = "[部门] in ('" & fdr("下属").replace(",", "','") & "')"

Else

    filter = "[部门] = '" & bm & "'"
End If
msgbox(filter)