السلام عليكم ورحمة الله وبركاتة
عندي داتا جريد فيو تحتوي على عدة اعمدة
احد هذة الاعمدة المعلومات بداخلة رقمية لنفرض مثلا المبلغ المدفوع
يتم جمع هذا العمود ووضع الناتج في تكست بوكس ... الامور الى الان تمااام
كود الجمع :
كود :
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 ؟
(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 ؟
اخي الكريم عبد العزيز
كود الجمع يعمل مئة بالمئة ولا يوجد اي مشاكل بة
بالنسبة لحقل المبلغ بقاعدة البيانات ليس انتجر بل ريل
الفورم عندي يعمل ولا يوجد اي مشكلة والداتا جريد فيو حقل واحد يحتوي على المبلغ المدفوع ويتم جمع هذا المبلغ ووضعة بالفورم داخل تكت بوكس
كل ما اريدة ان اضع تكست بوكس على الفورم يتم طرح المبلغ المجموع من الداتا جريد فيو برقم ثابت انا احددة هكذا اخي :
اجمالي المبلغ المدفوع = تكست بوكس (ناتج الجمع من الداتا جريد فيو)
المبلغ المتبقي = تكست بوكس (يتم فية طرح الناتج من التكست بوكس الخاص بالجمع على رقم انا احددة بعيد عن قاعدة البيانات)
اتمنى ان اكون قد وضحت المطلوب
اضف عدد اثنين 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()
(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 عند تحميل الفورم مباشرة
والرقم الذي اريد الطرح منة يكون رقم معين ثابت
مع التجاوب مع اي عملية حذف او اضافة او تعديل
ارجو ان اكون وضحت
تحياتي لك
في الصوره واضح حقل واحد وهو المدفوع
هل ممكن ارسال جزء من البرنامج؟
وابشر ان شاء الله ستحل المشكلة
كما اقترح عليك تسمية الحقول بمسمى ذا معنى بحيث تفهمالغرض منه
مثلا
txttotal
tctbalance
txtpayment
وهكذا بدلا من textbox1 -textbox2
مشكور اخي وبارك الله فيك وجزاك الله كل خير
نعم اخي لا يوجد سوى حقل واحد بقاعدة البيانات المبلغ المدفوع وبالداتاجريد ايظا
بالواقع عندي ثلاث شاشات تؤدي نفس الغرض لكن ببيانات مختلفة وحسابات مختلفة التعديل على واحدة يكفي
ارفقت نسخة مصغرة من البرنامج vb.net 2017 sql server 2017
ارفقت لك قاعدة البيانات المستخدمة سكربت
تحياتي لك
بانتظار مساعدتكم اخواني
بارك الله فيكم وجزاكم كل خير