[محمد خيري]

السلام عليكم 
اخواني عندي دتاجريدفيو بها 10 أعمدة و بها علامات من 1 الى 10
اريد حساب مجموع الخلايا التي مكتوب بها فقط العدد 10 
هذا الكود وجدته من هنا و هناك و ركبته بطريقة عشوائية و ضبط الحال لست اعرف كيف تم ذلك المهم يعطي النتيجة الصحيحة
فقط لو تكرمتم هل يمكن مراجعته أو عمل اختصار له و تصغير اكواده نوعا ما اذا هذا ممكن بارك الله في الجميع

كود :

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()