以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于加判断保存条件的代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=85057)

--  作者:scofields
--  发布时间:2016/5/16 18:58:00
--  关于加判断保存条件的代码
红袍老师,我想在保存按钮中加入一个判断条件,如某某为空时,弹出提示框,提示“某某不能为空”,这个代码怎么写?见下图,保存时“数量”与“包装”均不能为空!
--  作者:scofields
--  发布时间:2016/5/16 18:59:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:判断保存.jpg
图片点击可在新窗口打开查看

--  作者:大红袍
--  发布时间:2016/5/16 19:35:00
--  

比如代码

 

If Tables("表A").FindRow("数量 is null) >= 0 Then

    Msgbox("数量不能为空")

    return

End If


--  作者:scofields
--  发布时间:2016/5/16 20:39:00
--  回复:(大红袍)比如代码 If Tables("表A")...
红袍老师,运行错误,如图:
--  作者:scofields
--  发布时间:2016/5/16 20:40:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:运行错误.png
图片点击可在新窗口打开查看

--  作者:大红袍
--  发布时间:2016/5/16 21:10:00
--  

If Tables("表A").FindRow("数量 is null") >= 0 Then

    Msgbox("数量不能为空")

    Return

End If


--  作者:wyz20130512
--  发布时间:2016/5/16 21:13:00
--  

If Tables("表A").FindRow("数量 is null") >= 0 OrElse Tables("表A").FindRow("包装 is null") >= 0 Then

    Msgbox("数量或包装不能为空")

    return

End If

 

试试!(3楼漏了个双引号)

[此贴子已经被作者于2016/5/16 21:15:01编辑过]

--  作者:scofields
--  发布时间:2016/5/16 21:25:00
--  回复:(wyz20130512)If Tables("表A").FindRow("数量...
感谢指导!这样下来,数据好像保存到数据库里面了啊,能不能在没有录完实现数据不保存到数据库,并使“新增计划”的Enable属性为False?
--  作者:scofields
--  发布时间:2016/5/16 21:25:00
--  回复:(大红袍)If Tables("表A").FindRow("数量 is ...
感谢指导!这样下来,数据好像保存到数据库里面了啊,能不能在没有录完实现数据不保存到数据库,并使“新增计划”的Enable属性为False?
--  作者:大红袍
--  发布时间:2016/5/16 21:27:00
--  
save代码写在最后面,不执行save不会保存的啊。