[asdfar1977]

اريد تصحيح هذا الكود حيث اننى اقوم باستدعاء بيانات من مجدول باستخدام استعلام ثم اريد حزف هذه البيانات التى تم استدعائها
واننى استخدم هذا الكود ولكنه لا يقوم بالحزف

Private Sub ButtonX2_Click(sender As Object, e As EventArgs) Handles ButtonX2.Click
        Dim CON As New Class_CON
        Dim DT As New DataTable
        'Dim count_ As Integer = 0
        'Dim rows() As DataRow
        DT.Clear()
        DT = CON.select_txt("SELECT dbo.Table_H_Acc.GUID, dbo.Table_D_Acc.GUID_D, dbo.Table_H_Acc.cod_cost_center_H FROM dbo.Table_D_Acc RIGHT OUTER JOIN dbo.Table_H_Acc ON dbo.Table_D_Acc.GUID_D = dbo.Table_H_Acc.GUID WHERE (dbo.Table_H_Acc.cod_cost_center_H = 70101)")
        'If DT.Rows.Count > 0 Then
        For i As Integer = DT.Rows.Count - 1 To 0
            Dim dr As DataRow = DT.Rows(i)
            If dr("cod_cost_center_H") = 70101 Then
                'dr.Delete()
                DT.Rows.Remove(dr)
            End If
        Next

        DT.AcceptChanges()
        'End If
    End Sub
End Class