[Ofealas]

(25-07-21, 08:32 PM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
اخي الخطأ كوجود في القيم المسندة الى المتغيرات T1,T2 >>>> الخ
بالنسبة للعمليات الحسابية هذا شأنك 
لاخظ هذا الكود هو لعملية ضرب T1 * T2 والنتيجة في T3 

كود :

Public Sub SaleCalcu()
       Dim t1, t2, t3 As Double
       If IsNothing(DGV.CurrentRow) OrElse IsNothing(DGV.CurrentRow.Cells(6).Value) Then
           t1 = 0
       Else
           t1 = Convert.ToDouble(Val(DGV.CurrentRow.Cells(6).Value))
       End If

       If IsNothing(DGV.CurrentRow) OrElse IsNothing(DGV.CurrentRow.Cells(2).Value) Then
           t2 = 0
       Else
           t2 = Convert.ToDouble(Val(DGV.CurrentRow.Cells(2).Value))

       End If

       If IsNothing(DGV.CurrentRow) OrElse IsNothing(DGV.CurrentRow.Cells(7).Value) Then
           t3 = 0
       Else
           t3 = t1 * t2

       End If
       DGV.CurrentRow.Cells(7).Value = t3
       
       
     
   End Sub

وقس على ذلك بقية الحقول اتمنى ان تكون الفكرة واضحة

اخي الكريم مشكور علي الرد
جربت الكود الخاص بيك وظهرت معايا المشكلة الموضحة بالصورة