Calculate Total Value

Malam Malam 246

How do I loop through Grid1 and get the "Total Credits" for each student in Grid2? For example: The student ID 99 should have 12 in the "TotalCredits" column in Grid2.

I am using DevExpress but it could be similar for any grid control.

Grid

Jiachen Li-MSFT 32,376 Reputation points Microsoft Vendor

2024-07-29T06:25:17.7166667+00:00

Hi @Malam Malam ,

Since DevExpress is a third-party product which is not supported by this forum, it is recommended that you post the problem on it's own forum or other forums that support it.
Malam Malam 246 Reputation points

2024-07-29T16:04:45.6+00:00

Did you not read my comments before jumping in to your own conclusion?

If you can't answer then simply stay quiet.

Anonymous

Here is one way to do it. This version does not use any binding (you don't say if you are using binding). This is just an example with NO exception handling. It does minimal attempt to update the results DFV if values are changed in the first DGV. If you do have many need for 'linking' things like this together, there is a much better way to do so - using binding.

Anyway, here is the example code. Designer DGV1 and DGV2 both with suitable columns.

Public Class Form1
	Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
		With DGV1
			.Rows.Add(99, 4)
			.Rows.Add(99, 4)
			.Rows.Add(88, 3)
			.Rows.Add(77, 5)
			.Rows.Add(99, 4)
			.Rows.Add(88, 3)
			.Rows.Add(77, 9)
		End With
		FillResults(MakeDic())
	End Sub
	Function MakeDic() As Dictionary(Of String, Integer)
		Dim dic As New Dictionary(Of String, Integer)
		For Each r As DataGridViewRow In DGV1.Rows
			Dim s As String = r.Cells(0).Value
			If Not s Is Nothing Then
				If dic.Keys.Contains(s) Then
					dic(s) += r.Cells(1).Value
				Else
					dic.Add(s, r.Cells(1).Value)
				End If
			End If
		Next
		Return dic
	End Function
	Sub FillResults(dic As Dictionary(Of String, Integer))
		DGV2.Rows.Clear()
		For Each kvp As KeyValuePair(Of String, Integer) In dic
			With DGV2
				.Rows.Add(kvp.Key, kvp.Value)
			End With
		Next
	End Sub
	Private Sub DGV1_CellValidated(sender As Object, e As DataGridViewCellEventArgs) Handles DGV1.CellValidated
		FillResults(MakeDic())
	End Sub
End Class

Anonymous

2024-07-29T19:29:23.1066667+00:00

BTW: in my example above, I am using standard DataGridViews an not 3rd party ones. I also removed an unnecessary line of code.
Malam Malam 246 Reputation points

2024-07-30T03:58:05.7133333+00:00

Les, thank you so much.

Your code has given me enough information to do what I needed to do.

Share via

Calculate Total Value

Your answer