以文本方式查看主题 -  易表在线答疑  (http://egrid2000.com/dvbbs/index.asp) --  用户社区  (http://egrid2000.com/dvbbs/list.asp?boardid=2) ----  [求助]如何写这个提示公式  (http://egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=8183)

--  作者：moshazhan --  发布时间：2007/5/31 22:10:00 --  [求助]如何写这个提示公式 请教老师：我要求考勤登记表每天一个人只能签到一次，再次签到时，提示“你已签过，请不要重复签到！”，并且自动删除重复记录。请问这个公式该如何写?egd文件下载egd文件下载

--  作者：为爱痴狂 --  发布时间：2007/5/31 23:09:00 --   行验证公式或日期列操作公式： If(FindRow(GridName,"日期", "=" ,[日期],2)>0,MsgBox("重复!"，0) And SetCellText(GridName,Row,"日期",""), True )

--  作者：moshazhan --  发布时间：2007/6/1 8:33:00 --   谢谢啦

--  作者：lxl --  发布时间：2007/6/1 10:14:00 --   两点 1.SetCellText(GridName,Row,"日期","")替换成DelRow(GridName,Row) 2.如果这张表上有不同人的名字的话判断语句FindRow(GridName,"日期", "=" ,[日期],2)>0  应该加上条件, "编号", "=" ,[编号], -=-=-=- 以下内容由 lxl 在 2007年06月01日 10:23am 时添加 -=-=-=- 行验证： If(FindRow(GridName,"日期", "=" ,[日期],"编号", "=" ,[编号],2)>0,MsgBox("重复!"，0) And DelRow(GridName,Row), True )

--  作者：moshazhan --  发布时间：2007/6/1 11:00:00 --   谢谢老师指教！