下面代码可以实现当前用户单位相等时，加载本单位数据。想增加如果当前用户单位代码是620201801、620201802、620201803的也可以加载数据。求老师指点代码如写，谢谢！
Dim Value()As String
Dim Filter As String
Value = e.Node.FullPath.Split("\")
Select Case e.Node.Level
Case 0
Filter ="GS607 = '" & Value(0) & "'"
Case 1
Filter ="GS607 = '" & Value(0) & "' And Year(GS506) = '" & Value(1) & "'"
End Select
If User.Type <> UserTypeEnum.Administrator AndAlso User.Type <> UserTypeEnum.Developer Then
Filter= "(" & Filter & ") and GS607 = '" & _UserDept & "'"
End If
DataTables("FQzsyjl_FQzsyjl").LoadFilter = Filter
DataTables("FQzsyjl_FQzsyjl").Load()
加好友 
发短信
Post By：2015/11/24 11:06:00 [显示全部帖子]
