[Jounior_P]

جرب الكود التالي :

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim total = (From row In DataGridView1.Rows _
             Let r = DirectCast(row, DataGridViewRow) _
             Where r.Cells("اسم العمود").Value IsNot Nothing _
             Select CDec(r.Cells("اسم العمود").Value)).Sum
       Label1.text = total
   End Sub