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
加好友 
发短信
Post By：2018/7/16 16:03:00 [显示全部帖子]
