Advertisement
Advertisement
| 07.23.2008 at 09:29AM PDT, ID: 23589134 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: |
If dtTemp.Rows.Count > 0 And dtAssembly.Rows.Count > 0 Then
For Each drclient As DataRow In dtAssembly.Rows
For Each drServer As DataRow In dtTemp.Rows
If drclient("ASSEMBLY_NUMBER") = drServer("ASSEMBLY_NUMBER") Then drclient.Delete()
Next drServer
If dtTemp.Rows.Count = 0 Then Exit For
Next drclient
End If
|