以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  筛选时没有数据就会报错,如何做提示。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170875)

--  作者:yifan3429
--  发布时间:2021/8/10 11:09:00
--  筛选时没有数据就会报错,如何做提示。
\'后台不加载表查询
Dim txt As String = e.Form.Controls("订单检索").Text
Dim tbl As Table = Tables("订单表选择_Table1")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "\'%" & txt & "%\'"
    tbl.DataTable.loadFilter = "订单ID Like " & txt & "and 权限组 Like \'%" & User.Name & "%\'"
    tbl.DataTable.load
End If

--  作者:有点蓝
--  发布时间:2021/8/10 11:31:00
--  
上面代码不会报错。检查其它代码:http://www.foxtable.com/webhelp/scr/1485.htm