vb.net - ループ、集計、一意の DataRow の合計を返す

Question

顧客のバイインの複数のトランザクションを含む DataGrid があります。私が望むのは、各顧客からのトランザクション バイインを合計し、関連する画像に結果を追加することです。現時点で私が持っているものは、論理エラー、つまり複数の画像に同じ金額を追加することです。

これが私のDataGrid（列のタイトル）の構造です：[Name,Surname, Buyin, Type, StartTime, TransactionID, CustomerID] そしてここに私のコードがあります：

Dim tbActivePlayers As DataTable = Me.ActivePlayersTableAdapter.GetData()

Dim tbTemp As New DataTable

'   table = DataSet.Tables("Orders")

' Declare an object variable.
Dim objTotalBuyin As Object
Dim iCount, ilbl As Integer
ilbl = 1

Dim viewUniquePlayers As New DataView(tbActivePlayers)
Dim iActivePlayers As Integer = viewUniquePlayers.ToTable(True, "CustomerID").Rows.Count
Dim dtDataTable As DataTable = viewUniquePlayers.ToTable(True, "CustomerID")

Dim myLabel As Label
For iCount = 0 To dtDataTable.Rows.Count
    objTotalBuyin = tbActivePlayers.Compute("Sum(Buyin)", "CustomerID = " & tbActivePlayers.Rows(iCount).Item("CustomerID"))
    'MsgBox("Name: " & tbActivePlayers.Rows(iCount + 1).Item("Name") & ", Sumbuyin:" & sumObject.ToString & " ResultCount:" & ResultCount)
    '
    myLabel = CType(Me.Controls.Find("lblPlayer" & ilbl, True)(0), Label)
    If Not myLabel Is Nothing Then
        myLabel.Text = "Empty Seat"
    End If
    '

    myLabel.Text = tbActivePlayers.Rows(iCount).Item("Name") & Environment.NewLine & _
                   "€" & objTotalBuyin.ToString

    myLabel.Image = Global.PokerBusiness.My.Resources.Resources.seatocc
    ilbl += 1

Next