[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

[Mujahef]

اللوب For لن يعمل لانك حددت يبدا من النهايه الى الصفر
جرب تعدله بحيث يبدا من الصفر الى النهايه
For i As Integer = 0 To DT.Rows.Count - 1

[asdfar1977]

(07-01-24, 08:48 PM)Mujahef كتب : اللوب For لن يعمل لانك حددت يبدا من النهايه الى الصفر
جرب تعدله بحيث يبدا من الصفر الى النهايه
For i As Integer = 0 To DT.Rows.Count - 1

تمام انا عدلت اللوب ومشتغلش انا عايذ اتاكد هل الكود ده مظبوط ام لا

[Kamil]

قم بتجربة هذا الكود

PHP كود :

Private Sub ButtonX2_Click(sender As Object, e As EventArgs) Handles ButtonX2.Click
    Dim CON As New Class_CON
    Dim DT As New DataTable
    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)")

    For i As Integer = DT.Rows.Count - 1 To 0 Step -1
        Dim dr As DataRow = DT.Rows(i)
        If dr("cod_cost_center_H") = 70101 Then
            Dim guidToDelete As String = dr("GUID").ToString()
            ' قم بحذف السجل من قاعدة البيانات باستخدام الـ CON
            CON.execute_txt($"DELETE FROM dbo.Table_H_Acc WHERE GUID = '{guidToDelete}'")
            ' ثم قم بحذفه من DataTable
            DT.Rows.RemoveAt(i)
        End If
    Next

    ' لا تقم بالاتصال بـ AcceptChanges() هنا، فهو غير ضروري
End Sub 


[asdfar1977]

(08-01-24, 12:04 PM)Kamil كتب : الف شكر .  كود رائع . دائما عند حسن الظن . تمت التجربه بنجاح