25-07-21, 08:32 PM
(آخر تعديل لهذه المشاركة : 25-07-21, 08:46 PM {2} بواسطة ابراهيم ايبو.)
السلام عليكم ورحمة الله وبركاته
اخي الخطأ كوجود في القيم المسندة الى المتغيرات T1,T2 >>>> الخ
بالنسبة للعمليات الحسابية هذا شأنك
لاخظ هذا الكود هو لعملية ضرب T1 * T2 والنتيجة في T3
وقس على ذلك بقية الحقول اتمنى ان تكون الفكرة واضحة
اخي الخطأ كوجود في القيم المسندة الى المتغيرات 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اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
