تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب مساعدة في كود البحث بالتاريخ وبمربع تكست وعرض البيانات بالتكست والداتا جريد
#11
(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

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

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


بارك الله فيك
لما تقدمه من تعليم ومساعدة عظيمة لأعضاء المنتدى
الرد }}}
تم الشكر بواسطة: ابو روضة , essawq , elgokr
#12
(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

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

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


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

اشكركم جميعا لما تقدموة من مساعدة 
وهذا المنتدى صرح تعليمي والمواضيع والمشاكل والحلول تبقى موجودة لمن يواجة مشكلة 
ومن الواجب لمن يطرح مشكلة معينة ويجد الحل ان يذكر طريقة الحل حتى لو كان بسيط جدا حتى تعم الفائدة
تحياتي لكم جميعا
الرد }}}
تم الشكر بواسطة:
#13
(01-09-18, 03:24 PM)عابر سبيل 2 كتب :
بارك الله فيك
لما تقدمه من تعليم ومساعدة عظيمة لأعضاء المنتدى

وبارك الله لك اخى عابر سبيل 2
على المجهود الراع الذى تقدمه للاخرين 

فبارك الله لك 

(01-09-18, 03:24 PM)essawq كتب :
اشكركم جميعا لما تقدموة من مساعدة 
وهذا المنتدى صرح تعليمي والمواضيع والمشاكل والحلول تبقى موجودة لمن يواجة مشكلة 
ومن الواجب لمن يطرح مشكلة معينة ويجد الحل ان يذكر طريقة الحل حتى لو كان بسيط جدا حتى تعم الفائدة
تحياتي لكم جميعا

الشكر لله اخى essawq
فالحمد لله والحمد لله على كل حال
اتمنى من الجميع ان يكون دائماً اصحاب انطباع العطاء وليس البخل

فتحياتى لكم جميعاً
وتمنياتى لكم التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: essawq , عابر سبيل 2 , عابر سبيل 2



التنقل السريع :


يقوم بقرائة الموضوع: