以文本方式查看主题

-  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=151899)
--  作者：nxqtxwz
--  发布时间：2020/7/7 11:01:00
--  判断表没有记录

下面的代码当表中一条记录都没有就出错了，如何判断表中有没有记录呢？

 

Dim r As Row = Tables("奖惩记录").Current
If r.Isnull("姓名") OrElse r.Isnull("获奖年度") OrElse r.Isnull("等级") OrElse r.Isnull("名称")OrElse r.Isnull("证件") OrElse r.Isnull("颁奖日期") Then
    msgbox("本条记录不完整,请您填写完整申报单再增加新记录!")
Else
    Tables("奖惩记录").Current.Locked = True
    Tables("奖惩记录").AddNew()
End If
--  作者：有点蓝
--  发布时间：2020/7/7 11:14:00
--  
Dim r As Row = Tables("奖惩记录").Current
if r is nothing then return