With e.Form.Controls("成品编码1")
If .Value IsNot Nothing Then
Filter = "成品编码 = '" & .Value & "'"
End If
End With
改为
With e.Form.Controls("成品编码1")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "成品编码= '" & .Value & "'"
End If
End With