[elgokr]

(31-08-18, 04:40 AM)essawq كتب :

اشكركم جميعا

تم حل مشكلة الجمع بعد البحث

المشكلة يجب كتابة دبل وليس انتجر

هذا الكود 

كود :

dgv.DataSource = dt
       Dim summ As Double = 0
       For i As Integer = 0 To dgv.RowCount - 1
           summ += dgv.Rows(i).Cells(5).Value
       Next

       txt.Text = Format(summ, "00.00")

تحياتي لكم

احسنت رداً اخى essawq

فى توضيح لما تم ايجاده من رد

وهذا هو الحل الفعلى من تحويل نوع استقبال القيمة من Integer الى Double 

فالبعض قد يعلم الحل ولا يضع رد بذلك فاتمنى الجميع ان يبادر بالمثل 

حتى يعم الفائدة اكثر لطريقة استخراج الناتج

ما اشير اليه فى السطر التالى

كود :

txt.Text = Format(summ, "00.00")

فيمكنك ان تستخدمه بهذه الطريقة

كود :

txt.Text = summ.ToString("N2")

أو

كود :

txt.Text = Format(summ, "N2")

وتقوم بتغيير رقم 2 الى عدد الارقام العشرية المطلوب ظهورها وتقريب اقرب رقم لها

بحيث حرف N تعنى الارقام الصحيحة فاى كان الرقم الصحية احاد عشرات .... الخ يبقي القيمة كاملاً

والرقم ما بعد الحرف يشير الى الارقام العشرية 0 يعنى بدون 1 يعنى فقط رقم واحد 

فمثلاً لو القيمة 1.19 وانت جعلت الكتابة N1 تصبح القيمة 1.2

اتمنى ان تكون الصورة وضحت لكيفية الاستخدام

تحياتى لك

وتمنياتى لك التوفيق