标题：如何 加上 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 "
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

 

 

此主题相关图片如下：102.jpg

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