| 以文本方式查看主题 - 易表在线答疑 (http://egrid2000.com/dvbbs/index.asp) -- 用户社区 (http://egrid2000.com/dvbbs/list.asp?boardid=2) ---- 身份证号输入规则 (http://egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=4577) |
| -- 作者：可可西里 -- 发布时间：2006/9/13 12:52:00 -- 身份证号输入规则 egd文件下载 请教：表中身份证号必须为15位或者18位，当在录入窗口中录入的身份证号不是15位或者18位时，回车即提示出错。 |
| -- 作者：czy -- 发布时间：2006/9/13 12:56:00 -- 身份证号列操作公式：if([身份证号]="",true,if(Len([身份证号])=15 or Len([身份证号])=18, True,MsgBox("提示!",0))) |
| -- 作者：可可西里 -- 发布时间：2006/9/13 13:01:00 -- 太好了，谢谢版主。 |
| -- 作者：Andyguobao -- 发布时间：2006/9/13 15:19:00 -- 下面引用由czy在 2006/09/13 00:56pm 发表的内容： 身份证号列操作公式：if(="",true,if(Len()=15 or Len()=18, True,MsgBox("提示!",0))) 把身份证号的列操作公式设为这样是不是更好些？请斧正！ IF(Len(身份证号)＝0 or Len(身份证号)＝15 orLen(身份证号)＝18,"身份证号",Msgbox("你输入的号码不正确，请重新输入！",0,1) And SetCellText(Gridname,row,"身份证号","")) IF(Len([身份证号])=0 or Len([身份证号])=15 orLen([身份证号])=18,[身份证号],Msgbox("你输入的号码不正确，请重新输入！",0,1) And SetCellText(Gridname,row,"身份证号","")) 不好意思，忘打列标题的括符了！！ |
| -- 作者：可可西里 -- 发布时间：2006/9/13 19:29:00 -- 嗯，好！谢谢。 |
| -- 作者：czy -- 发布时间：2006/9/13 19:34:00 -- 下面引用由Andyguobao在 2006/09/13 03:19pm 发表的内容： 把身份证号的列操作公式设为这样是不是更好些？请斧正！ IF(Len(身份证号)＝0 or Len(身份证号)＝15 orLen(身份证号)＝18,"身份证号",Msgbox("你输入的号码不正确，请重新输入！",0,1) And ... 是的，不过这些公式好象还能继续完善，比如从新将焦点定位到身份证列，如果是窗口操作的话，重新将焦点移动到身份证字段等等... |
| -- 作者：smileboy -- 发布时间：2006/9/13 20:54:00 -- 呵呵，CZY版主考虑周到 |
| -- 作者：Andyguobao -- 发布时间：2006/9/14 8:08:00 -- CZY版主完善一下嘛！我也想学习学习！ |
| -- 作者：smileboy -- 发布时间：2006/9/14 12:39:00 -- IF(Len([身份证号])=0 or Len([身份证号])=15 orLen([身份证号])=18,[身份证号],Msgbox("你输入的号码不正确，请重新输入！",0,1) And SetCellText(Gridname,row,"身份证号","") and move(row,col-1)) |
| -- 作者：Andyguobao -- 发布时间：2006/9/14 16:06:00 -- 谢谢SmileBoy版主。函数和变量还没看完，呵呵！ |