主题：[求助]导入数据

老师好，导入数据时报错。
 

代码！

 

可能出错的地方：

        Dim gx As WinForm.RadioButton = e.Form.Controls("更新")
        Dim fq As WinForm.RadioButton = e.Form.Controls("放弃")
        If gx.Checked = True Or fq.Checked = True Then
            'MessageBox.Show("进入更新模式")
            '-----判定关键字段为第几字段----
            Dim key1 As String = e.Form.Controls("key1").Value
            Dim key2 As String = e.Form.Controls("key2").value
            Dim data1,data2 As String
            '----根据关键字段在字段列表中的位置,取出要导入的数据值
            For i As Integer = 0 To dr.Count -1
                'MessageBox.Show(dr(i) & "->" & dr(i) = key1 )
                If dr(i) = key1 Then
                    data1 = data(i)
                End If
                If dr(i) = key2 Then
                    data2 =data(i)
                End If
            Next

看不出什么问题，请具体到是哪一句代码出错

 

调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm，看哪一句代码出错

            '-----判定关键字段为第几字段----
            Dim key1 As String = e.Form.Controls("key1").Value
            Dim key2 As String = e.Form.Controls("key2").value
            Dim data1,data2 As String
            '----根据关键字段在字段列表中的位置,取出要导入的数据值

这3行代码只是简单的赋值，不可能有问题，也不可能会有7楼这种错误提示，肯定不是这几句代码的问题