منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] افضل طريقة لجمع عمود بالداتا جريد - نسخة قابلة للطباعة

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

افضل طريقة لجمع عمود بالداتا جريد - محمد اسماعيل - 07-10-18

السلام عليكم

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

1

كود :
   Dim totalSum As Integer
   For i As Integer = 0 To DataSet.Tables(0).Rows.Count - 1
      totalSum += DataSet.Tables(0).Rows(i).Item("CUSTOMERDETALIS_CREDIT")
   Next
   LAB_CREDITVAL = totalSum.ToString()

2-
كود :
 Dim result As Decimal = IIf(IsDBNull(Me.DataSet.Tables("CUSTOMERDETAILS_TB").Compute("SUM(CUSTOMERDETALIS_CREDIT)", "")), "0", Me.DataSet.Tables("CUSTOMERDETAILS_TB").Compute("SUM(CUSTOMERDETALIS_CREDIT)", ""))
           LAB_CREDITVAL.Text = result

3-


كود :
Dim sum As Integer = 0
       For i As Integer = 0 To dataGridView1.Rows.Count() - 1 Step +1
           sum = sum + dataGridView1.Rows(i).Cells(2).Value
       Next

       LAB_CREDITVAL = sum.ToString()


RE: افضل طريقة لجمع عمود بالداتا جريد - rnmr - 07-10-18

جرب هذا لمعرفة الزمن المستغرق لتنفيذ كود، وبعدها تستطيع تعرف الأسرع بشكل جيد
كود :
Dim sw As New Stopwatch
sw.Start()
'------------------------------

' Code

'------------------------------
sw.Stop()
MsgBox(sw.Elapsed.ToString)


RE: افضل طريقة لجمع عمود بالداتا جريد - محمد اسماعيل - 07-10-18

(07-10-18, 07:35 PM)rnmr كتب : جرب هذا لمعرفة الزمن المستغرق لتنفيذ كود، وبعدها تستطيع تعرف الأسرع بشكل جيد
كود :
Dim sw As New Stopwatch
sw.Start()
'------------------------------

' Code

'------------------------------
sw.Stop()
MsgBox(sw.Elapsed.ToString)

فكرة جديدة بصراحة مجدتش في بالي خالص

اشكرك