منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم جميعا من فضلكم طريقة جمع خانتين في القريد كونترول جزاكم الله خيرا

كما في الصورة 
أو تحويل الكود من DataGridView1 إلى gridcontrol بال devexpress

Sub calculerItem()

        Dim ach, tovent As Double

        For I = 0 To DataGridView1.Rows.Count - 1

            ach = Val(ach) + DataGridView1.Rows(I).Cells(4).Value

            tovent = Val(DataGridView1.Rows(I).Cells(5).Value) * Val(DataGridView1.Rows(I).Cells(6).Value)

            Val(ach) = Val(tovent)

        Next
    End Sub

[attachment=25988]

UNBOUND EDITOR