Dim h1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim h2 As WinForm.TextBox = e.Form.Controls("TextBox2")

Dim h5 As WinForm.TextBox = e.Form.Controls("TextBox5")
Dim h6 As WinForm.TextBox = e.Form.Controls("TextBox6")
Dim h7 As WinForm.TextBox = e.Form.Controls("TextBox7")

Dim filter As String
With e.Form.Controls("StartDate")
    If .Value IsNot Nothing Then
        If Filter >""  Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 >= #" & .Value & "#"
    End If
End With

With e.Form.Controls("EndDate")
    If .Value IsNot Nothing Then
        If Filter >""  Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 <= #" & .Value & "#"
    End If
End With

If h1.Value <> "" Then
    If filter > "" Then
        filter = filter & " And "
    End If
    filter = "订单明细编号 Like \'%" & h1.Text & "%\'"
End If
If h2.Value <> "" Then
    If filter > "" Then
        filter = filter & " And "
    End If
    filter = "供应商名称 Like \'%" & h2.Text & "%\'"
End If

If h5.Value <> "" Then
    If filter > "" Then
        filter = filter & " And "
    End If
    filter = "物料代码 Like \'%" & h5.Text & "%\'"
End If
If h6.Value <> "" Then
    If filter > "" Then
        filter = filter & " And "
    End If
    filter = "物料名称 Like \'%" & h6.Text & "%\'"
End If
If h7.Value <> "" Then
    If filter > "" Then
        filter = filter & " And "
    End If
    filter = "规格型号 Like \'%" & h7.Text & "%\'"
End If

If Filter > "" Then
Tables("订单总表").Filter=Filter
End If

有的，看上面的第二张图片

此主题相关图片如下：2.jpg

下面这个就是正常的，同一代码，不同上面会有不同效果，奇怪，到底是啥原因造成的

你输错了地方了吧，咋一会儿输在“订单号”上，一会儿又输在“供应商名称”上

谢谢大家，我上传了例子，自己也实在找不到原因，这个表名叫“订单总表”； 在窗口设计中：“订单总表与明细同时录入”中

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:鑫建诚机械有限公司管理系统.rar