LoadUserSetting代码:
Dim dr As DataRow = DataTables("userinfo").SQLFind("sname='" & user.Name & "'")
Dim str As String = Functions.Execute("getderpart")
If str > "" Then
If dr("role") <> "仅自己"
DataTables("daily").LoadFilter = "departid in ('" & str.Replace(",","','") & "')"
DataTables("dailyday").LoadFilter = "departid in ('" & str.Replace(",","','") & "')"
Else
DataTables("daily").LoadFilter = "personid in ('" & str.Replace(",","','") & "')"
DataTables("dailyday").LoadFilter = "personid in ('" & str.Replace(",","','") & "')"
End If
Else
DataTables("daily").LoadFilter = "_Identify is null"
DataTables("dailyday").LoadFilter = "_Identify is null"
End If
DataTables("daily").Load
DataTables("dailyday").Load