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

(01-09-18, 03:19 PM)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

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

تحياتى لك

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

(01-09-18, 03:24 PM)عابر سبيل 2 كتب : [ -> ]

(01-09-18, 03:19 PM)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

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

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

بارك الله فيك

لما تقدمه من تعليم ومساعدة عظيمة لأعضاء المنتدى

(01-09-18, 03:24 PM)عابر سبيل 2 كتب : [ -> ]

بارك الله فيك

لما تقدمه من تعليم ومساعدة عظيمة لأعضاء المنتدى

(01-09-18, 03:24 PM)essawq كتب : [ -> ]

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

وهذا المنتدى صرح تعليمي والمواضيع والمشاكل والحلول تبقى موجودة لمن يواجة مشكلة 

ومن الواجب لمن يطرح مشكلة معينة ويجد الحل ان يذكر طريقة الحل حتى لو كان بسيط جدا حتى تعم الفائدة

تحياتي لكم جميعا