| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助] (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=63478) |
| -- 作者：yjd -- 发布时间：2015/1/21 20:04:00 -- [求助] 版主您好，数据表有几百条身份证号数据，有什么代码可以检索出无效和错误身份证号的数据。谢谢 |
| -- 作者：有点甜 -- 发布时间：2015/1/21 20:09:00 -- 校验身份证这样写
http://www.foxtable.com/help/topics/2624.htm
循环每一行，这样写
For Each r As Row In Tables("表A").Rows |
| -- 作者：yjd -- 发布时间：2015/1/21 21:23:00 -- 老师，代码可否筛选出无效身份证号，不是在另一列标注True或False，谢谢！ |
| -- 作者：有点甜 -- 发布时间：2015/1/21 21:26:00 -- 一样的意思啊，在另一列得到结果后，再筛选不就行了。 |
| -- 作者：yjd -- 发布时间：2015/1/21 21:30:00 -- 老师，如果单加一列做筛选标识，影响各数据列的逻辑性和美观。谢谢！ |
| -- 作者：有点甜 -- 发布时间：2015/1/21 21:56:00 -- Dim idxs As String = "-1," For Each r As Row In Tables("表A").Rows If ValidPIN(r("第一列")) = False Then idxs &= r("_Identify") & "," End If Next Tables("表A").Filter = "_Identify in (" & idxs.Trim(",") & ")" |
| -- 作者：yjd -- 发布时间：2015/1/21 22:23:00 -- 版主，已解决，谢谢！ |