24-04-24, 09:12 PM
السلام عليكم
اخواني عندي دتاجريدفيو بها 10 أعمدة و بها علامات من 1 الى 10
اريد حساب مجموع الخلايا التي مكتوب بها فقط العدد 10
هذا الكود وجدته من هنا و هناك و ركبته بطريقة عشوائية و ضبط الحال لست اعرف كيف تم ذلك المهم يعطي النتيجة الصحيحة
فقط لو تكرمتم هل يمكن مراجعته أو عمل اختصار له و تصغير اكواده نوعا ما اذا هذا ممكن بارك الله في الجميع
اخواني عندي دتاجريدفيو بها 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()