主题：[求助]

版主您好，数据表有几百条身份证号数据，有什么代码可以检索出无效和错误身份证号的数据。谢谢

 校验身份证这样写

 

http://www.foxtable.com/help/topics/2624.htm

 

 循环每一行，这样写

 

For Each r As Row In Tables("表A").Rows
    r("第二列") = ValidPIN(r("第一列"))
Next

老师，代码可否筛选出无效身份证号，不是在另一列标注True或False，谢谢！

 一样的意思啊，在另一列得到结果后，再筛选不就行了。

老师，如果单加一列做筛选标识，影响各数据列的逻辑性和美观。谢谢！

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(",") & ")"

版主，已解决，谢谢！