Dim dlg As new OpenFileDialog
dlg.Filter= "Excel文件|*.xls"
If dlg.ShowDialog = DialogResult.OK Then
Dim Book As New XLS.Book(dlg.FileName)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("T_Report").StopRedraw()
'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
Dim nms() As String = {"收样抽检日期","报告编号","订单编号","预计完成日期","样品名称","样品规格","标称品牌","样品等级类别","购进日期批号","样品数量","样品编号","供应商","生产单位","生产单位地址","抽样地点","委托类型","抽样基数","收样状态","检测环境","样品状态","储存条件"}
'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
For n As Integer = 1 To Sheet.Rows.Count -1
Dim bh As String = sheet(n,0).Text
If DataTables("T_Report").Find("报告编号 = '" & bh & "'") Is Nothing Then '如果不存在同编号的订单
Dim r As Row = Tables("T_Report").AddNew()
For m As Integer = 0 To nms.Length - 1
r(nms(m)) = Sheet(n,m).Value
r("是否导入") = True
Next
End If
Next
Tables("T_Report").ResumeRedraw()
End If
比如使用了以上的代码导入了数据，数据是全部填写到了T_Report的表中，现在我想导入到一个临时表，有一个窗口能检查导入的数据没有问题之后再保存到T_Report的表中，请问如何处理，谢谢！
加好友 
发短信
Post By：2016/7/14 10:05:00 [只看该作者]
