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

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内部应该多个条件相或

MessageBox.Show(Filter1)   截图看看值是什么

 你msgbox(Filter)看一下，或者截图上来看一下。

 

Filter = Filter & " and (" & Filter1 & ")"

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


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


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

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


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

看5楼.你少了 AND 把两个条件对接.  你直接拼接  就成了

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

分别 加括号