0

我有一个包含以下代码的工具条按钮：

Dim total, tXS, tS, tM, tL, tXL As Integer

    For i = 0 To dvJOBranch.Rows.Count - 1
        tXS += dvJOBranch.Rows(i).Cells("XS").Value
        tS += dvJOBranch.Rows(i).Cells("S").Value
        tM += dvJOBranch.Rows(i).Cells("M").Value
        tL += dvJOBranch.Rows(i).Cells("L").Value
        tXL += dvJOBranch.Rows(i).Cells("XL").Value
    Next

    total = tXS + tS + tM + tL + tXL

    MsgBox(total)

它只工作一次，例如，如果我的 datagridview 单元格包含全零，则总数为零，然后当我在列的第一行中输入数字时（例如我输入 5），总数再次为零。

但是，如果我将此代码放在一个按钮中，它就可以正常工作。

谢谢你。

4

1 回答 1

1

如果你的意思total是一个标签..那么你可以把你的代码放在你的datagridview_cellvalidated事件中..

Dim total as Integer

Private Sub dvJOBranch_CellValidated(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dvJOBranch.CellValidated

Dim tXS, tS, tM, tL, tXL As Integer

For i = 0 To dvJOBranch.Rows.Count - 1
    tXS += dvJOBranch.Rows(i).Cells("XS").Value
    tS += dvJOBranch.Rows(i).Cells("S").Value
    tM += dvJOBranch.Rows(i).Cells("M").Value
    tL += dvJOBranch.Rows(i).Cells("L").Value
    tXL += dvJOBranch.Rows(i).Cells("XL").Value
Next

total = tXS + tS + tM + tL + tXL

'MsgBox(total)

End Sub

在您的 ToolStripButton 中放入代码Msgbox(total)

于 2013-09-02T06:37:54.463 回答