以文本方式查看主题

-  易表在线答疑  (http://egrid2000.com/dvbbs/index.asp)
--  用户社区  (http://egrid2000.com/dvbbs/list.asp?boardid=2)
----  如何设置这个函数  (http://egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=28772)

--  作者:UROK
--  发布时间:2016/6/28 23:17:00
--  如何设置这个函数
如附件,文件中,有两列,日期列和编号列,希望在同一天内,编号不得重复,如果重复,则提醒“编号不得重复录入,是否清除重复录入数据”,如果选择是,清除录入记录所在的行,如果选择 否,则继续录入。如何设置函数公式。请大侠赐教。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:sss.egd


--  作者:dancedy
--  发布时间:2016/6/28 23:29:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:sss.egd


--  作者:UROK
--  发布时间:2016/6/29 0:06:00
--  
 请帮忙再修改一下。第一,编号列为数值型,不是字符型。第二,想删除重复录入的行,而不是重复录入的数据。
非常感谢。请再次赐教。

--  作者:dancedy
--  发布时间:2016/6/29 14:58:00
--  

1、编号列如果不参与数学运算,建议设置为字符型,即使是字符型,编号为数字也是可以的

    如果非要设置为数值型,公式中 编号>""  改为 编号>0

 

2、删除当前行使用delrow函数

 

if([编号] > "" And CountFor(GridName,"编号"," = ",[编号],"日期"," = ",[日期]) > 1,if(MsgBox("编号不得重复录入,是否清除重复录入数据?",2) = True ,DelRow(GridName,Row), True ), True )


--  作者:UROK
--  发布时间:2016/6/29 19:40:00
--  
谢谢大侠指点!