以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助 模糊查询提示  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=148706)
--  作者：long086
--  发布时间：2020/4/13 23:29:00
--  求助 模糊查询提示

设置了一个模糊查询功能，用下面的代码可以实现功能，但是如果没有查询到内容就是不显示，想实现如果没有数据给个弹窗提示 “没有查询到数据”，代码应该怎么改

 

 

       If cx.Value Is Nothing  Then
            MessageBox.Show("请输入查询内容!")
            Return
        Else
            filter = "用户名称 like \'%" & cx.text & "%\'"
        End If
--  作者：程兴刚
--  发布时间：2020/4/14 0:04:00
--  
If cx.Value Is Nothing  Then
    MessageBox.Show("请输入查询内容!")
    Return
Else
    filter = "用户名称 like \'%" & cx.text & "%\'"
End If
Tables("表A").Filter = filter
If Tables("表A").Rows.Count < 1
MessageBox.show("筛选数据成功,没有筛选到符合条件的行!","系统提示")