以文本方式查看主题

-  易表在线答疑  (http://egrid2000.com/dvbbs/index.asp)
--  用户社区  (http://egrid2000.com/dvbbs/list.asp?boardid=2)
----  请帮忙修改一下插入日期按钮的函数公式  (http://egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=28759)

--  作者:newuser
--  发布时间:2016/6/16 6:51:00
--  请帮忙修改一下插入日期按钮的函数公式
 文件第一列为 日期 (时间型),希望在菜单方案中,设置一个 插入日期 按钮,点击按钮后,自动判断日期列中是否有今天日期,如果没有,则插入今日日期,如果已经有了,则出现提示“日期已经存在,是否继续插入日期”,如果点击是,则继续插入日期,如果选择 否 ,则不进行操作。请问,按钮的公式如何设置?感谢。
[此贴子已经被作者于2016/6/16 6:51:34编辑过]

--  作者:dancedy
--  发布时间:2016/6/16 8:12:00
--  

if(FindRow(GridName,"日期"," = ",today()) > 0,if(MsgBox("日期已经存在,是否继续插入日期?",2) = True ,AddRow(GridName,"日期",today()), True ),AddRow(GridName,"日期",today()))

 

类似的问题建议以后在同一个帖子中提问喔,这样方便共用例子文件


--  作者:newuser
--  发布时间:2016/6/16 8:31:00
--  
 谢谢