如何优化效率 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何优化效率

共有31人关注过本帖树形打印复制链接主题：如何优化效率

北狐

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：139 积分：1518 威望：0 精华：0 注册：2013/8/7 18:14:00

如何优化效率 发帖心情

Post By：2025/4/16 11:20:00 [只看该作者]

For Each dr As DataRow In dt.DataRows

'填充数据

If DataTables("R03_payable_Detail").sqlFind("customerCode= '" & dr("供应商代码") & "' and kind = '" & dr("类型") & "' and factoryID = '" & dr("工费单号") & "' and ID = '" & dr("系统单号") & "'And number = '" & dr("单内序号") & "' And c And c And c and smartID<>'" & smartID & "'") Is Nothing And DataTables("应付副表本地表").Find("customerCode= '" & dr("供应商代码") & "' and kind = '" & dr("类型") & "' and ID = '" & dr("系统单号") & "'And number = '" & dr("单内序号") & "' And c And c And c ") Is Nothing Then

'MessageBox.Show("单据有变动'" & dr("系统单号") & "''" & dr("类型") & "'")

Dim nr As DataRow = DataTables("应付副表本地表").AddNew()

For i As Integer = 0 To sCols.Length - 1

nr(dCols(i)) = dr(sCols(i))

End If

老师，上述代码如何优化速度