[الماجيك مسعد]

السلام عليكم

واجهت مشكلة غريبة بعض الشئ مش عارف انا كاتب الكود غلط ولا منين المشكلة

سمى الله اولا

المشروع تبعى نسخة طبق الاصل من هذه الصورة

ولكن مع تغير الاسامى فقط




مشكلة المشروع هى

المفروض انى اكتب الكمية المراد بيعها ثم اضغط على زر بيع

وبعد ضغط زر بيع

يتم الاتى

زيادة الكمية الى اتباعت على الكمية المباعة
نقص الكمية الى اتباعت من الكمية المتبقية

حاولت بالطريقة العادية الى دايما بستخدمها

soldcount += tosale
remain -= tosale

ولكن لم تنفع ولا اعرف السبب

وهذا رابط تحميل المشروع للتعديل عليه

http://up.dev-point.com/download264781.html

وهذا الكود كامل الخاص بزر البيع

لم يريد تعديل الكود فقط بدون ان يرى المشروع

Private Sub d_CellClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles d.CellClick
If e.ColumnIndex = 8 Then
cmdb = New OleDb.OleDbCommandBuilder(da)
Dim founded As String = d.Rows(e.RowIndex).Cells("founded").Value '"الكمية الموجودة"
Dim soldcount As String = d.Rows(e.RowIndex).Cells("soldcount").Value '"الكمية المباعة"
Dim remain As String = d.Rows(e.RowIndex).Cells("remain").Value '"الكمية المتبقية"
Dim tosale As String = d.Rows(e.RowIndex).Cells("tosold").Value '"الكمية المطلوب بيعها"
Dim price As Integer = d.Rows(e.RowIndex).Cells("price").Value '"السعر"
If IsNothing(tosale) Then MsgBox("يجب كتابة قيمة في الكمية المراد بيعها قبل النقر هنا", MsgBoxStyle.Critical, "") : Exit Sub
founded += tosale
dt.Rows(e.RowIndex).Item("founded") = founded
soldcount += tosale
remain -= tosale
dt.Rows(e.RowIndex).Item("soldcount") = soldcount
dt.Rows(e.RowIndex).Item("remain") = remain
Dim pricesale As String = "اجمالى السعر = " & tosale * price
MsgBox("العدد = " & tosale & nl & "سعر القطعة = " & price & nl & pricesale)
da.Update(dt)
Form1_Load(Nothing, Nothing)
End If
End Sub