[YazanGhassan]

طاب مساؤكم اخواني 
انا اعمل على برنامج مبيعات باستخدام VB.NET و SQL SERVER  والحقيقة قطعت شوط طويل بالبرنامج ولكن مؤخرا واجهتني مشكلة لم استطع حلها لوحدي فرأيت ان اطلب المساعدة منكم المشكلة باختصار ان البرنامج يخصم تلقائيا الكمية المباعة من الكمية الاساسية في المخزن ولكن عند تنفيذ الكود لا يخصم الا من الصنف المضاف بالاول ويخصم كل الكمية المباعة لكل الاصناف .. فلو تكرمتم ان تصححو لي الكود لو كان هناك خطا او ان تعطوني الكود الصحيح 
الكود المكتوب هو : 

PHP كود :

Dim Qutsel as string="Select Qut From Item_Card Where Barcode=" &DGV.ORDER.row(x).cell(0).value
Dim QutUp as String="Update Item_Card SET Qut=@Qut Where Barcode= DGV.ORDER.rows(×).cells(0).value
For x as integer=0 to DGV.Order.rows.count_1
Cmd = New SqlCommand=(QutSel,Con)
Dim Dr as SQL Datareader=Cmd.excutereader
Dr.read
Qunt = dr(0)-DGV_ORDER.row(×).cell(3).value
Cmd=New SQLCommand = (QutUp,Con)
Cmd.parameters.add(New SQL Parameter("@Qut" ,OleDb.OleDbType.Integer)).value=Qunt
Cmd.ExcteNonQuery
Next
ممكن المساعدة .. الكود يعمل بشكل سليم واذا في اي خطا بكون خطا من كتابتي اله 
وشكرا سلفا 


[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي من خلال الكود الذي وضعته انت تعرف الصف الذي في الداتا غرايد الذي رقم الاندكس صفر وهو الصف الاول
وتعمل له حملة جلب ثم جملة تعديل  وفي جملة الفور يقوم بانقاص الكميات  لكل الصفوف من هذا الصف 
والسبب ببساطة ان قيمة ال (x) خارج جملة الفور هي صفر دائما والمفروض ان يتم تعريفه داخل جملة الفور 
وبذلك يتغير الصنف المجلوب  حسب قيمة ال (x ) والمراد تعديله 

[YazanGhassan]

(07-07-20, 02:05 PM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
اخي من خلال الكود الذي وضعته انت تعرف الصف الذي في الداتا غرايد الذي رقم الاندكس صفر وهو الصف الاول
وتعمل له حملة جلب ثم جملة تعديل  وفي جملة الفور يقوم بانقاص الكميات  لكل الصفوف من هذا الصف 
والسبب ببساطة ان قيمة ال (x) خارج جملة الفور هي صفر دائما والمفروض ان يتم تعريفه داخل جملة الفور 
وبذلك يتغير الصنف المجلوب  حسب قيمة ال (x ) والمراد تعديله 

نعم اخي كلامك صحيح ولكن جربت وضع نص الامر داخل اللوب لم يقبله كان يظهر لي خطأ Syntax Error Near '=' ولم يزبط الا عندما اخرجت الامر خارج النص 
ماذا يمكن ان افعل؟

[ابراهيم ايبو]

السلام عليكم 
اخي ضع جملة الاستعلام في cmd مباشرة دون تعريف 
بحيث ستجلب الصننف وتتم القراءة ثم التعديل  وفي نهاية الكود ضمن الفور دمر الكوماند cmd.Dispose()
او يمكنك تجربته بدون تدمير
بالنسبة للخطأ هو نص جملة الاستعلام لديك خطأ ضع فراغا بين & و DGV لانهما متلاصقتين
وفي التعديل ايضا لديك خطأ أخر وهو عدم وجود & وحتى تخلص من مشكلة الارقام والنص 
امتبها هكذا

كود :

Where Barcode = '"& DGV.Rows(x).cell(0).value &"'

[YazanGhassan]

(07-07-20, 02:34 PM)ابراهيم ايبو كتب : السلام عليكم 
اخي ضع جملة الاستعلام في cmd مباشرة دون تعريف 
بحيث ستجلب الصننف وتتم القراءة ثم التعديل  وفي نهاية الكود ضمن الفور دمر الكوماند cmd.Dispose()
او يمكنك تجربته بدون تدمير
بالنسبة للخطأ هو نص جملة الاستعلام لديك خطأ ضع فراغا بين & و DGV لانهما متلاصقتين

طيب بعد اذنك ممكن مثال على كلامك

[ابراهيم ايبو]

اخي والله انا في العمل لااستطيع مساعدتك حاليا وقد انتهت فترة الغداء
ضغ مثالك ليتم تعديله من قبل اي من الاخوة الموجودين