以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  筛选  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=67865)
--  作者：fanjq8686
--  发布时间：2015/5/5 12:02:00
--  筛选

请教：

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

哪里错了？
--  作者：Bin
--  发布时间：2015/5/5 12:03:00
--  
出现什么错误? 代码没发现错误.
--  作者：大红袍
--  发布时间：2015/5/5 12:03:00
--  
Tables("业务管理窗口_Table1").Filter = "[产品类别] = \'" & cplb.Text & "\' And [文审主审] = \'" & User.Name & "\'"
--  作者：fanjq8686
--  发布时间：2015/5/5 12:04:00
--  
AND 后面缺少操作数
--  作者：Bin
--  发布时间：2015/5/5 12:06:00
--  
Messagebox.Show(
Tables("业务管理窗口_Table1").Filter
)

弹出条件看看
--  作者：fanjq8686
--  发布时间：2015/5/5 12:09:00
--  
放在前面？
--  作者：fanjq8686
--  发布时间：2015/5/5 13:20:00
--  

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()

 

只有黄色的一句报错
--  作者：fanjq8686
--  发布时间：2015/5/5 13:31:00
--  

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