下面这段代码运行效率极低，100行数据需要近5秒时间，如何提高效率，请各位老师指教，谢谢！！
For Each dr As DataRow In DataTables("采集批次").DataRows
If dr.IsNull("日期") = False Then
dr("结束时间") = DataTables("扎包记录").SQLCompute("Max(拔卡时间)", "批次编号 = '" & dr("批次编号") & "'")
End If
If dr.IsNull("批次编号") = False Then
Dim pr As DataRow = DataTables("扎包记录").SQLFind("批次编号 = '" & dr("批次编号") & "' and 结束标记 = 2")
If pr IsNot Nothing Then
dr("结束标记") = True
Else
dr("结束标记") = False
End If
End If
If dr.IsNull("批次编号") = False Then
Dim pr As DataRow = DataTables("工位数据").SQLFind("批次编号 = '" & dr("批次编号") & "'")
If pr IsNot Nothing Then
dr("工位数据") = True
Else
dr("工位数据") = False
End If
End If
Next
[此贴子已经被作者于2016/6/18 11:15:05编辑过]
加好友 
发短信
Post By：2016/6/18 9:00:00 [只看该作者]
