تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
استفسار اخوانى الاعزاء فى اضافه المبلغ يعد حذف الفاتوره التى حفظت
#1
السلام عليكم احبتى فى الله
لدى داتا جريد فيو وبها خليتين بهما مبلغ العهده ومبلغ الاكراميه وفى الفورم زر حذف تلك الفاتوره اريد عند حذف الفاتوره اضافه المبلغ المبلغ الذى خصم عند حفظ الفاتوره بعد جمع العهده والاكراميه والناتج يضيغه الى حساب المورد
ولكم منى جزيل الشكر
ملجوظه الفورم الذى اتكلم عنه لا يوجد فيه عير الداتا جريد فيو وتكست بحث فقط لا عير 
لكم منى جيزل الشكر والعرفان

الرد
تم الشكر بواسطة:
#2
وعليكم السلام...
استخدم العمليات الحسابية كما تريد وبعدها اجعل كود للتعديل قبل الحذف.
الرد
تم الشكر بواسطة: خالد كامل1
#3
(24-10-19, 03:12 PM)اسامه الهرماوي كتب : وعليكم السلام...
استخدم العمليات الحسابية كما تريد وبعدها اجعل كود للتعديل قبل الحذف.
انا فعلت كل هذا ولكن المشكله انه يغير فقط المورد رقم 1 وايضا يجمع العمود ويضيفه على نفس كود الشركه رقم واحد سوف اريك الكود الذى استعمله 
كود :
Sub add_company()
       Dim r As Double


       If dgv_BOLESA.CurrentRow.Index Then

           r = Val(dgv_BOLESA.CurrentRow.Cells(10).Value) + Val(dgv_BOLESA.CurrentRow.Cells(9).Value)
           Dim cmdzqty As New OleDbCommand
           With cmdzqty
               .Connection = con
               .CommandType = CommandType.Text
               .CommandText = " Update companyS set rased_company = rased_company + " & r & "  where  COMPANY_code =@company_code"
               .Parameters.Add(New OleDb.OleDbParameter("@company_code", OleDb.OleDbType.VarChar)).Value = dgv_BOLESA.CurrentRow.Cells(13).Value

           End With
           If con.State = 1 Then con.Close()
           con.Open()
           cmdzqty.ExecuteNonQuery()
           con.Close()
       End If
   End Sub
الرد
تم الشكر بواسطة:
#4
ارجو الرد اخوانى مشروعى متوقف على تلك المشكله
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم