例子在这里:http://www.foxtable.com/help/topics/1058.htm
Dim txt As String = e.Form.Controls("ID查询").TextDim tbl As Table = Tables("产品表")If txt = "" Then tbl.Filter = ""Else txt = "'产品ID= '" & txt & "'" tbl.Filter =txtEnd If