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

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

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

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

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

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


الملفات المرفقة
.zip   items.zip (الحجم : 137.95 ك ب / التحميلات : 11)
الرد }}}
تم الشكر بواسطة:
#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
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل على فاتورة مبيعات خالد كامل1 4 68 26-03-24, 10:49 PM
آخر رد: خالد كامل1
  تعديل كود ارسال صورة الى الواتس new_programer 2 114 21-03-24, 10:07 PM
آخر رد: new_programer
  تعديل صب المجموع الكلي والمعدل والتقدير مصمم هاوي 3 130 19-03-24, 01:33 AM
آخر رد: مصمم هاوي
  تعديل طول حقل معين في جميع جداول القاعدة atefkhalf2004 1 97 09-03-24, 03:17 AM
آخر رد: atefkhalf2004
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 2 164 05-03-24, 08:27 PM
آخر رد: مصمم هاوي
  اريد طباعة الباركود المحدد فقط مع الكمية new_programer 5 430 09-01-24, 08:40 PM
آخر رد: new_programer
  ممكن تعديل في كود التفقيط للارقام melad2002 2 333 01-01-24, 08:47 PM
آخر رد: melad2002
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7
  [VB.NET] محتاج مساعدة تعديل على كود ZEEN4ZEEN 4 416 08-10-23, 09:11 PM
آخر رد: ZEEN4ZEEN
  محتاج تعديل على سورس كود - حفظ البيانات بدون قاعدة بيانات new_programer 5 628 30-08-23, 12:21 AM
آخر رد: atefkhalf2004

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


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