[مساعدة]

السلام عليكم

تفضل الكود

كود :

Dim c =
   Aggregate x As DataGridViewRow In DataGridView1.Rows
   Into total = Sum(Val(x.Cells(2).Value))

MsgBox(c & " دينار كويتي", MsgBoxStyle.MsgBoxRtlReading)