主题：请教狐狸爸爸：身份证号码有效性验证，提取籍贯、性别、出生日期、年龄信息

我不懂身份证验证规则，没有办法帮你改。

籍贯是无法提取的，除非你有籍贯的编码数据库，出生日期可以提取，提取了出生日期，年龄也就出来了。

提取出生日期：

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

这是我在用的，试试

    If e.DataCol.Name = "身份证号" Then
        If e.DataRow.IsNull("身份证号") Then
            e.DataRow("出生年月") = Nothing
            e.DataRow("性别") = Nothing
            e.DataRow("年龄") = Nothing
            e.DataRow("户口地址") = Nothing
            MessageBox.Show("请输入身份证号码")
            Return
        ElseIf e.NewValue.SubString(6,2) <> 19 Then
            MessageBox.Show("身份证号码格式有误,请检查")
            Return
        ElseIf e.NewValue.Length = 18 Then
            e.DataRow("出生年月") = ReadBirthday(e.DataRow("身份证号"))
            e.DataRow("性别") = ReadSex(e.DataRow("身份证号"))
        Else
            MessageBox.Show("身份证号码位数有误,请检查")
            Return
        End If
        If e.NewValue <> Nothing Then
            With DataTables("sfz")
                .LoadFilter = "[BM] = '" & e.NewValue.SubString(0,6) & "'"
                .Load()
            End With
            Dim dr As DataRow
            dr = DataTables("sfz").Find("[BM] = '" & e.NewValue.SubString(0,6) & "'")
            If dr IsNot Nothing Then
                e.DataRow("户口地址") = dr("DQ")
            End If
            Dim Wi() As Integer = {7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2}
            Dim Ci() As Char = {"1", "0", "X", "9", "8", "7", "6", "5", "4", "3", "2"}
            Dim i As Integer
            Dim Sum As Integer = 0
            For i = 0 To 16
                Sum += (CType(e.NewValue.Chars(i).ToString, Integer) * Wi(i))
            Next i
            Dim r As Integer
            r = Sum Mod 11
            If e.NewValue.Chars(17) <> Ci(r) Then
                If e.NewValue.Chars(17) = "X" Then
                    MessageBox.Show("身份证可能是假的,或 X 字符大小写有误")
                Else
                    MessageBox.Show("身份证可能是假的")
                End If
            End If
        End If
    End If

有了数据库，就好办了：

Select Case e.DataCol.name
    Case "身份证"
        If e.DataRow.IsNull("身份证") Then
            e.DataRow("籍贯") = Nothing
        Else
            Dim bm As String = e.DataRow("身份证").SubString(0,6)
            Dim dr As DataRow = DataTables("身份证籍贯编码").Find("籍贯编码 = '" & bm & "'")
            If dr IsNot Nothing Then
                e.DataRow("籍贯") = dr("籍贯")
            End If
        End If
End Select

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目25.rar