اذا سمحتم اتمنى افادتي فقمت بعمل داتا جريد فيو واريد حساب
B - A * C = Total لكل صف من الصفوف عند فتح الفورم او ضغط على تحديث
وهذا مثال واتمنى الافادة فلم اجد الموضوع او انه طرح بصيغة اخرى
السلام عليكم....
قم بعمل نسخ ولصق لهذا الكود كاملا وضعة في مشروعك وجرب.
كود :
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
(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
أشكرك جزيل الشكر اخي العزيز ولكن في الحساب تكون الأعداد ملخبطه والناتج خطا
واتمنى ان تفيدني ولك جزيل الشكر مرة أخرى
(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"
18-05-19, 11:05 PM (آخر تعديل لهذه المشاركة : 18-05-19, 11:23 PM {2} بواسطة ابراهيم ايبو.)
السلام عليكم اخي الكريم
هذا مثال لما تريد ان شاء الله
دمت بخير ... رمضان كريم
أخي الكريم قم بتعديل السجلات لانني كنت قد سجلتها قبل ان اكتب كود الحساب ليظهر الناتج في مربع النص Total
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
19-05-19, 08:01 AM (آخر تعديل لهذه المشاركة : 19-05-19, 08:18 AM {2} بواسطة 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 هذا الناتج يظهر اذا كان يوجد به كسور مال هو الحل
اذا كان دون كسور يظهر صحيح
(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"
الشكر الجزيل لــ اسامه الهرماوي إبراهيم إيبو [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")