Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "excle|*.xlsx" '设置筛选器
Dim c As Integer = 0
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim Book As New XLS.Book(dlg.FileName)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("工资总表导入").StopRedraw()
For sr As Integer = 1 To sheet.Rows.Count -1
Dim r As Row = Tables("工资总表导入").AddNew
For sc As Integer = 0 To sheet.Cols.Count -1
For Each dc As DataCol In DataTables("工资总表导入").DataCols
If dc.Name = sheet(0,sc).Value Then
r(dc.name) = sheet(sr,sc).Value
End If
Next
Next
c = c +1
Next
Tables("工资总表导入").ResumeRedraw()
MessageBox.Show("导入完成,共导入" & c & "条记录")
End If
求这段代码优化，数据导入时间过长
加好友 
发短信
Post By：2016/8/16 8:33:00 [只看该作者]
