初始合并接收后当前窗口的关闭问题求助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

，---接收到临时表中，再对些临时表（窗口中显示）进行：入帐或取消操作。
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

End If

Tables("销售主表_tmp").ResumeRedraw()

MainTable = Tables("销售主表_tmp")

===第一次运行后关闭了当前要操作的窗口了。

‘====以上处理后EXCEL中的数据合并到<销售主表_tmp>表，并关闭当前窗口（此窗口显示《销售主表_tmp>),没重启系统前，再次操作时，

不会关闭窗口，现我要求：第一次处理合并时，不要关闭当前窗口！

主题：初始合并接收后当前窗口的关闭问题求助