以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]数据合并代码优化  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72380)
--  作者：l1q2lq
--  发布时间：2015/7/29 13:55:00
--  [求助]数据合并代码优化
请问一下合并数据有没有好的优化方式，我这1200才多行数据运行起来略慢啊
或者有没有其他的实现方法
目的是为了实现将物料需求中指定列的数据录入出库信息表中

If Tables("物料需求").rows.Count > 0 Then
            For Each r1 As Row In Tables("物料需求")
                If r1("物料需求_" & rq.text) > 0 Then    
                    Dim  r2 As Row = Tables("出库信息").AddNew
                    r2("零件号") = r1("零件号")
                    r2("出库数量") = r1("物料需求_" & rq.text)                    
                End If
            Next
End If
--  作者：大红袍
--  发布时间：2015/7/29 14:08:00
--  

If Tables("物料需求").rows.Count > 0 Then
    Tables("出库信息").StopRedraw
    SystemReady = False
    For Each r1 As Row In Tables("物料需求")
        If r1("物料需求_" & rq.text) > 0 Then
            Dim  r2 As Row = Tables("出库信息").AddNew
            r2("零件号") = r1("零件号")
            r2("出库数量") = r1("物料需求_" & rq.text)
        End If
    Next
    SystemReady = True
    Tables("出库信息").ResumeRedraw
   
End If
--  作者：大红袍
--  发布时间：2015/7/29 14:08:00
--  

 如果还慢，就用filler

 

http://www.foxtable.com/help/topics/0680.htm