Private
Sub Button1_Click(sender As
Object, e As EventArgs) Handles Button1.Click
Dim dvTable2 As
New DataView(dt2)
dvTable2.Sort = "YourKeyField"
For i As
Integer = dt1.Rows.Count - 1
To
0
Step -1
If dvTable2.Find(dt1.Rows(i)("YourKeyField")) = -1
Then
dt1.Rows(i).Delete()
End
If
Next
dt1.AcceptChanges()
End
Sub
|