Private Sub RomoveExitsDowntime() Dim drow As DataRow Dim findValue As Integer Dim foundRow As DataRow For Each drow In dtDownTime.Rows findValue = CType(drow("WO_NO"), Integer) foundRow = tVEHICLE.Rows.Find(findValue) If Not foundRow Is Nothing Then drow.Delete() End If Next dtDownTime.AcceptChanges() End Sub
No comments:
Post a Comment