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 jdpc As String = sheet(n,8).Text
Dim dr As DataRow = DataTables("理论考试表").Find("身份证号码 = '" & sfzhm & "' And 鉴定批次 = '" & jdpc & "'")
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 If DataTables("理论考试表").DataCols(nms(m)).IsNumeric Then
dr(nms(m)) = val(Sheet(n,m).Value)
Else
dr(nms(m)) = Sheet(n,m).Value
End If
Next
Next
Tables("理论考试表").ResumeRedraw()
End If
这段“导入“”按钮代码怀入数据的速度很慢,我按版主的代码依葫芦画瓢修改,想提高速度,可总是不得其法,实在是搞不定,请版主受累给改下,谢谢先!另外,可否加入一句代码,在导入的时候可以有一个类似“确定导入”的提示?