+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : حساب مجموع ما في الداتا جريد فيو لكل صف (/showthread.php?tid=29638)
حساب مجموع ما في الداتا جريد فيو لكل صف - alshandodi - 18-05-19
السلام عليكم يا اخواني
اذا سمحتم اتمنى افادتي فقمت بعمل داتا جريد فيو واريد حساب
B - A * C = Total لكل صف من الصفوف عند فتح الفورم او ضغط على تحديث
وهذا مثال واتمنى الافادة فلم اجد الموضوع او انه طرح بصيغة اخرى
RE: حساب مجموع ما في الداتا جريد فيو لكل صف - اسامه الهرماوي - 18-05-19
السلام عليكم....
قم بعمل نسخ ولصق لهذا الكود كاملا وضعة في مشروعك وجرب.
كود :
Private Sub DataGridView1_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting
On Error Resume Next
Dim sumc As Double = 0
For Each rc As DataGridViewRow In Me.DataGridView1.Rows
sumc = rc.Cells(3).Value - rc.Cells(2).Value * rc.Cells(4).Value
rc.Cells(5).Value = sumc
Next
End SubRE: حساب مجموع ما في الداتا جريد فيو لكل صف - alshandodi - 18-05-19
(18-05-19, 03:36 PM)اسامه الهرماوي كتب : السلام عليكم....
قم بعمل نسخ ولصق لهذا الكود كاملا وضعة في مشروعك وجرب.
كود :
Private Sub DataGridView1_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting
On Error Resume Next
Dim sumc As Double = 0
For Each rc As DataGridViewRow In Me.DataGridView1.Rows
sumc = rc.Cells(3).Value - rc.Cells(2).Value * rc.Cells(4).Value
rc.Cells(5).Value = sumc
Next
End Sub
أشكرك جزيل الشكر اخي العزيز ولكن في الحساب تكون الأعداد ملخبطه والناتج خطا
واتمنى ان تفيدني ولك جزيل الشكر مرة أخرى
[attachment=21524]
RE: حساب مجموع ما في الداتا جريد فيو لكل صف - sami4 - 18-05-19
(18-05-19, 11:42 AM)alshandodi كتب : السلام عليكم يا اخواني
اذا سمحتم اتمنى افادتي فقمت بعمل داتا جريد فيو واريد حساب
B - A * C = Total لكل صف من الصفوف عند فتح الفورم او ضغط على تحديث
وهذا مثال واتمنى الافادة فلم اجد الموضوع او انه طرح بصيغة اخرى
ضع هذا الاستعلام وستحصل على المجموع Total مع البيانات
"select ID, product_NAME, A, B, C, ((B-A)*C) AS Total from TBL_products"
لا تنسى تحذف سطر DT.Columns.Add
RE: حساب مجموع ما في الداتا جريد فيو لكل صف - ابراهيم ايبو - 18-05-19
السلام عليكم اخي الكريم
هذا مثال لما تريد ان شاء الله
دمت بخير ... رمضان كريم
أخي الكريم قم بتعديل السجلات لانني كنت قد سجلتها قبل ان اكتب كود الحساب ليظهر الناتج في مربع النص Total
RE: حساب مجموع ما في الداتا جريد فيو لكل صف - alshandodi - 19-05-19
(18-05-19, 08:44 PM)sami4 كتب :(18-05-19, 11:42 AM)alshandodi كتب : السلام عليكم يا اخواني
اذا سمحتم اتمنى افادتي فقمت بعمل داتا جريد فيو واريد حساب
B - A * C = Total لكل صف من الصفوف عند فتح الفورم او ضغط على تحديث
وهذا مثال واتمنى الافادة فلم اجد الموضوع او انه طرح بصيغة اخرى
ضع هذا الاستعلام وستحصل على المجموع Total مع البيانات
"select ID, product_NAME, A, B, C, ((B-A)*C) AS Total from TBL_products"
لا تنسى تحذف سطر DT.Columns.Add
6.8999999999999995 هذا الناتج يظهر اذا كان يوجد به كسور مال هو الحل
اذا كان دون كسور يظهر صحيح
RE: حساب مجموع ما في الداتا جريد فيو لكل صف - sniperjawadino - 19-05-19
إستعمل مثلا هذا الكود لإزالة الكسور
كود :
FormatNumber()قم بوضع الناتج ذاخل القوس
RE: حساب مجموع ما في الداتا جريد فيو لكل صف - sami4 - 19-05-19
(19-05-19, 08:01 AM)alshandodi كتب :(18-05-19, 08:44 PM)sami4 كتب :(18-05-19, 11:42 AM)alshandodi كتب : السلام عليكم يا اخواني
اذا سمحتم اتمنى افادتي فقمت بعمل داتا جريد فيو واريد حساب
B - A * C = Total لكل صف من الصفوف عند فتح الفورم او ضغط على تحديث
وهذا مثال واتمنى الافادة فلم اجد الموضوع او انه طرح بصيغة اخرى
ضع هذا الاستعلام وستحصل على المجموع Total مع البيانات
"select ID, product_NAME, A, B, C, ((B-A)*C) AS Total from TBL_products"
لا تنسى تحذف سطر DT.Columns.Add
6.8999999999999995 هذا الناتج يظهر اذا كان يوجد به كسور مال هو الحل
اذا كان دون كسور يظهر صحيح
اذا كنت لا تريد الكسور ولا تريد التقريب
ضع كلمه fix قبل اقواس العمليه الحسابيه التي في الاستعلام
"select ID, product_NAME, A, B, C, fix((B-A)*C) AS Total from TBL_products"
واذ كنت تريد شكل الرقم مقسم الى اجزاء الالوف بفاصله مع كسر رقمين كرقم العمله
اكتب format قبل اقواس العمليه الحسابيه التي في الاستعلام مع اضافه التنسيق قبل اقفال القوس الاخير
"select ID, product_NAME, A, B, C, format((B-A)*C,'#,#.00') AS Total from TBL_products"
RE: حساب مجموع ما في الداتا جريد فيو لكل صف - alshandodi - 20-05-19
الشكر الجزيل لــ اسامه الهرماوي
إبراهيم إيبو
[b]sami4 [/b]
sniperjawadino
وكل أعضاء هذا المنتدى العزيز على قلبي
لقد تم إيجاد الحل وهذا بفضلكم جميعا فكلكم يد واحده تقدم العون
وهذا الكود الذي احتاجه واتمنى الجميع يستفيد دون الحاجه الى اضافة العمود في قاعدة البيانات
كود :
DT.Rows.Clear()
DA = New OleDbDataAdapter("select ID, product_NAME, A, B, C,D, format((B*C),'#,#.000') AS Total,((D-C)) AS Total2, format((B*Total2),'#,#.000') AS Total3 from TBL_products", con)
DA.Fill(DT)
Me.DataGridView1.DataSource = DT
DT.Columns.Add("Total")
DT.Columns.Add("Total2")
DT.Columns.Add("Total3")[attachment=21529]