主题：数据导入的速度求帮助！

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

 

这段“导入“”按钮代码怀入数据的速度很慢，我按版主的代码依葫芦画瓢修改，想提高速度，可总是不得其法，实在是搞不定，请版主受累给改下，谢谢先！另外，可否加入一句代码，在导入的时候可以有一个类似“确定导入”的提示？

你如果连加入"确定导入" 这句代码的能力都没有,我很怀疑你能修改上述代码,提高速度;

1、看看  ：http://www.foxtable.com/help/topics/2218.htm

 

先表示谢谢！我没有学过任何编程，确实对写代码很不在行，理解能力也差！那修改下这段代码能否也帮助一下？

 看3楼啊。

已经跟你说过类似的啊。不会做，就先去学一下基础。

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=72163&authorid=0&page=0&star=3

 

我看了N遍了，就是不知该怎么下手！

 上传实例。

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

点击浏览该文件:鉴定管理系统v2-0727.rar

 

就是“理论考试”界面中的“导入”按钮代码！谢谢！！！！！！

Dim Result As DialogResult
Result = MessageBox.Show("确定要导入吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    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()
        systemready = False
        Dim nms() As String = {"工作单位","县公司","姓名","性别","身份证号码","文化程度","鉴定等级","申报鉴定工种","鉴定批次","申报性质"}
        Dim dic As new Dictionary(Of DataRow, Integer)
        Dim ls As new List(Of Integer)
        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
                ls.add(n)
            Else
                dic.Add(dr, n)
            End If
        Next
        For Each key As DataRow In dic.Keys
            For m As Integer = 0 To nms.Length - 1
                If DataTables("理论考试表").DataCols(nms(m)).IsBoolean Then
                    If Sheet(dic(key),m).Value = 0 Then
                        key(nms(m)) = False
                    Else
                        key(nms(m)) = True
                    End If
                Else If DataTables("理论考试表").DataCols(nms(m)).Expression > "" Then
                    '表达式列
                Else If DataTables("理论考试表").DataCols(nms(m)).IsNumeric Then
                    key(nms(m)) = val(Sheet(dic(key),m).Value)
                Else
                    key(nms(m)) = Sheet(dic(key),m).Value
                End If
            Next
        Next
        For Each l As Integer In ls
            Dim ndr As DataRow = DataTables("理论考试表").AddNew
           
            For m As Integer = 0 To nms.Length - 1
                If DataTables("理论考试表").DataCols(nms(m)).IsBoolean Then
                    If Sheet(l,m).Value = 0 Then
                        ndr (nms(m)) = False
                    Else
                        ndr (nms(m)) = True
                    End If
                Else If DataTables("理论考试表").DataCols(nms(m)).Expression > "" Then
                    '表达式列
                Else If DataTables("理论考试表").DataCols(nms(m)).IsNumeric Then
                    ndr (nms(m)) = val(Sheet(l,m).Value)
                Else
                    ndr (nms(m)) = Sheet(l,m).Value
                End If
            Next
        Next
       
        Tables("理论考试表").ResumeRedraw()
        systemready = True
    End If
   
End If