主题：求助权限控制中的一个小问题

Dim Filter As String = "1=1" '设置筛选条件

With e.Form.Controls("DW")

    If .Value IsNot Nothing Then

        Filter &= " and {部门档案}.所属单位 = '" & .Value & "'"

    End If

End With

此主题相关图片如下：123456.png

此主题相关图片如下：6543121.png

目前的情况是，如果窗口中的单位不选，点击下面的按钮，图或表将会出来所有单位的数据，即使DW控件中可选的单位只有一个

如果DW这个控件不进行选择的情况下，如何使得点击按钮时只出来控件中可选的单位呢

Dim Filter As String = "1=1" '设置筛选条件

With e.Form.Controls("DW")

    If .Value IsNot Nothing Then

        Filter &= " and {部门档案}.所属单位 = '" & .Value & "'"

    Else

        Filter &= " and {部门档案}.所属单位 in ('" & .ComboList.Replace("|", "','") & "')"

    End If

End With