以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]这段代码有问题?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=17302)

--  作者:gaoyong30000
--  发布时间:2012/3/9 13:01:00
--  [求助]这段代码有问题?

跳出这个错误

 
图片点击可在新窗口打开查看此主题相关图片如下:未命名.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

 

 

 该列明明存在的啊~~


--  作者:czy
--  发布时间:2012/3/9 13:12:00
--  

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


--  作者:gaoyong30000
--  发布时间:2012/3/9 16:14:00
--  

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

 

解决了!!