请问什么方法效率更高一点来更新版本状态，数据有几万行，遍历一遍需要很长时间
| Rev |
REV_Status |
Document_No |
RecieveDate |
| B |
New |
P055AZOR-01FL00-3092-01 |
2017/10/2 0:00 |
| A |
New |
P055AZOR-01FO00-1164-01 |
2017/10/2 0:00 |
| O |
Updated |
P055AZOR-01FO00-1492-20 |
2017/10/2 0:00 |
| A |
New |
P055AZOR-01FO00-1563-01 |
2017/10/2 0:00 |
| A |
New |
P055AZOR-01FO00-1915-01 |
2017/10/2 0:00 |
| A |
New |
P055AZOR-01FO00-1942-01 |
2017/10/2 0:00 |
For Each u As String In DataTables("ISO_Index").SQLGetValues("Document_No")
If DataTables("ISO_Index").SQLCompute("Count([_Identify])","Document_No = '" & u & "'") > 1 Then
Dim md As Date = DataTables("ISO_Index").SQLCompute("Max(RecieveDate)","Document_No = '" & u & "'")
Dim dss As List(Of DataRow)
dss = DataTables("ISO_Index").SQLSelect("[Document_No] = '" & u & "'")
For i As Integer = 0 To dss.Count-1
If dss(i)("RecieveDate") < md Then
dss(i)("REV_Status") = "Updated"
Else
dss(i)("REV_Status") = "New"
End If
Next
End If
Next
加好友 
发短信
Post By：2017/10/18 15:02:00 [显示全部帖子]
