[ابو انس]

وعليكم السلام ورحمة الله وبركاته
تفضل

كود :

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