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

السلام عليكم ورحمة الله وبركاته,,,

اخواني الكود التالي في برنامجي  واحد للسعر والاخر اجمالي السعر يعني حاصل ضرب الكمية بالنسعر المفرد يظهر المجموع

كيف اجعل الفورمات الخر نفس الاول  ###,###,###.00 بهذه الطريقةيظهر في listview حاولت لكن يجب ازالة val  



وشكرا لكم

(30-05-19, 03:49 PM)hannileo كتب : [ -> ]السلام عليكم ورحمة الله وبركاته,,,

اخواني الكود التالي في برنامجي  واحد للسعر والاخر اجمالي السعر يعني حاصل ضرب الكمية بالنسعر المفرد يظهر المجموع

كيف اجعل الفورمات الخر نفس الاول  ###,###,###.00 بهذه الطريقةيظهر في listview حاولت لكن يجب ازالة val  

كود :

   ListView2.ListItems(ListView2.ListItems.Count).SubItems(6) = Format(Text13.text, "###,###,###.00")
   ListView2.ListItems(ListView2.ListItems.Count).SubItems(7) = Val(Text14.text) * Val(Text6.text)

وشكرا لكم

طيب اعمل العمليه الحسابيه في متغير لوحده
ثم ضع بالتنسيق المطلوب مثل
dim v as double
v=Val(Text14.text) * Val(Text6.text) ' Mul
ListView2.ListItems(ListView2.ListItems.Count).SubItems(7) = Format(v,"###,###,###.00") 'Format

(30-05-19, 04:43 PM)sami4 كتب : [ -> ]طيب اعمل العمليه الحسابيه في متغير لوحده
ثم ضع بالتنسيق المطلوب مثل
dim v as double
v=Val(Text14.text) * Val(Text6.text) ' Mul
ListView2.ListItems(ListView2.ListItems.Count).SubItems(7) = Format(v,"###,###,###.00") 'Format

مشكور اخ سامي على الفكرة 
لكن المشكلة التي ظهرت هي طريقة جمع الارقام مع بعضها حيث اصبح مثلا سعر المنتج 2,750  والمتج الاخر 2,700 

يظهر ناتج المجموع 4 
 
فما هو حل هذه المشكلة
وشكرا لك

(01-06-19, 02:17 PM)hannileo كتب : [ -> ]

(30-05-19, 04:43 PM)sami4 كتب : [ -> ]طيب اعمل العمليه الحسابيه في متغير لوحده
ثم ضع بالتنسيق المطلوب مثل
dim v as double
v=Val(Text14.text) * Val(Text6.text) ' Mul
ListView2.ListItems(ListView2.ListItems.Count).SubItems(7) = Format(v,"###,###,###.00") 'Format

مشكور اخ سامي على الفكرة 
لكن المشكلة التي ظهرت هي طريقة جمع الارقام مع بعضها حيث اصبح مثلا سعر المنتج 2,750  والمتج الاخر 2,700 

يظهر ناتج المجموع 4 
 
فما هو حل هذه المشكلة
وشكرا لك

خلي السطر بهذا الشكل

v = Val(Replace(Text14.Text, ",", "")) * Val(Replace(Text6.Text, ",", "")) ' Mul


وكل عام وانتم بخير

بارك الله بكم استاذ سامي واستاذ عامر 

تم حل المشكلة بفضل الله وبفضل جهودكم  

اشكركم