[EMADSSS]

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

[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 


وهذا المثال بعد التعديل عليه

[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

[Emam emam]

(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

الشكر لله اخي

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

[EMADMW17]

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

[elgokr]

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

تعال على هذا السطر 

كود :

sum = sum + ADataGridView.Rows(s).Cells(2).Value

واجعله بهذا الشكل

كود :

sum = sum + Val(ADataGridView.Rows(s).Cells(2).Value.ToString())

تحياتى لك

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

[EMADMW17]

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

[elgokr]

الكود بردى الاخير هو بناءاً على ما تم 

بالرد التالى

http://vb4arb.com/vb/showthread.php?tid=...#pid138789

الخاص باخى Emam emam

اى عملية الايتبدال فى كود الخاص به

لجعل القيمة التى تاتى فارغة 0 ويجمعها من الاجمالى اللى فى Sum

كمثال ان قيمة sum كالتالى

كود :

sum = sum + ""

سيتحول الى

كود :

sum = sum + 0

تحياتى لك

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

[EMADMW17]

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

[elgokr]

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

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

تحياتى لك

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