[محمد اسماعيل]

السلام عليكم

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

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

[rnmr]

جرب هذا لمعرفة الزمن المستغرق لتنفيذ كود، وبعدها تستطيع تعرف الأسرع بشكل جيد

كود :

Dim sw As New Stopwatch
sw.Start()
'------------------------------

' Code

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

[محمد اسماعيل]

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

كود :

Dim sw As New Stopwatch
sw.Start()
'------------------------------

' Code

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

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

اشكرك