主题：[求助]数据筛选

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

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

 

 

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

对哦