以下是引用有点甜在2014-5-27 16:23:00的发言：
只要设置了，就不可能会加载，你再认真测试一下吧，只会加载符合条件的数据
Dim filter As String = "1=1 "
Select Case User.Roles
Case "经理"
filter = "部门 = '" & User.Group & "'"
Case "主管"
filter = "1=1"
Case "职员"
filter = "职员 = '" & User.Name & "'"
End Select
If e.DataTable.LoadFilter > "" Then
filter = filter & " and " & e.DataTable.Loadfilter
End If
e.DataTable.LoadFilter = filter
老师 还是没有起到控制的功能、你看下我17楼的例子
加好友 
发短信
Post By：2014/5/27 16:38:00 [显示全部帖子]
