试试改成
Filter = "[项目名称] = '" & dr(0) & "'And [施工合同段] = '" & dr(1) & "' And [章节] = '" & dr(2) & "' And [子目号] = '" & arr(0) & "' and 子目名称='" & arr(1) & "' And [支付编号] = '" & arr2(0) & "' and 细目名称='" & arr2(1) & "'And [某列] = '" & dr(5) & "'"
如果不行,看代码无法处理。请做一个具体实例上来测试。