以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]代码优化  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=120498)
--  作者：as2565929355
--  发布时间：2018/6/17 16:40:00
--  [求助]代码优化
这段代码执行了 6分多钟，不知道要怎么样优化好一点

Dim st As Date = Date.Now \'将开始时间保存在变量st中

Dim t1 As Table = Tables(eform.na  me & "_Tabl e1")  ,成品表
Dim t3 As Table = Tables(eform.na  me & "_Tab le3")  \'配件表
Dim sum As Integer
Dim cmd As New SQLCo  mmand
cmd.Co  nnec  ti

For Each r1 As Row In t1.GetCheckedRows
    For Each r3 As Row In t3.GetCheckedRows
        
        
        cmd.Com mandText ="Sel  ect Coun  t(*) From {成品轨道BOM} Where 成品轨道编号 = \'" & R1("成品轨道编号") & "\' and 子配件编号 = \'" & r3("物料编号") & "\'"
        If cmd.Execu teScalar > 0
            
        Else
            Dim txt As String = "Insert Into 成品轨道BOM (成品轨道编号,子配件编号)" & _
            "Values(\'" & r1("成品轨道编号") & "\', \'" & r3("物料编号") & "\')"
            cmd.CommandText = txt
            \'cmd.CommandText = "Insert Into 成品轨道BOM (成品轨道编号,子配件编号) Values(\'" & r1("成品轨道编号") & "\', \'" & r3("物料编号") & "\')"
            cmd.ExecuteNonQuery
            sum = sum +1
        End If
    Next
Next
MessageBox.Show("耗时: " & (Date.Now - st).TotalSeconds & "秒")
MessageBox.Show("成功导入" & sum & "条数据")
--  作者：有点甜
--  发布时间：2018/6/17 16:43:00
--  

1、不要每一次都查询，一次查询至少要0.5秒。能不能把数据都加载出来直接find？

 

2、要用事务插入数据 http://www.foxtable.com/webhelp/scr/2933.htm

 

3、不会做请做一个实例发上来测试。