主题：产品ID查询

例子在这里：
http://www.foxtable.com/help/topics/1058.htm

Dim txt As String = e.Form.Controls("ID查询").Text
Dim tbl As Table = Tables("产品表")
If txt = "" Then
     tbl.Filter = ""
Else
     txt = "'产品ID= '" & txt & "'"
     tbl.Filter =txt
End If