منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : محتاج كود صغير للتاكد واختبار القيمة المدخلة في ( TEXTBOX)
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
محتاج كود صغير للتاكد واختبار القيمة المدخلة في ( TEXTBOX) والتاكد هل انها موجودة بالداتا جيرد 2

اذا الرقم مطابق وموجود داخل الداتا جيرد 1 يتم اضافه اللوحه وبياناتها بالداتا جيرد 1

وشكرا
if datagridview1.currentrow.cells("column name") .value = textbox1.text then
datagridview2.currentrow.cells("columnname").value = textbox1.text
end if
الكود خاطئ اخي

اتمنى مساعدتي بالكود اخواني

ولكم جزيل الشكر
تابع هذا الموضوع شرحت كيف تبحث في data grid

http://vb4arb.com/vb/showthread.php?tid=20093
اخي انا لن اقصد البحث داخل الدتا جيرد

انا اقصد التاكد من القيمة المدخلة في textbox1 هل تنها موجودة داخل الداتا جيرد1


في حال انها موجودة داخل داتا جيرد 1

اريد اضافتها داخل داتا جيرد 2


والاضافة سوف تتم بوسطة textbox

المثال مرفق اعلاه

ارجو مساعدتي بالمثال اخواني وجزيتم خيرا
إقتباس :اريد اضافتها داخل داتا جيرد 2


هل الداتا قريد 2 ..... مربوطه لنفس الجدول ؟
لم استطع مشاهدة المرفق .... لاختلاف اصدار الفيجوال
ليست مربوطة اخي

كل داتا جيرد مختلفة بذاتها
حسب اللي فهمتك منك

قاعدة البيانات
راح نعمل جدولين  وبنفس الحقول
الاول : جدول اساسي
الثاني : جدول التكرار ( مشابة )

الفورم
نضيف عدد 2 داتا قريد فيو
الاول : مربوط بالجدول الاساسي
الثاني : مربوط بجدول التكرار



بعدها تابع الخطوات لموضوع مشابة لعملية التحقق
من هنا
الخطوة 3 و 4 فقط


الان نضيف الكود الخاص بالاضافة للجدول الاساسي .... بشرط
اذا كان النص او الرقم مشابة .... فسيتم حفظة بجدول التكرار

الكود
[attachment=14017]


النتيجة

[attachment=14018]
اولا كنت تبحث في الجريد dgv1 والمفروض تبحث في الجريد CarDataGridView
ثانيا كنت تشير الى رقم العمود 0 ولكن plate موجود في العمود رقم 2
ثالثا كنت تضيف البيانات بعد الانتهاء من حلقة For والمفروض تكون الاضافة داخل الشرط If الموجود داخل الحلقة For

تفضل التعديل حسب المذكور في الصورة التي في بداية الموضوع
PHP كود :
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
    If txtplatenumber
.Text.Trim "" Then Return
 
   For Each rw As DataGridViewRow In CarDataGridView.Rows
        If rw
.Cells(2).Value txtplatenumber.Text Then
            dgv1
.Rows.Add(txtplatenumber.Texttxttime.Texttxtdate.Text)
 
           Return
        End 
If
 
   Next
    MessageBox
.Show("The plate is not exist in datagrid !""Error"MessageBoxButtons.OKMessageBoxIcon.Error)

 
   txtplatenumber.Clear()
 
   txtplatenumber.Focus()
End Sub