如何根据关键字从 DataGridView 将数字添加到文本框中的值

Question

我目前正在编写一个 VB.NET 表单，该表单将根据员工的工资计算每个部门的成本。所有员工都在 1 个 Datagridview 中，列中指定了他们的姓名、职位和工资。当您将每个人的工资相加时，我正在尝试将文本框添加到 datagridview 的一侧，其中包含每个部门的总成本（如果他们低于该工资）。不幸的是，我一直遇到这个错误：

System.ArgumentOutOfRangeException: '索引超出范围。必须是非负数且小于集合的大小。 参数名称：index'

这是我的第一次尝试，也是最初出现错误的地方：

Try
  Dim Total As Decimal = 0
  For i As = 0 To Job_Viewer.Rows.Count Step +1 
    If Job_Viewer.Rows(i).Cells(1).Value = "Design" Then 'The error appeared here
      Total_Design.Text = +Job_Viewer.Rows(i).Cells(2).Value
    End If
  Next
Catch ex As Exception
  MessageBox.Show(ex.Message)
End Try

认为它可能是导致它的 for 语句，我尝试了：

Try
  Dim Total As Decimal = 0
  Dim i = 1
  If Job_Viewer.Rows(i).Cells(1).Value = "Design" Then
    Total += Convert.ToDecimal(Job_Viewer.Rows(i).Cells(2).Value)
    Total_Design.Text = Total.ToString
  End If
Catch ex As Exception
  MessageBox.Show(ex.Message)
End Try

根据 vb.net，我不确定到底出了什么问题，我编写代码的方式是正确的。有什么建议吗？

Answer 1

当我们计数时，我们从一开始，所以Count 从一开始。它告诉我们有多少行。 .net 中的索引从零开始。如果我们有 7 行，则索引将是 0 到 6。鉴于此，在 For 循环中使用 Count 时一定要记住减号。

DataGridView 中Cell 的Value 属性返回Object。您必须将值更改为 String 才能将其与 String 进行比较。同样将值更改为Decimal 以进行添加。

您可以通过在项目属性中打开 Option Strict 来避免这些错误。

Private Sub OPCode()
    Dim Total As Decimal
    For i = 0 To Job_Viewer.Rows.Count - 1
        If Job_Viewer.Rows(i).Cells(1).Value.ToString = "Design" Then
            Total += CDec(Job_Viewer.Rows(i).Cells(2).Value)
            Total_Design.Text = Total.ToString
        End If
    Next
End Sub