[larbihamri]

شكرا اخي و استاذي elgokr
اردت تجربت الكود مباشرة على الداتاسات يعني بدون الداتاقريد فيو لكني لم انجح فيه

كود :

For i As Integer = 0 To Me.DbDataSet1.t2.Rows.Count - 1
           For ii As Integer = 0 To Me.DbDataSet1.t1.Rows.Count - 1
               If Me.DbDataSet1.t1.Rows(ii).Item(1).ToString = Me.DbDataSet1.t2.Rows(i).Item(1).ToString Then
                 
               Else()
                   Me.DbDataSet1.t1.Rows.RemoveAt(ii)
               End If
           Next
       Next