以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  遍历更新值，在数量比较多的情况下，如何提高更新的效率  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=175379)
--  作者：cnsjroom
--  发布时间：2022/3/2 17:32:00
--  遍历更新值，在数量比较多的情况下，如何提高更新的效率

遍历更新值，在数量比较多的情况下，如何提高更新的效率

在工行流水目前数量为三万条的情况下，执行效率很慢，有没有办法提高效率呢？

 

Dim Products As List(Of String())
Products = DataTables("sheet1").GetValues("姓名|账号对应卡号")
For Each dr As DataRow In DataTables("sheet1").DataRows
    dr("姓名")=dr("姓名").Trim()
    dr("账号对应卡号")=dr("账号对应卡号").Trim()
Next
DataTables("sheet1").save
DataTables("sheet1").StopRedraw
For Each Product As String() In Products
    For Each dr1 As DataRow In DataTables("sheet1").DataRows
       
        dr1=DataTables("工行流水").find("卡号=\'" & Product(1).Trim() & "\'")
        If dr1 IsNot Nothing Then
            dr1("本方户名")=Product(0).Trim()
            output.show(Product(0).Trim())
            dr1.save
        End If
    Next
Next
DataTables("sheet1").ResumeRedraw
MessageBox.Show("执行完毕!")

[此贴子已经被作者于2022/3/2 17:35:40编辑过]
--  作者：有点蓝
--  发布时间：2022/3/2 17:44:00
--  
DataTables("sheet1").StopRedraw
For Each Product As String() In Products
        dim dr1 As DataRow=DataTables("工行流水").find("卡号=\'" & Product(1).Trim() & "\'")
        If dr1 IsNot Nothing Then
            dr1("本方户名")=Product(0).Trim()
        End If
Next
DataTables("工行流水").save
DataTables("sheet1").ResumeRedraw
MessageBox.Show("执行完毕!")