刚刚购买产品,在练习过程中遇到了一个困难
总是 提示 调用的目标发生了异常。数组超接。
麻烦专家给予指正
报错所在代码
If e.DataCol.Name = "身份证号码" Then '如果更改的是身份证号码列
If e.DataRow.IsNull("身份证号码") Then '身份证号码是否为空
e.DataRow("出生日期") = Nothing '如果为空,则清除出生日期
e.DataRow("性别") = Nothing
Else
'否则从身份证号码列中提取出生日期
e.DataRow("出生日期") = ReadBirthday(e.DataRow("身份证号码"))
'MessageBox.Show(ReadSex(e.DataRow("身份证号码")))
e.DataRow("性别") = ReadSex(e.NewValue)
e.DataRow("性别")= ReadSex(e.DataRow("身份证号码"))
Dim bm As String = e.DataRow("身份证号码").SubString(0,6)
Dim cmd As new SQLCommand
cmd.C
cmd.CommandText=" selec t 籍贯 from {身份证籍贯编码} where 籍贯编码= '" & bm & " ' "
' MessageBox.Show(bm)
Dim dt As DataTable
dt = cmd.ExecuteReader()
e.DataRow("籍贯")=(dt.DataRows(0)(0))
End If
End If
[此贴子已经被作者于2015/9/25 13:52:36编辑过]