跳出这个错误

 
此主题相关图片如下：未命名.jpg

这代码是放在datacolchanged的

If e.DataCol.Name = "身份证号码" Then \'如果更改的是身份证号码列
    If e.DataRow.IsNull("身份证号码") Then \'身份证号码是否为空
        e.DataRow("出生日期") = Nothing \'如果为空,则清除出生日期
        e.DataRow("性别") = Nothing \'如果为空,则清除出生日期
        e.DataRow("籍贯") = Nothing \'如果为空,则清除出生日期
        e.DataRow("年龄") = Nothing \'如果为空,则清除出生日期
    Else
        \'否则从身份证号码列中提取出生日期
        e.DataRow("出生日期") = ReadBirthday(e.DataRow("身份证号码"))
        e.DataRow("性别") = ReadSex(e.DataRow("身份证号码"))
        e.DataRow("年龄") = Date.Today.Year - e.DataRow("出生日期").Year
        Dim cmd As New SQLCommand
        Dim dt As DataTable
        cmd.C
        cmd.CommandText = "SELECT DISTINCT * From {行政区域划分}"
        dt = cmd.ExecuteReader()
        Dim er As DataRow = dt.Find("身份证前六位 = \'" & left(e.DataRow("身份证号码"),6) & "\'")
        If er IsNot Nothing Then \'如果在行政区域划分表找到对应的行,则将此行的值写入客户表的当前行.
            e.DataRow("籍贯") = er("省") & er("市") & er("区县")
        End If
    End If
End If

 该列明明存在的啊~~

你看到的列名不会是标题吧？

sql数据源是 列名是身份证后六位  昏迷~~

解决了！！