以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  2022版中运行“复制”程序非常非常慢  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=176183)
--  作者：wayiok
--  发布时间：2022/4/2 20:53:00
--  2022版中运行“复制”程序非常非常慢
更换到2022版本以后，发现只要有类似下列程序段的，运行的速度都变的非常的慢，差不多速率是原来的10倍还要多。

请问有没有方法可以解决或者优化？

If Tables("窗口1_table2").rows.Count > 0 Then
    
    For Each r1 As Row In Tables("窗口1_table2").GetCheckedRows
        Dim  r2 As Row = Tables("领料单.领料单明细").AddNew
        r2("编号") = r1("编号")
        r2("名称") = r1("名称")
        r2("数量") = r1("数量")
        r2("单位") = r1("单位")
    Next
    e.Form.close
Else
    MessageBox.Show("该BOM表无明细项!")
End If
--  作者：有点蓝
--  发布时间：2022/4/5 20:21:00
--  
试试暂停事件：http://www.foxtable.com/webhelp/topics/2218.htm