LoadUserSetting事件
Dim dr As DataRow = DataTables("用户管理").Find("姓名='" & User.Name & "'")
If dr Is Nothing OrElse dr.IsNull("加载集合") Then
DataTables("表B").LoadFilter = "false"
DataTables("表C").LoadFilter = "false"
DataTables("表B").load
DataTables("表C").load
Else
Dim dtn() As String = dr("加载集合").split(",")
For Each tn As String In dtn
Dim ts() As String = tn.Split("|")
Select Case ts(1)
Case "本人"
DataTables(ts(0)).LoadFilter = "第一列='" & User.Name & "'"
Case "所有"
DataTables(ts(0)).LoadFilter = ""
Case Else
DataTables(ts(0)).LoadFilter = "第一列 in ('" & dr("本部集合").replace(",","','") & "')"
End Select
DataTables(ts(0)).load
Next
End If
加好友 
发短信
Post By：2016/9/2 8:26:00 [显示全部帖子]
