主题：当证件号码为其他时，“年龄”“性别”两列显示横杆

加一个证件类型列。

If e.DataCol.Name = "证件号码"  Then
    If e.DataRow("证件类型") = "身份证" Then
        If e.NewValue > "" Then
           e.DataRow("性别") = ReadSex(StrToNarrow(e.NewValue))
           If e.DataRow.IsNull("性别") = True Then
                e.DataRow("性别") = "-"
            End If
            Dim y,m,d As Integer
            DateYMD(ReadBirthDay(StrToNarrow(e.NewValue)),Date.Today,y,m,d)
            e.DataRow("年龄") = y
            If e.DataRow("年龄")  > 100 Then
                e.DataRow("年龄")  = "-"
            End If
        End If
    Else
        e.DataRow("性别") = "--"
        e.DataRow("年龄") = "--"
    End If
End If