السلام عليكم
اريد تحميل الاصناف من قاعدة البيانات
وعند كتابة الباركود للصنف اذا كان موجود يضيف واحد
وان كان غير موجود يضيف الباركود واضافة الكمية 1
الكود يعمل عند البحث اول مرة لكن ان لم يجد كود مسجل يحدث خطاء
برجاء اين الحل مازلت احاول فى التعديل على الكود
برجاء محتاج المساعدة
محتاج اعرض بيانات عن طريق datateble
وإضافة بيانات أو ذيادة لو نفس الكود موجود
بدون الغاء البيانات القديمة
For i = 0 To dvg_purchas.Rows.Count - 1
If dvg_purchas.Rows(i).Cells(0).Value.ToString = txt_code.Text Then
dvg_purchas.Rows(i).Cells(1).Value += 1
'هنا ضع جملة الاضافة لقاعدة البيانات
txt_code.ResetText()
Return
Else
'هنا ضع جملة الاضافة لقاعدة البيانات
txt_code.ResetText()
Return
End If
Next
(26-06-20, 06:34 PM)قناص المدينة كتب : [ -> ]For i = 0 To dvg_purchas.Rows.Count - 1
If dvg_purchas.Rows(i).Cells(0).Value.ToString = txt_code.Text Then
dvg_purchas.Rows(i).Cells(1).Value += 1
'هنا ضع جملة الاضافة لقاعدة البيانات
txt_code.ResetText()
Return
Else
'هنا ضع جملة الاضافة لقاعدة البيانات
txt_code.ResetText()
Return
End If
Next
لا اريد اراضافة إلى قاعدة البيانات
اريد إضافة إلى الداتا جريد مع إبقاء البيانات الموجودة
السلام عليكم ورحمة الله وبركاته
تفضل اخي هذا تعديل على كود الاضافة
اولا نعرف متغير من نوع بولين ونجعل قيمته False
اولا سيتم التحقق من وجود السجل ان كان موجودا سيضيف 1 ويخرج
وان لم يكن موجودا خلال مقارنته في حلقة الدوران مغ كل سجل سيجعل قيمة المتغير ب True
وبعد انتهاء حلقة الدوران سنتحقق ان كانت القيمة true سنضيف سجل جديد مع قيمة 1
ثم نعيد قيمة المتغير الى false مرة اخرى
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim kk As Boolean = False
For i As Integer = 0 To dvg_purchas.Rows.Count - 1
If dvg_purchas.Rows(i).Cells(0).Value.ToString = txt_code.Text Then
MsgBox("هذا الكود مسجل من قبل سيتم اضافة مرة اخرى :" + txt_code.Text, MsgBoxStyle.Critical, "الكود مكرر")
dvg_purchas.Rows(i).Cells(1).Value = dvg_purchas.Rows(i).Cells(1).Value + 1
Exit Sub
Else
kk = True
End If
Next
If kk = True Then
Dim row As DataRow = dt_Item.NewRow
row(0) = txt_code.Text
row(1) = 1
dt_Item.Rows.Add(row)
MsgBox("تمت الاضافة" + txt_code.Text, MsgBoxStyle.Information, "اضافة")
End If
kk = False
End Sub