منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
هل يُمكن إضافة اسم المنتج من عمود أسماء المُنتجات مُباشرة في حالة التكرار - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=26363)

الصفحات: 1 2

RE: هل يُمكن إضافة اسم المنتج من عمود أسماء المُنتجات مُباشرة في حالة التكرار - Hazem1 - 06-09-18

(06-09-18, 06:27 PM)elgokr كتب :
اخى الفاضل انت تستخدم اسم عمود بجدول
قبل اسم Sub ليه

اولاً فى الصورة هنا 


يحدث الخطاء هنا كونك لم تقوم بانشاء الـ Sun الخاص بالاسم
ويبدو انك لا تتعامل بالاكواد فى المشروع لديك بال انك تتعامل بالادوات

لذلك اخى الحبيب ارفق المشروع الذى لديك
حتى يتم عمل الازم بالمشروع واعادة رفعه لك بعد الانتهاء

تحياتى لك
وتمنياتى لك التوفيق


بصدقٍ ليس عندي الخبرة التي عندك (ماشاء الله)، لكني سأسعى أن لا أُرهقك معي إن شاء الله، وجدت حلاً الحمد لله لكن ينقصني شيئاً واحد هو السماح بنسخ القيمة الفارغة Null ، وسأوضح لحضرتك يا أخي الفاضل الحل المطروح باختصار :


في زر البحث [Barcode]  :
كان في البدء كود للبحث فقط : 
PHP كود :
Table15BindingSource.Filter = String.Format("[Barcode] like '%" & TextBox3.Text & "%'") 


إذا كان المُنتج موجود من قبل فسيظهر اسم المنتج في Textbox2
فقمت باستغلال هذه النقطة وأضفت كود نسخ اسم المنتج الظاهر في Textbox2 (في نفس زر البحث Barcode ) 

فأصبح الزر يحتوي على الكودين التاليين :


PHP كود :
Table15BindingSource.Filter = String.Format("[Barcode] like '%" & TextBox3.Text & "%'")

        My.Computer.Clipboard.SetText("" & TextBox2.Text) 

ثم قمت بعمل زر جديد باسم  (ADD) ووضعت فيه كودين، الأول : إنشاء صف جديد ، والثاني: وضع الباركود الذي تم البحث عنه في الصندوق النصي الثالث، والكود الثالث: هو عمل Past لوضع اسم المنتج الذي قمت بنسخه من قبل أثناء الضغط على رز البحث (Barcode)
PHP كود :
'كود إضافة نفس المُنتج
        Table15BindingSource.AddNew()
        TextBox1.Text = TextBox3.Text
        TextBox2.Text = Clipboard.GetText
        ComboBox2.Select() 
الأمور الحمد لله تمضي بسلام ، لكن المُشكلة التي ظهرت ، هو أنني عندما أضغط على زر البحث في نفس الوقت هو يقوم بعمل نسخ للصندوق النصي ، فلو لم يكن المنتج تم تسجيله من قبل فستكون القيمة فارغة Null وبذلك تظهر رسالة خطأ كما في الصورة، لذا احتاج مُساعدتك يا أخي الفاضل في كيفية تجاوز هذه الرسالة بحيث لا تظهر ويتم نسخ قيمة الصندوق النصي ولو كان ذا قيمة فارغة Null، أو استبدالها برسالة أُخرى (هذا المُنتج غير متوفرٍ، هل تُريد إضافته كمنج جديد؟) ، وجزاك الله خيراً ويسَّر لك كل أمرٍ كما تُيسر على عباد الله.

RE: هل يُمكن إضافة اسم المنتج من عمود أسماء المُنتجات مُباشرة في حالة التكرار - elgokr - 07-09-18

لا تجر نفسك ان تستخدم هذا السطر
كود :
       My.Computer.Clipboard.SetText("" & TextBox2.Text)

يمكنك عمل التالى
اسفل هذا السطر التالى
كود :
Public Class Form1

استخدم هذا الكود مثلاً
كود :
   Public copyright_ As String

واستبدل السطر الخاص بـ
كود :
       My.Computer.Clipboard.SetText("" & TextBox2.Text)

بهذا الكود
كود :
       copyright_ = TextBox2.Text

ثم تعال على 
كود :
'كود إضافة نفس المُنتج
       Table15BindingSource.AddNew()
       TextBox1.Text = TextBox3.Text
       TextBox2.Text = Clipboard.GetText
       ComboBox2.Select()

استخدمه بهذ الشكل
كود :
'كود إضافة نفس المُنتج
       Table15BindingSource.AddNew()
       TextBox1.Text = TextBox3.Text
       TextBox2.Text = copyright_
       ComboBox2.Select()

الان اليك التالى
اذا كنت تريد تفريغ قيمة copyright_ كل ما عليك تطبيقه هو
كود :
       copyright_ = Nothing

بكده ستكون حليت مشكلة الرسالة التى تظهر لديك
وتجنبت اى مشكلة اخري واصبح لديك قيمة تتعامل معها كنسخ ولصق

تحياتى لك
وتمناتى لك التوفيق


RE: هل يُمكن إضافة اسم المنتج من عمود أسماء المُنتجات مُباشرة في حالة التكرار - Hazem1 - 07-09-18

(07-09-18, 08:27 AM)elgokr كتب : لا تجر نفسك ان تستخدم هذا السطر
كود :
       My.Computer.Clipboard.SetText("" & TextBox2.Text)

يمكنك عمل التالى
اسفل هذا السطر التالى
كود :
Public Class Form1

استخدم هذا الكود مثلاً
كود :
   Public copyright_ As String

واستبدل السطر الخاص بـ
كود :
       My.Computer.Clipboard.SetText("" & TextBox2.Text)

بهذا الكود
كود :
       copyright_ = TextBox2.Text

ثم تعال على 
كود :
'كود إضافة نفس المُنتج
       Table15BindingSource.AddNew()
       TextBox1.Text = TextBox3.Text
       TextBox2.Text = Clipboard.GetText
       ComboBox2.Select()

استخدمه بهذ الشكل
كود :
'كود إضافة نفس المُنتج
       Table15BindingSource.AddNew()
       TextBox1.Text = TextBox3.Text
       TextBox2.Text = copyright_
       ComboBox2.Select()

الان اليك التالى
اذا كنت تريد تفريغ قيمة copyright_ كل ما عليك تطبيقه هو
كود :
       copyright_ = Nothing

بكده ستكون حليت مشكلة الرسالة التى تظهر لديك
وتجنبت اى مشكلة اخري واصبح لديك قيمة تتعامل معها كنسخ ولصق

تحياتى لك
وتمناتى لك التوفيق

تم حل المُشكلة، جزاك الله خيراً يا أخي الحبيب  Heart  ، اسأل الله أن يرزقك الجنة.

RE: هل يُمكن إضافة اسم المنتج من عمود أسماء المُنتجات مُباشرة في حالة التكرار - elgokr - 08-09-18

(07-09-18, 09:21 PM)Hazem1 كتب : تم حل المُشكلة، جزاك الله خيراً يا أخي الحبيب  Heart  ، اسأل الله أن يرزقك الجنة.


الحمد لله والحمد لله على كل حال

تقبل الله منك الدعاء لى ولك وللجميع يارب

تحياتى لك
وتمنياتى لك التوفيق