主题：查询代码

msgbox(filter) 看一下是否正确。

再有，你的表名是不是写错了？你的可能是窗口副本表 e.Form.Controls("Table1").Table.Filter = Filter

Dim wldm As WinForm.TextBox = e.Form.Controls("物料代码")
Dim wlmc As WinForm.TextBox = e.Form.Controls("物料名称")
Dim ggxh As WinForm.TextBox = e.Form.Controls("规格型号")

Dim filter As String
If wldm.Text <> "" Then
    If filter > "" Then
        filter = filter & " And "
    End If
    filter = filter & "物料代码 Like '%" & wldm.Text & "%' "
End If
If wlmc.Text<> "" Then
    If filter > "" Then
        filter = filter & " And "
    End If
    filter = filter & "物料名称 Like '%" & wlmc.Text & "%'"
End If
If ggxh.Text <> "" Then
    If filter > "" Then
        filter = filter & " And "
    End If
    filter = filter & "规格型号 Like '%" & ggxh.Text & "%'"
End If
If filter > "" Then
Tables("物料信息").Filter=filter
End If