主题：导入数据报错求助！！！！！！

导入按钮代码如下：

Dim dlg As New OpenFileDialog
dlg.Filter = "Excel文件|*.xls"
dlg.MultiSelect = True '允许选择多个文件
If dlg.ShowDialog =DialogResult.OK Then
    Dim Book As New XLS.Book(dlg.FileName)
   
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Tables("实操潜能表").ResumeRedraw()
    Tables("实操潜能表").StopRedraw()
    Dim nms() As String = {"工作单位","县公司","姓名","性别","身份证号码","文化程度","鉴定等级","申报鉴定工种","鉴定批次","申报性质","理论成绩","实潜资格","考评分组","考核项目","考点","实操考核时间","实操考核地点","实操序号","实操成绩","潜能答辩时间","潜能序号","潜能成绩","实潜准考证号码","备注","照片"}
    For n As Integer = 1 To Sheet.Rows.Count -1
        Dim sfzhm As String = sheet(n,4).Text
        Dim dr As DataRow = DataTables("实操潜能表").Find("身份证号码 = '" & sfzhm & "'")
        If dr Is Nothing Then '如果不存在同编号的订单
            dr =  DataTables("实操潜能表").AddNew()
        End If
        For m As Integer = 0 To nms.Length - 1
            If DataTables("实操潜能表").DataCols(nms(m)).IsBoolean Then
                If Sheet(n,m).Value = 0 Then
                    dr(nms(m)) = False
                Else
                    dr(nms(m)) = True
                End If
            Else If DataTables("实操潜能表").DataCols(nms(m)).Expression > "" Then
                '表达式列
            Else
                dr(nms(m)) = Sheet(n,m).Value
            End If
        Next
    Next
    Tables("实操潜能表").ResumeRedraw()
End If

 

导入报错如下：

此主题相关图片如下：_rfz5vl1y8~kavhcyke19x.png

导入的表格如下：

 

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

点击浏览该文件:实操潜能表.xls

为什么会报错？而且有些能导入，有些不能导入？求版主指教！！！！！！

谢甜版！表格中的单元格格式我用的是文本格式！

现在就是奇怪，同一表格中有的行能导入，有的不能，还报错！按理表格有错的话，那应该都不能导入才对？

代码还是报错！搞不定了，求指教！

我就是把3楼的红色代码加上才会报错的，不加不报错，就是导入EXCEL表时报错，项目很大，压缩不下来

现在加的代码就不报错了，也能全部导入了，谢谢甜版！代码我是看不太懂的，能说明一下是为什么吗？

明白是明白了，但要我自己写的话是绝写不出的，谢谢！！！！！！