[نور الهدى الهدى]

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   Dim total As Double = 0
   For Each r As DataGridViewRow In Me.DataGridView1.Rows
       If r.IsNewRow Then Exit For
       If r.Cells(0).Value.ToString = "خالد" Then
           total += Val(r.Cells(1).Value)
       End If
   Next
   TextBox1.Text = total
End Sub

اخي هذا هو المطلوووب مشكور جدا وجعله الله في ميزان حسناتك 

---

فى الحالة دى ستحتاج الى اتمام التالى طبقاً لما هو فى الرابط التالى

https://social.msdn.microsoft.com/Forums...=vbgeneral

ستجد صورة توضح الفكرة المطلوبة مع الكود المستخدم

تحياتى لك

وتمنياتى لك التوفيق

تم ايجاد الحل ومشكور على تعاونك الدئم وجزاك الله خير الجزاء