以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于导入数据机制问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=87588)
--  作者：benwong2013
--  发布时间：2016/7/14 10:05:00
--  关于导入数据机制问题
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的表中，请问如何处理，谢谢！
--  作者：大红袍
--  发布时间：2016/7/14 10:06:00
--  

 那就做一个临时表，把数据导入临时表。

 

 然后再填充到 T_report http://www.foxtable.com/webhelp/scr/0680.htm