主题：筛选

请教：

    Tables("业务管理窗口_Table1").Filter = "[产品类别] = '" & cplb.Text & "' Aad [文审主审] = '" & User.Name & "'"

哪里错了？

出现什么错误? 代码没发现错误.

Tables("业务管理窗口_Table1").Filter = "[产品类别] = '" & cplb.Text & "' And [文审主审] = '" & User.Name & "'"

AND 后面缺少操作数

Messagebox.Show(

Tables("业务管理窗口_Table1").Filter

)

放在前面？

Dim cplb As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Tables("业务管理窗口_Table1").StopRedraw()
If User.IsRole("主检") And  流程标志 = "检验" Then
    Tables("业务管理窗口_Table1").Filter = "[产品类别] = '" & cplb.Text & "' And [检验主检] = '" & User.Name & "'"
ElseIf User.IsRole("主审") Then
    Tables("业务管理窗口_Table1").Filter = "[产品类别] = '" & cplb.Text & "' Aad [文审主审] = '" & User.Name & "'"
ElseIf User.IsRole("辅检") And  流程标志 = "检验" Then
    Tables("业务管理窗口_Table1").Filter = "[产品类别] = '" & cplb.Text & "' And [检验辅检] = '" & User.Name & "'"
ElseIf User.IsRole("样机核查主检") And 流程标志 = "核查" Then
    Tables("业务管理窗口_Table1").Filter = "[产品类别] = '" & cplb.Text & "' And [核查主检] = '" & User.Name & "'"

ElseIf (User.IsRole("室主任") Or User.IsRole("室副主任")) And User.Group = "技术审查室" Then
    Tables("业务管理窗口_Table1").Filter = "[产品类别] = '" & cplb.Text & "' And [文审部门] = '" & User.Group & "'"

ElseIf (User.IsRole("室主任") Or User.IsRole("室副主任")) And User.Group = "电气一室" Then
    If 流程标志 = "核查" Then
        Tables("业务管理窗口_Table1").Filter = "[产品类别] = '" & cplb.Text & "' And [核查部门] = '" & User.Group & "' "
    End If
    If 流程标志 = "检验" Then
        Tables("业务管理窗口_Table1").Filter = "[产品类别] = '" & cplb.Text & "' And [检验部门] = '" & User.Group & "' "
    End If
ElseIf (User.IsRole("室主任") Or User.IsRole("室副主任")) And User.Group = "电气二室" Then
    If 流程标志 = "核查" Then
        Tables("业务管理窗口_Table1").Filter = "[产品类别] = '" & cplb.Text & "' And [核查部门] = '" & User.Group & "' "
    End If
    If 流程标志 = "检验" Then
        Tables("业务管理窗口_Table1").Filter = "[产品类别] = '" & cplb.Text & "' And [检验部门] = '" & User.Group & "' "
    End If

ElseIf (User.IsRole("室主任") Or User.IsRole("室副主任")) And User.Group = "防爆一室" Then
    Tables("业务管理窗口_Table1").Filter = "[产品类别] = '" & cplb.Text & "' And [检验部门] = '" & User.Group & "'"
ElseIf (User.IsRole("室主任") Or User.IsRole("室副主任")) And User.Group = "防爆二室" Then
    Tables("业务管理窗口_Table1").Filter = "[产品类别] = '" & cplb.Text & "' And [检验部门] = '" & User.Group & "'"
ElseIf (User.IsRole("室主任") Or User.IsRole("室副主任")) And User.Group = "防爆三室" Then
    Tables("业务管理窗口_Table1").Filter = "[产品类别] = '" & cplb.Text & "' And [检验部门] = '" & User.Group & "'"
Else
    Tables("业务管理窗口_Table1").Filter = "[产品类别] = '" & cplb.Text & "'"
End If
Tables("业务管理窗口_Table1").ResumeRedraw()

 

只有黄色的一句报错

谢谢3楼，高人！这问题都能发现。