[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


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

[Amir_Alzubidy]

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

السلام عليكم و رحمة الله 
مشاركة الاخ سامي رقم #2 تمام مية بالمية
بس غيّر الفاصلة اللي مستخدمها انت في الكود الخاص بك
الفاصلة اللي لازم تستخدمها هي الفاصلة الموجود في المفتاح Del  على لوحة المفاتيح
هذا مثال عشان تشوف ايش الفرق بين الفاصلتين  :

  Format$_number.rar (الحجم : 1.38 ك ب / التحميلات : 15)

[hannileo]

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

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

اشكركم