[alshandodi]

السلام عليكم يا اخواني 

اذا سمحتم اتمنى افادتي فقمت بعمل داتا جريد فيو واريد حساب 
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

[alshandodi]

(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

أشكرك جزيل الشكر اخي العزيز ولكن في الحساب تكون الأعداد ملخبطه والناتج خطا 
واتمنى ان تفيدني ولك جزيل الشكر مرة أخرى
   

[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

[ابراهيم ايبو]

السلام عليكم اخي الكريم
هذا مثال لما تريد ان شاء الله
دمت بخير ... رمضان كريم
أخي الكريم قم بتعديل السجلات لانني كنت قد سجلتها قبل ان اكتب كود الحساب ليظهر الناتج في مربع النص Total

[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 هذا الناتج يظهر اذا كان يوجد به كسور مال هو الحل 
اذا كان دون كسور يظهر صحيح

[sniperjawadino]

إستعمل مثلا هذا الكود لإزالة الكسور

كود :

FormatNumber()

قم بوضع الناتج ذاخل القوس

[sami4]

(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"

[alshandodi]

الشكر الجزيل لــ  اسامه الهرماوي 
                   إبراهيم إيبو
                   [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")

 [url=http://vb4arb.com/vb/showthread.php?pid=141201#pid141201][/url]