主题：[求助]关于模糊查询

1、修改代码

Dim t As Table = Tables("订单表")
Dim str As String = e.Form.controls("textbox1").text
Dim filter As String = "1=1"
For Each s As String In str.Split("*")
    filter &= " and 订单号 like '%" & s & "%'"
Next
If filter <> "1=1" Then
    DataTables("订单表").loadfilter= filter
    DataTables("订单表").load
End If

2、你查询的时候，如果数据量过大，可以用分页处理

http://www.foxtable.com/webhelp/scr/1928.htm

Dim t As Table = Tables("订单表")
Dim str As String = e.Form.controls("textbox1").text
Dim filter As String = "1=1"
For Each s As String In str.Split("*")
    filter &= " and 订单号 like '%" & s & "%'"
Next
If filter <> "1=1" Then
    DataTables("订单表").loadfilter= filter
    DataTables("订单表").load

Else

    DataTables("订单表").loadfilter= "1=2"
    DataTables("订单表").load
End If