[محمود رغمان]

ضع هذا الكود فى المفتاح
جمع عمود داخل الداتا جريد فيو

If DGV.RowCount – 1 > 0 Then

Dim sum As Double
For i = 0 To DGV.RowCount - 1
sum += DGV.Rows(i).Cells(5).Value
Next
TextBox1.Text = Format(sum, "###.##")

End If

حيث ( Cells (5 هو العمود المراد جمع قيمه
جملة Format لتنسيق المخرجات

وبالنسبة لجمع قيم معينة فذلك يتم عن طريق عملية التصفية أو البحث فبعد عرض نتائج البحث فى الداتاجريد يتم إجراء عملية الجمع أما يدويا أو تلقائيا على حسب رغبتك