以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于筛选  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=83682)
--  作者：shixu
--  发布时间：2016/4/14 15:42:00
--  关于筛选
请问表中的记录无符合筛选条件情况怎么判断？
--  作者：大红袍
--  发布时间：2016/4/14 15:44:00
--  

Dim fdr As DataRow = DataTables("表a").Find("第一列 = \'123\'")

If fdr Is Nothing Then

    msgbox("一行也没有")

End If
--  作者：shixu
--  发布时间：2016/4/14 16:09:00
--  
Tables("流水").Filter  ="(" & fl & ") And " & flt

我用的 这个语句
--  作者：大红袍
--  发布时间：2016/4/14 16:18:00
--  

Tables("流水").Filter  ="(" & fl & ") And " & flt

If Tables("流水").Rows.Count = 0 Then

    msgbox("0行")

End If
--  作者：shixu
--  发布时间：2016/4/14 16:31:00
--  
嗯，明白了。谢谢。