刚刚购买产品，在练习过程中遇到了一个困难

总是 提示  调用的目标发生了异常。数组超接。

麻烦专家给予指正

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:人事管理系统.rar

报错所在代码

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

附件不能上传，代码贴上了 提示没有权限

传附件了

If e.DataCol.Name = "身份证号码" Then \'如果更改的是身份证号码列
    If e.DataRow.IsNull("身份证号码") OrElse ValidPIN(e.DataRow("身份证号码")) = False 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=" sele ct 籍贯 from {身份证籍贯编码} wh ere 籍贯编码= \'" & bm & "\'"
        \' MessageBox.Show(bm)
        Dim dt As DataTable
        dt = cmd.ExecuteReader()
        If dt.DataRows.Count > 0 Then
            e.DataRow("籍贯")=dt.DataRows(0)("籍贯")
        End If
    End If
End If

Dim dt As DataTable
dt = cmd.ExecuteReader()
e.DataRow("籍贯")=(dt.DataRows(0)(0))

改成

Dim dt As DataTable
dt = cmd.ExecuteReader()

If dt.DataRows.Count > 0 Then
    e.DataRow("籍贯")=(dt.DataRows(0)("籍贯"))

End If