主题：[求助]学习代码，请问哪里出错了

Select Case e.DataCol.name

    Case "身份证号码"

        If e.NewValue > "" Then

            e.DataRow("性别") = ReadSex(e.NewValue)

            e.DataRow("出生日期") = ReadBirthDay(e.NewValue)

            e.DataRow("年龄") = Date.Today.year - e.DataRow("出生日期").year

            Dim cmd As New SQL Command

            cmd.C

            cmd.Com mandText = "SE LE CT DISTINCT 籍贯 FR OM {身份证籍贯编码} WHERE [籍贯编码] Like '" & e.NewValue.SubString(0,6) & "%'"

            Dim dt As Data Table = cmd.E xecute Reader()

            If dt.DataRows.Count > 0 Then

                e.DataRow("籍贯") = dt.DataRows(0)("籍贯")

            End If

        Else

            e.DataRow("籍贯") = Nothing

            e.DataRow("性别") = Nothing

            e.DataRow("出生日期") = Nothing

            e.DataRow("年龄") = Nothing

        End If

End Select

这样能发全了吧

C

o

n

necti