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

وشكرا لكم

[sami4]

(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

[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 
 
فما هو حل هذه المشكلة
وشكرا لك

[sami4]

(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


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

[hannileo]

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

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

اشكركم