08-10-21, 07:04 PM
(08-10-21, 01:24 PM)ابو انس كتب : وعليكم السلام ورحمة الله وبركاته
تفضل
كود :
Dim aa As Double
For i As Integer = 0 To dgv.Rows.Count - 1
dgv.Rows(i).Cells("natij").Value = aa + (Val(dgv.Rows(i).Cells("edafa").Value) - Val(dgv.Rows(i).Cells("khasm").Value))
aa = Val(dgv.Rows(i).Cells("natij").Value)
Next
ابو ا تنس يارك الله فيك
