Dim a As String = e.Form.Controls("纸张").Text
Dim b As String = e.Form.Controls("数量").Text
Dim c As String = e.Form.Controls("面数").Text
Dim d As String = e.Form.Controls("后道").Text
Dim f As String = e.Form.Controls("价格").Text
Dim g As String = Tables("表A").Current("总计")
Dim tbl As Table = Tables("表A")
If a = "" And b = "" And c = "" And d = "" And f = "" Then
    tbl.Filter = ""
    MessageBox.show("必须输入","提示")
Else
    a = "\'*" & a & "*\'"
    b = "\'*" & b & "*\'"
    c = "\'*" & c & "*\'"
    d = "\'*" & d & "*\'"
    f = "\'*" & f & "*\'"
    tbl.Filter = "纸张 Like " & a & " And 数量 Like " & b & " And 面数 Like " & c & " And 后道 Like " & d & ""
f = g
End If

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

狐爸我用上面这段话筛选数据  后道为不腹膜的时候可以筛选出精确的值，但是后道为腹膜的时候就不能精确了。