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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ممكن كود جمع قيم العمود و قسمة (/showthread.php?tid=32605)



ممكن كود جمع قيم العمود و قسمة - sofiane-phy - 19-12-19

السلام عليكم ، ممكن كود جمع قيم عمود و القسمة على نفس عدد خلايا العمود


RE: ممكن كود جمع قيم العمود و قسمة - sofiane-phy - 20-12-19

اثناء بحثي وجدت طريقتين لكي تعم الفائدة


كود :
' الطريقة 1
       textBoxAvg.Text = (From row As DataGridViewRow In dataGridView1.Rows
       Where row.Cells(2).FormattedValue.ToString() <> String.Empty
                    Select Convert.ToInt32(row.Cells(2).FormattedValue)).Average().ToString()

       ' الطريقة 2
       Dim avg As Double
       Dim sum As Integer
       For i As Integer = 0 To dataGridView1.Rows.Count() - 1 Step +1
           sum = sum + dataGridView1.Rows(i).Cells(2).Value
       Next

       avg = sum / dataGridView1.Rows.Count()
       textBoxAvg.Text = avg.ToString("00.000")
   End Sub
End Class