，---接收到临时表中，再对些临时表（窗口中显示）进行：入帐或取消操作。
Dim Book As New XLS.Book("c:\data\dayxiaos.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("销售主表_tmp").StopRedraw()
'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
Dim nms() As String = {"购货日期","客户简称","提单号码","总重量","切割费","应收款","实收款","支付方式","前期状况"}
'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
For n As Integer = 1 To Sheet.Rows.Count -1
Dim tdno As String = sheet(n,2).Text '提单号码
If DataTables("销售主表_tmp").Find("提单号码 = '" & tdno & "'") Is Nothing Then '如果不存在同提单号码的销售主表
Dim r As Row = Tables("销售主表_tmp").AddNew()
For m As Integer = 0 To nms.Length - 1
r(nms(m)) = Sheet(n,m).Value
Next
End If
Next
Tables("销售主表_tmp").ResumeRedraw()
MainTable = Tables("销售主表_tmp")
===第一次运行后关闭了当前要操作的窗口了。
‘====以上处理后EXCEL中的数据合并到<销售主表_tmp>表，并关闭当前窗口（此窗口显示《销售主表_tmp>),没重启系统前，再次操作时，
不会关闭窗口，现我要求：第一次处理合并时，不要关闭当前窗口！
加好友 
发短信
Post By：2014/12/8 12:16:00 [显示全部帖子]
