专家,你好。
现在有一个问题就是,清空所有订单的明细表,并想重新导入一张excel表。
制作了一个按钮click事件。
DataTables("采购订单执行").datarows.clear
DataTables("采购订单执行").Save
Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
dlg.Filter= "Excel文件|*.xls;*.xlsx"
If dlg.ShowDialog = DialogResult.OK Then
For Each file As String In dlg.FileNames
Dim Book As New XLS.Book(file)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim i As Integer = 5
Do While (sheet(i,1).Text)<>""
Dim dr As Row = Tables("采购订单执行").AddNew
dr("采购组织") = sheet(i,0).Text
dr("订单编号") = sheet(i,1).Text
dr("供应商") = sheet(i,3).Text
dr("采购部门") = sheet(i,5).Text
dr("订单日期") = sheet(i,6).Text
dr("行号") = sheet(i,7).Text
dr("物料编码") = sheet(i,10).Text
dr("物料名称") = sheet(i,11).Text
dr("客户") = sheet(i,35).Text
i = i + 1
Loop
Next
End If
发现执行语句读入满,保存更慢。请问有什么其他方法更快读入,保存到该数据库?