Tuesday, December 27, 2011

หา Row ที่ต้องการเจอแล้วลบออกจาก DataTable

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