منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] جمع فواتير الناتجة عن البحث وعدد الفواتير - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] جمع فواتير الناتجة عن البحث وعدد الفواتير (/showthread.php?tid=29133)

جمع فواتير الناتجة عن البحث وعدد الفواتير - EMADSSS - 24-03-19

لو سمحتو سويت برنامج صغير لمحل تجاري وقاعدة اكسس مربوطة بالبرنامج بحفظ عليه اسم المشتري ومبلغ الفاتورة عاوز لما ابحث عن اسم شخص وتضهر كل الفواتير الي باسمه
يوضعلي بتكست بوكس 1 عدد الفواتير الخاصه به  وفي تكست بوكس 2 محموع الفواتير يعني المبلغ الكلي للفواتير
راح ادرج مشروع مصغر عن مشروعي ياريت المساعدة يعني لما ابحث عن اسم عماد محمد مثلا يكتبلي عدد الفواتير الي باسمه في التكست بوكس1 ومحموع الفواتير الي باسمه في التكست بوكس 2 وشكرا الكم سلفا

RE: جمع فواتير الناتجة عن البحث وعدد الفواتير - Emam emam - 24-03-19

تفضل اخي
هذا كود لعمل اجمال الفواتير
PHP كود :
Dim sum As Double
            For s As Integer = 0 To ADataGridView.RowCount - 1
                sum = sum + ADataGridView.Rows(s).Cells(2).Value
            Next
            TextBox3.Text = (sum) 
 وهذا كود لعمل اجمالي عدد الفواتير

PHP كود :
       TextBox2.Text = ADataGridView.RowCount - 1 
وهذا المثال بعد التعديل عليه

RE: جمع فواتير الناتجة عن البحث وعدد الفواتير - EMADSSS - 25-03-19

(24-03-19, 11:48 PM)Emam emam كتب : تفضل اخي
هذا كود لعمل اجمال الفواتير
PHP كود :
Dim sum As Double
            For s As Integer = 0 To ADataGridView.RowCount - 1
                sum = sum + ADataGridView.Rows(s).Cells(2).Value
            Next
            TextBox3.Text = (sum) 
 وهذا كود لعمل اجمالي عدد الفواتير

PHP كود :
       TextBox2.Text = ADataGridView.RowCount - 1 
وهذا المثال بعد التعديل عليه
شكرا لكل القائمين على هذا العمل وشكر خاص للاستاذ emam

RE: جمع فواتير الناتجة عن البحث وعدد الفواتير - Emam emam - 26-03-19

(25-03-19, 09:49 PM)EMADSSS كتب :
(24-03-19, 11:48 PM)Emam emam كتب : تفضل اخي
هذا كود لعمل اجمال الفواتير
PHP كود :
Dim sum As Double
            For s As Integer = 0 To ADataGridView.RowCount - 1
                sum = sum + ADataGridView.Rows(s).Cells(2).Value
            Next
            TextBox3.Text = (sum) 
 وهذا كود لعمل اجمالي عدد الفواتير

PHP كود :
       TextBox2.Text = ADataGridView.RowCount - 1 
وهذا المثال بعد التعديل عليه
شكرا لكل القائمين على هذا العمل وشكر خاص للاستاذ emam



الشكر لله اخي

بالتوفيق ان شاء الله


RE: جمع فواتير الناتجة عن البحث وعدد الفواتير - EMADMW17 - 09-04-19

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

RE: جمع فواتير الناتجة عن البحث وعدد الفواتير - elgokr - 09-04-19

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

تعال على هذا السطر 
كود :
sum = sum + ADataGridView.Rows(s).Cells(2).Value

واجعله بهذا الشكل
كود :
sum = sum + Val(ADataGridView.Rows(s).Cells(2).Value.ToString())

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


RE: جمع فواتير الناتجة عن البحث وعدد الفواتير - EMADMW17 - 09-04-19

اخي الكريم جربت الكود عم يعطي ناتج الجمع صفر

RE: جمع فواتير الناتجة عن البحث وعدد الفواتير - elgokr - 10-04-19

الكود بردى الاخير هو بناءاً على ما تم 
بالرد التالى
http://vb4arb.com/vb/showthread.php?tid=29133&pid=138789#pid138789

الخاص باخى Emam emam
اى عملية الايتبدال فى كود الخاص به
لجعل القيمة التى تاتى فارغة 0 ويجمعها من الاجمالى اللى فى Sum

كمثال ان قيمة sum كالتالى
كود :
sum = sum + ""

سيتحول الى
كود :
sum = sum + 0

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


RE: جمع فواتير الناتجة عن البحث وعدد الفواتير - EMADMW17 - 10-04-19

شكرا الك اخي الكريم

RE: جمع فواتير الناتجة عن البحث وعدد الفواتير - elgokr - 11-04-19

الشكر لله والحمد لله
والحمد لله على كل حال

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