以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  初始合并接收后当前窗口的关闭问题求助  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=61171)
--  作者：nbfool
--  发布时间：2014/12/8 12:16:00
--  初始合并接收后当前窗口的关闭问题求助
，---接收到临时表中，再对些临时表（窗口中显示）进行：入帐或取消操作。
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>),没重启系统前，再次操作时，
不会关闭窗口，现我要求：第一次处理合并时，不要关闭当前窗口！
--  作者：有点甜
--  发布时间：2014/12/8 14:03:00
--  

 上面没有关闭窗口的代码。

 

 你这句可以删除 MainTable = Tables("销售主表_tmp")