代码如下

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("窗口2_Table1")
tbl.Filter= "leveal=2 and deleted=0 and isstop=0 "
If txt = "" Then
    tbl.Filter = "leveal=2 and deleted=0 and isstop=0 "
Else
    txt = "\'*" & txt & "*\'"
    tbl.filter = "(pfullname Like " & txt & " Or Standard Like " & txt & " Or Unit1 Like " & txt & ") and (leveal=2 and deleted=0 and isstop=0 ) "
End If

如何 加上 order by pfullname desc,standard desc,unit1 desc

最好是 所有的tbl.filter 都加上 order by pfullname desc,standard desc,unit1 desc

我加上 order by 后 错误如下：

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("窗口2_Table1")
tbl.Filter= "leveal=2 and deleted=0 and isstop=0  order by pfullname desc,standard desc,unit1 desc"
If txt = "" Then
    tbl.Filter = "leveal=2 and deleted=0 and isstop=0  order by pfullname desc,standard desc,unit1 desc"
Else
    txt = "\'*" & txt & "*\'"
    tbl.filter = "(pfullname Like " & txt & " Or Standard Like " & txt & " Or Unit1 Like " & txt & ") and (leveal=2 and deleted=0 and isstop=0 ) order by pfullname desc,standard desc,unit1 desc"
End If

tbl.filter = "(pfullname Like " & txt & " Or Standard Like " & txt & " Or Unit1 Like " & txt & ") and (leveal=2 and deleted=0 and isstop=0 ) "
t.Sort = "pfullname desc,standard desc,unit1 desc"

参考：

http://www.foxtable.com/help/topics/0451.htm