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