تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
برجاء تعديل على كود الكمية
#1
السلام عليكم

اريد  تحميل الاصناف من قاعدة البيانات

وعند كتابة الباركود للصنف اذا كان موجود يضيف واحد

وان كان غير موجود يضيف الباركود واضافة الكمية 1

 الكود يعمل عند البحث اول مرة لكن ان لم يجد كود مسجل يحدث خطاء

برجاء اين الحل مازلت احاول فى التعديل على الكود


الملفات المرفقة
.zip   items.zip (الحجم : 137.95 ك ب / التحميلات : 8)
الرد
تم الشكر بواسطة:
#2
برجاء محتاج المساعدة
محتاج اعرض بيانات عن طريق datateble
وإضافة بيانات أو ذيادة لو نفس الكود موجود
بدون الغاء البيانات القديمة
الرد
تم الشكر بواسطة:
#3
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
الرد
تم الشكر بواسطة:
#4
(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
لا اريد اراضافة إلى قاعدة البيانات

اريد إضافة إلى الداتا جريد مع إبقاء البيانات الموجودة
الرد
تم الشكر بواسطة:
#5
السلام عليكم ورحمة الله وبركاته
تفضل اخي هذا تعديل على كود الاضافة
اولا نعرف متغير من نوع بولين ونجعل قيمته 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
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة: العيدروس


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] اريد خانة تعديل فقط عامود واحد من الجدول مجـ متعلم ـرد 7 175 23-10-21, 02:47 AM
آخر رد: ابراهيم ايبو
  [ تمّ الحل ] : تعديل على نص المخرجات لأوامر Command AT عبد العزيز البسكري 3 192 20-10-21, 07:24 PM
آخر رد: عبد العزيز البسكري
  [Acces2010] ممكن تعديل الكون بسام محمدغانم 6 272 15-10-21, 04:26 AM
آخر رد: بسام محمدغانم
  [VB.NET] مساعدة في تعديل كود ميدو الفنان 1 317 20-09-21, 10:57 PM
آخر رد: ميدو الفنان
  جلب البيانات من جدول مع اجراء عمليات حسابية - تعديل الكود momani33 7 630 14-08-21, 09:34 AM
آخر رد: ابو انس
  تعديل على كود الحفظ aftfm 1 290 04-08-21, 09:10 PM
آخر رد: ابراهيم ايبو
Star [كود] طلب تعديل كود إليسار 3 446 30-07-21, 02:31 PM
آخر رد: إليسار
  تعديل على كود ابو انس 3 459 19-07-21, 10:55 PM
آخر رد: ابراهيم ايبو
  تعديل على كود لتحويل النصوص الى QR nabil.1710 0 295 14-07-21, 08:39 PM
آخر رد: nabil.1710
  [VB.NET] مطلوب تعديل في قاعدة البيانات nrkarat 0 391 09-06-21, 01:02 AM
آخر رد: nrkarat

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


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