代码如下
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
[此贴子已经被作者于2011-8-12 9:46:16编辑过]
加好友 
发短信
Post By：2011/8/12 9:42:00 [只看该作者]
