以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助 查询结果不存在提示  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=44629)
--  作者：远航
--  发布时间：2014/1/5 16:04:00
--  求助 查询结果不存在提示

怎样判断查询结果不存在呢

Dim yddh As String = e.Form.controls("TextBox3").Text
    If yddh IsNot Nothing Then
        Dim filter As String = "号码 = \'" & yddh & "\'"
        Tables("档案").filter = (filter)
    End If

上述代码中如果想提示“未查找到相关结果\' 的提示框 应该怎样做呢
--  作者：lsy
--  发布时间：2014/1/5 16:21:00
--  

Dim yddh As String = e.Form.Controls("TextBox3").Text
If yddh <> "" Then
     Dim flt As String = "号码 = \'" & yddh & "\'"
     Tables("档案").Filter = flt

     If Tables("档案").Rows.Count = 0 Then

          MessageBox.Show("未查找到相关结果")

     End If
End If
--  作者：远航
--  发布时间：2014/1/5 17:07:00
--  
非常感谢，我的窗口是不许表无记录状态，所已查询没有记录的话还是报错，能否遍历到最后一条记录后没有找到的话就提示呢，就是不执行筛选，这个可以吗
--  作者：lsy
--  发布时间：2014/1/5 17:12:00
--  

还是把你的例子传上来，才会作出准确判断，现在又不知道你的那些规定。

[此贴子已经被作者于2014-1-5 17:14:06编辑过]