منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
برجاء تعديل على كود الكمية - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : برجاء تعديل على كود الكمية (/showthread.php?tid=35362)

برجاء تعديل على كود الكمية - new_programer - 25-06-20

السلام عليكم

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

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

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

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

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

RE: برجاء تعديل على كود الكمية - new_programer - 26-06-20

برجاء محتاج المساعدة
محتاج اعرض بيانات عن طريق datateble
وإضافة بيانات أو ذيادة لو نفس الكود موجود
بدون الغاء البيانات القديمة

RE: برجاء تعديل على كود الكمية - قناص المدينة - 26-06-20

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

RE: برجاء تعديل على كود الكمية - new_programer - 26-06-20

(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
لا اريد اراضافة إلى قاعدة البيانات

اريد إضافة إلى الداتا جريد مع إبقاء البيانات الموجودة

RE: برجاء تعديل على كود الكمية - ابراهيم ايبو - 26-06-20

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