0

私のフォームには、ラベル (lblBalance) があり、Access データベースから取り込まれた DGV があります。行を追加、削除、または更新する場合、新しい残高を反映するようにラベル テキストを更新するにはどうすればよいですか?

これまでのところ、これは私の frmMain コードです:

    Public Class frmMain

      Private Sub TransactionsBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TransactionsBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.TransactionsBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.CheckingDataSet)

      End Sub

      Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'CheckingDataSet.Transactions' table. You can move, or remove it, as needed.
        Me.TransactionsTableAdapter.Fill(Me.CheckingDataSet.Transactions)
        lblTotalCredits.Text = BalanceTotal().ToString("c")
      End Sub

      Private Function BalanceTotal() As Double
        Dim tot As Double = 0
        Dim i As Integer = 0
        For i = 0 To TransactionsDataGridView.Rows.Count - 1
            tot = tot + Convert.ToDouble(TransactionsDataGridView.Rows(i).Cells(3).Value)
        Next i
        Return tot
      End Function
    End Class
4

1 に答える 1

0

BindingSource コントロールには、ListChangedバランス ラベルを更新するために使用できるイベントがあります。

Private Sub TransactionsBindingSource_ListChanged(_
                sender As Object, _
                e As ListChangedEventArgs) _
                Handles TransactionsBindingSource.ListChanged

  lblTotalCredits.Text = BalanceTotal().ToString("c")

End Sub
于 2012-08-23T01:04:16.157 に答える