منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - اختصار كود الجمع داخل شبكة البيانات

السلام عليكم
اخواني عندي دتاجريدفيو بها 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()

جرب الكود

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

شكرا جزيلا اخي تركي الحلواني
اشتغل معي الكود بشكل ممتاز و بحساب مضبوط بارك الله فيك و نفع بك وزادك من علمه و فضله يا رب العالمين

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

محمد خيري

تركي الحلواني

محمد خيري