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

السلام عليكم

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

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

كود :
 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

كود :
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()

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

كود :
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)

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

اشكرك

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

محمد اسماعيل

rnmr

محمد اسماعيل