[mohammed.gadain61]

محتاج كود صغير للتاكد واختبار القيمة المدخلة في ( TEXTBOX) والتاكد هل انها موجودة بالداتا جيرد 2

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

وشكرا

[tarek]

if datagridview1.currentrow.cells("column name") .value = textbox1.text then
datagridview2.currentrow.cells("columnname").value = textbox1.text
end if

[mohammed.gadain61]

الكود خاطئ اخي

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

ولكم جزيل الشكر

[IBRA939]

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

http://vb4arb.com/vb/showthread.php?tid=20093

[mohammed.gadain61]

اخي انا لن اقصد البحث داخل الدتا جيرد

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


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

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


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

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

ارجو مساعدتي بالمثال اخواني وجزيتم خيرا

[مالكـ]

إقتباس :اريد اضافتها داخل داتا جيرد 2

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

[mohammed.gadain61]

ليست مربوطة اخي

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

[مالكـ]

حسب اللي فهمتك منك

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

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



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


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

الكود
   


النتيجة

   

[عبـدالله]

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

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

PHP كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 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.Text, txttime.Text, txtdate.Text)
            Return
        End If
    Next
    MessageBox.Show("The plate is not exist in datagrid !", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

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