[essawq]

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

عندي داتا جريد فيو تحتوي على عدة اعمدة 
احد هذة الاعمدة المعلومات بداخلة رقمية لنفرض مثلا المبلغ المدفوع 
يتم جمع هذا العمود ووضع الناتج في تكست بوكس  ... الامور الى الان تمااام

كود الجمع :

كود :

Private Sub SummDgvGoled()
       Dim summ As Integer = 0
       For i As Integer = 0 To DgvGoled.RowCount - 1
           summ += DgvGoled.Rows(i).Cells(2).Value
       Next
       TexTotal2.Text = Format(summ, "00.00")
       TexTotal2.ForeColor = Color.Red
   End Sub

 
تم ارفاق نسخة مصغرة من المشروع + قاعدة البيانات سكربت

صورة الفورم

https://www.mediafire.com/view/kxrn06c12...2.PNG/file


هنا يتم جمع المبلغ المدفوع واظهارة في  TexTotal2

اريد ان اضهر الباقي في تكست الباقي  TexTotal1  عند تحميل الفورم مباشرة 

والرقم  الذي اريد الطرح منة يكون رقم معين ثابت 

مع التجاوب مع اي عملية حذف او اضافة او تعديل



ارجو ان اكون وضحت

تحياتي لك

[عبد العزيز البسكري]

(13-01-21, 12:43 AM)essawq كتب : السلام عليكم ورحمة الله وبركاتة

عندي داتا جريد فيو تحتوي على عدة اعمدة 
احد هذة الاعمدة المعلومات بداخلة رقمية لنفرض مثلا المبلغ المدفوع 
يتم جمع هذا العمود ووضع الناتج في تكست بوكس  ... الامور الى الان تمااام

كود الجمع :

كود :

Private Sub SummDgvGoled()
       Dim summ As Integer = 0
       For i As Integer = 0 To DgvGoled.RowCount - 1
           summ += DgvGoled.Rows(i).Cells(2).Value
       Next
       TexTotal2.Text = Format(summ, "00.00")
       TexTotal2.ForeColor = Color.Red
   End Sub

اريد طريقة ان اعرض في تكست بوكس اخر مثلا المبلغ المتبقي من مبلغ احددة انا ؟
 تحياتي لكم

غير واضح تماما المطلوب .. أخي الكريم .. !!

ملاحظة خارجية : لماذا جعلت حقل المبلغ Integer ؟

[essawq]

(13-01-21, 01:41 AM)عبد العزيز البسكري كتب :

(13-01-21, 12:43 AM)essawq كتب : السلام عليكم ورحمة الله وبركاتة

عندي داتا جريد فيو تحتوي على عدة اعمدة 
احد هذة الاعمدة المعلومات بداخلة رقمية لنفرض مثلا المبلغ المدفوع 
يتم جمع هذا العمود ووضع الناتج في تكست بوكس  ... الامور الى الان تمااام

كود الجمع :

كود :

Private Sub SummDgvGoled()
       Dim summ As Integer = 0
       For i As Integer = 0 To DgvGoled.RowCount - 1
           summ += DgvGoled.Rows(i).Cells(2).Value
       Next
       TexTotal2.Text = Format(summ, "00.00")
       TexTotal2.ForeColor = Color.Red
   End Sub

اريد طريقة ان اعرض في تكست بوكس اخر مثلا المبلغ المتبقي من مبلغ احددة انا ؟
 تحياتي لكم

غير واضح تماما المطلوب .. أخي الكريم .. !!

ملاحظة خارجية : لماذا جعلت حقل المبلغ Integer ؟

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

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

كل ما اريدة ان اضع تكست بوكس على الفورم  يتم طرح المبلغ المجموع من الداتا جريد فيو  برقم ثابت انا احددة  هكذا اخي :

اجمالي المبلغ المدفوع  =  تكست بوكس   (ناتج الجمع من الداتا جريد فيو)


المبلغ المتبقي  =  تكست بوكس  (يتم فية طرح الناتج  من التكست بوكس  الخاص بالجمع على رقم انا احددة بعيد عن قاعدة البيانات)

اتمنى ان اكون قد وضحت المطلوب

[moosa_alabri]

اضف عدد اثنين textbox ولتكن:textbox3 و textbox4

textbox3 سوف تضع المبلغ المحدد
textbox4    ستظهر فيه نتيج طرح الجمع من الرقم الذي ادخلته في textbox3

عدل الى الكود السابق كما يلي

PHP كود :

Private Sub SummDgvGoled()
       Dim summ As Integer = 0
       For i As Integer = 0 To DgvGoled.RowCount - 1
           summ += DgvGoled.Rows(i).Cells(2).Value   
Next
       text4.text=Val(textbox2.text)-Val(textbox3.text)
       TexTotal2.Text = Format(summ, "00.00")
       TexTotal2.ForeColor = Color.Red 


وفي حدث textbox4 leave استدعي الدالة
SUmmdgvgoled()

[essawq]

(13-01-21, 08:38 AM)moosa_alabri كتب : اضف عدد اثنين textbox ولتكن:textbox3 و textbox4

textbox3 سوف تضع المبلغ المحدد
textbox4    ستظهر فيه نتيج طرح الجمع من الرقم الذي ادخلته في textbox3

عدل الى الكود السابق كما يلي

PHP كود :

Private Sub SummDgvGoled()
       Dim summ As Integer = 0
       For i As Integer = 0 To DgvGoled.RowCount - 1
           summ += DgvGoled.Rows(i).Cells(2).Value   
Next
       text4.text=Val(textbox2.text)-Val(textbox3.text)
       TexTotal2.Text = Format(summ, "00.00")
       TexTotal2.ForeColor = Color.Red 


وفي حدث textbox4 leave استدعي الدالة
SUmmdgvgoled()

لم افلح في التطبيق اخي

ساوضح اكثر 

لدي هذا الفورم

https://www.mediafire.com/view/kxrn06c12...2.PNG/file

هنا يتم جمع المبلغ المدفوع واظهارة في  TexTotal2

اريد ان اضهر الباقي في تكست الباقي  TexTotal1  عند تحميل الفورم مباشرة 

والرقم  الذي اريد الطرح منة يكون رقم معين ثابت 

مع التجاوب مع اي عملية حذف او اضافة او تعديل



ارجو ان اكون وضحت

تحياتي لك

[moosa_alabri]

في الصوره واضح حقل واحد وهو المدفوع
هل ممكن ارسال جزء من البرنامج؟
وابشر ان شاء الله ستحل المشكلة

كما اقترح عليك تسمية الحقول بمسمى ذا معنى بحيث تفهمالغرض منه
مثلا
txttotal
tctbalance
txtpayment
وهكذا بدلا من textbox1 -textbox2

[essawq]

مشكور اخي وبارك الله فيك وجزاك الله كل خير
نعم اخي لا يوجد سوى حقل واحد بقاعدة البيانات المبلغ المدفوع وبالداتاجريد ايظا
بالواقع عندي ثلاث شاشات تؤدي نفس الغرض لكن ببيانات مختلفة وحسابات مختلفة التعديل على واحدة يكفي
ارفقت نسخة مصغرة من البرنامج   vb.net 2017  sql server 2017
ارفقت لك قاعدة البيانات المستخدمة سكربت



تحياتي لك

[essawq]

بانتظار مساعدتكم اخواني
بارك الله فيكم وجزاكم كل خير

[moosa_alabri]

لعل هذا المطلوب

[essawq]

(13-01-21, 12:54 PM)moosa_alabri كتب : في الصوره واضح حقل واحد وهو المدفوع
هل ممكن ارسال جزء من البرنامج؟
وابشر ان شاء الله ستحل المشكلة

كما اقترح عليك تسمية الحقول بمسمى ذا معنى بحيث تفهمالغرض منه
مثلا
txttotal
tctbalance
txtpayment
وهكذا بدلا من textbox1 -textbox2

(13-01-21, 07:40 PM)moosa_alabri كتب : لعل هذا المطلوب

اخي هذا المشروع ليس لي ؟
شكرا لك