اختصار كود الجمع داخل شبكة البيانات

كود :

Dim TFields As Integer = 0

        For Each Row As DataGridViewRow In DataGridView1.Rows

            If IsNumeric(Row.Cells("Column1").Value IsNot DBNull.Value) AndAlso IsNumeric(Row.Cells("Column1").Value = 10) And IsNumeric(Row.Cells("Column2").Value IsNot DBNull.Value) AndAlso IsNumeric(Row.Cells("Column2").Value = 10) And IsNumeric(Row.Cells("Column3").Value IsNot DBNull.Value) AndAlso IsNumeric(Row.Cells("Column3").Value = 10) And IsNumeric(Row.Cells("Column4").Value IsNot DBNull.Value) AndAlso IsNumeric(Row.Cells("Column4").Value = 10) And IsNumeric(Row.Cells("Column5").Value IsNot DBNull.Value) AndAlso IsNumeric(Row.Cells("Column5").Value = 10) And IsNumeric(Row.Cells("Column6").Value IsNot DBNull.Value) AndAlso IsNumeric(Row.Cells("Column6").Value = 10) And IsNumeric(Row.Cells("Column7").Value IsNot DBNull.Value) AndAlso IsNumeric(Row.Cells("Column7").Value = 10) And IsNumeric(Row.Cells("Column8").Value IsNot DBNull.Value) AndAlso IsNumeric(Row.Cells("Column8").Value = 10) And IsNumeric(Row.Cells("Column9").Value IsNot DBNull.Value) AndAlso IsNumeric(Row.Cells("Column9").Value = 10) And IsNumeric(Row.Cells("Column10").Value IsNot DBNull.Value) AndAlso IsNumeric(Row.Cells("Column10").Value = 10) Then

                TFields += Val(Row.Cells("Column1").Value) + Val(Row.Cells("Column2").Value) + Val(Row.Cells("Column3").Value) + Val(Row.Cells("Column4").Value) + Val(Row.Cells("Column5").Value) + Val(Row.Cells("Column6").Value) + Val(Row.Cells("Column7").Value) + Val(Row.Cells("Column8").Value) + Val(Row.Cells("Column9").Value) + Val(Row.Cells("Column10").Value)

            End If

        Next

        Me.TextBox1.Text = TFields.ToString()

PHP كود :

Dim TFields As Integer = 0

For Each Row As DataGridViewRow In DataGridView1.Rows
    For i As Integer = 0 To DataGridView1.Columns.Count - 1
        Dim cellValue As Object = Row.Cells(i).Value

        If IsNumeric(cellValue) AndAlso Val(cellValue) = 10 Then
            TFields += Val(cellValue)
        End If
    Next
Next

Me.TextBox1.Text = TFields.ToString()