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

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

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

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("执行完毕!")