各位大神：

我做了一个列表筛选功能，代码如下：

注，此方法有别于《用户只能看自己的数据》示例。

Private Sub Form_Open(Cancel As Integer)
    ApplyTheme Me
    LoadLocalLanguage Me
    If HasPermission("采购单(行政/五金类)", "五金采购") = True Then
    Me.Filter = "采购类型='五金采购'"
    End If
    If HasPermission("采购单(行政/五金类)", "行政采购") = True Then
    Me.Filter = "采购类型='行政采购'"
    End If
    If HasPermission("采购单(行政/五金类)", "质检采购") = True Then
    Me.Filter = "采购类型='质检采购'"
    End If
    Me.Filter = "制单日期>DateSerial(Year(Date()),Month(Date())-3,Day(Date()))"
    Me.FilterOn = True
    ApplyColumnLayout Me
End Sub

目的是根据权限控制功能，不同的人只能看到自己负责的采购类型，但是这段代码只能单独执行，也就是勾选了三个权限，但是只能筛选出“质检采购”的数据，无法同时筛选出所有的数据，勾选“五金采购”和“行政采购”，则只能

筛选出“行政采购”，而无法筛选出“五金采购”和“行政采购”，不知道怎么才能做到根据权限控制筛选出相应的数据。