For Each r As Row In Tables("门店进销存_门店进销存").Rows
Dim dr As DataRow = DataTables("直调入库单明细").Find("款号='" & r("款号") & "' and 仓库='" & r("仓库") & "' ")
If dr IsNot Nothing Then
r("第一次上货日期") = dr("日期")
r("今天日期") = Date.Today
Dim t1 As TimeSpan = r("今天日期") - r("第一次上货日期")
r("第一次上货天数") = t1.TotalDays
End If
Next
以上代码怎么优化
问题1:这个遍历查询需要怎么改
问题2:DataTables("直调入库单明细")初始加载40W条数据，如果不加载，那每次一个ROW执行后台查询一次。这个会提高效率吗。Tables("门店进销存_门店进销存")是组合统计生成的临时表
加好友 
发短信
Post By：2021/5/4 19:11:00 [只看该作者]
