主题：关于运算符后缺少操作数

If ZhiYuan.Value = "" Then
Else
    For Each dr As Row In Tables("职员下拉_职员").GetCheckedRows
        If Filter<>"" Then
            Filter = Filter & " Or [ERP编码] = '"& dr("ERP编码") &"'"
        Else
            Filter = "  [ERP编码] = '"& dr("ERP编码") &"'"
        End If
    Next
End If
If buMen.Value = "" Then
Else
    Dim bHasChild As Boolean = False
    For Each nd As WinForm.TreeNode In tr.AllNodes
        If nd.Checked = True Then
            For Each ndChild As WinForm.TreeNode In nd.AllNodes
                If ndChild IsNot Nothing Then
                    bHasChild  = True
                    Exit For
                End If
            Next
            If bHasChild  = False Then '最后一级结点
                If Filter1 <>"" Then  '
                    Filter1 = Filter1 & " Or [部门] = '"& nd.Text &"'"
                Else
                    Filter1 = " [部门] = '"& nd.Text &"'"
                End If     
            End If
           
        End If
    Next
MessageBox.Show(Filter1)
    Filter = Filter & (Filter1)
MessageBox.Show(Filter)
End If
打印结果是对的
此主题相关图片如下：截图00.png

我怎么能将Filter1 弄成一个整体呢？因为Fiter应该与Filter1相与，而Filter1内部应该多个条件相或

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


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


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

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


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

我想实现Fiter和Filter1两个条件各自为整体，然后And 怎么办

分别加括号不起作用

Filter = (Filter) &"And"& (Filter1)
此主题相关图片如下：截图06.png


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

Filter = "("& Filter &") And ("& Filter1 &")"不是很对呀亲，着实不明白该句意思，如果括号当个字符，为啥中间两边括号没有用双引号引起，And孤立存在，若Filter引起的是整个字符串，("& Filter &") 又是何意思？

明白了，") And ("是一个整体