Foxtable(狐表)用户栏目专家坐堂 → 动态加载后目录树设计


  共有2036人关注过本帖树形打印复制链接

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

美女呀,离线,留言给我吧!
susu312
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:997 积分:6752 威望:0 精华:0 注册:2018/6/8 16:17:00
  发帖心情 Post By:2018/7/16 22:50:00 [只看该作者]

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表达式,


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/7/16 23:17:00 [只看该作者]

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 & "organName = '" & dr("organName") & "'"
    Dim f2 As String = Functions.Execute("AddFilter",dr("organName"),dt)
    If f2 > "" Then
        If Filter > "" Then
            Filter = Filter & " or "
        End If
        Filter=Filter & f2
    End If
Next
Return Filter

load:
Dim dt As DataTable = DataTables("organList").
Dim Filter As String
For Each dr As DataRow In dt.Select("[organName] = '" & _UserOrgan & "'")
    If Filter > "" Then
        Filter = Filter & " or "
    End If
    Filter=Filter & "organName = '" & dr("organName") & "'"
    Dim f2 As String = Functions.Execute("AddFilter",dr("organName"),dt)
    If f2 > "" Then
        If Filter > "" Then
            Filter = Filter & " or "
        End If
        Filter=Filter & f2
    End If
Next

DataTables("organList").LoadFilter = Filter 

 回到顶部
总数 12 上一页 1 2