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

في المثال المرفق به نموذج الطلاب هنالك زر أمر أسمه (ولي الأمر) أريد عندما أضغط عليه يظهر لي بيانات ولي أمر الطالب الظاهر في نموذج الطلاب من نموذج أولياء الامور

أشكر أخي الكريم
المثال لايعمل معي لأني أستخدم الاصدار 2008

استخدمة الكود التالي في حدث تحميل نموذج أولياء الامور :

da = New OleDbDataAdapter("Select * From Father where Id_Fa=" & Form1.TextBox5.Text & "", Con)

da.Fill(ds, "Father")

dgv.DataSource = ds

dgv.DataMember = "Father"

txtId.DataBindings.Add("text", ds, "Father.Id_Fa")

TextBox2.DataBindings.Add("text", ds, "Father.Nume")

TextBox3.DataBindings.Add("text", ds, "Father.Phone")

TextBox4.DataBindings.Add("text", ds, "Father.Job")

TextBox5.DataBindings.Add("text", ds, "Father.Address")

TextBox6.DataBindings.Add("text", ds, "Father.Elbr")

وفي حدث زر (ولي الامر) بنموذج الطلاب أستخدمت الكود التالي:

Form2.txtId.Text = TextBox5.Text

() Form2.ShowDialog

وعند الضغط عليه يفتح بيانات ولي الامر للسجل الاول فقط واذا أختر اي سجل اخر تظهر هذا الرسالة:
يؤدي ذلك إلى قيام ارتباطين في التجميع بالارتباط بنفس الخاصية. اسم المعلمة: binding
ما أريده هو عندما أختار أي سجل من نموذج الطلاب وأضغط علي زر (ولي الامر) يظهر لي تفاصيل ولي أمر الطالب المحدد من نموج أولياء الامور
مرفق الملف.

إقتباس :يؤدي ذلك إلى قيام ارتباطين في التجميع بالارتباط بنفس الخاصية. اسم المعلمة: binding

اعمل clear لكل الادوات قبل عمل bind مرة اخرى

PHP كود :

txtId.DataBindings.Clear() 

(28-11-21, 01:10 PM)سعود كتب : [ -> ]
إقتباس :يؤدي ذلك إلى قيام ارتباطين في التجميع بالارتباط بنفس الخاصية. اسم المعلمة: binding

اعمل clear لكل الادوات قبل عمل bind مرة اخرى

PHP كود :

txtId.DataBindings.Clear()

أخــي سعود:
عملت clear لكل الادوات عندها أختفت الرسالة فقط وما زلت لا أستطيع أظهار تفاصيل ولي امر الطالب من نموذج أولياء أمور الطلاب من خلال زر (ولي الامر) بنموذج الطلاب
تحياتي

هذا كود مسح لجميع الادوات الخاصه بك

كود :

   txtId.DataBindings.Clear()

        TextBox2.DataBindings.Clear()

        TextBox3.DataBindings.Clear()

        TextBox4.DataBindings.Clear()

        TextBox5.DataBindings.Clear()

        TextBox6.DataBindings.Clear()

        ds.Clear()

        dt.Clear()

        da = New OleDbDataAdapter("Select * From Father where Id_Fa=" & Form1.TextBox5.Text & "", Con)

        da.Fill(ds, "Father")

        dgv.DataSource = ds

        dgv.DataMember = "Father"

        txtId.DataBindings.Add("text", ds, "Father.Id_Fa")

        TextBox2.DataBindings.Add("text", ds, "Father.Nume")

        TextBox3.DataBindings.Add("text", ds, "Father.Phone")

        TextBox4.DataBindings.Add("text", ds, "Father.Job")

        TextBox5.DataBindings.Add("text", ds, "Father.Address")

        TextBox6.DataBindings.Add("text", ds, "Father.Elbr")

(28-11-21, 03:43 PM)Arfat007 كتب : [ -> ]أخــي سعود:
عملت clear لكل الادوات عندها أختفت الرسالة فقط وما زلت لا أستطيع أظهار تفاصيل ولي امر الطالب من نموذج أولياء أمور الطلاب من خلال زر (ولي الامر) بنموذج الطلاب
تحياتي

الاصدار عندي 2022 وهذه حلها بسيط لو رفعت لك مثال وهي بان تضيف مشروع جديد وتقوم بحفظه و حذف ملف الـ Form1 ثم تقوم باضافة ملفات الفورم الموجودة باي مثال بنسخة احدث.
تضيف فقط [على مثالنا هذا]

Form1.Designer.vb
Form1.resx
Form1.vb
Form2.Designer.vb
Form2.resx
Form2.vb
....... جاري التعديل

PHP كود :

Dim form2 As New Form2
form2.txtId.Text = TextBox5.Text
Form2.ShowDialog() 

عرف الفورم الثانية هكذا وعند حدث اغلاق الـ Form2 استخدم كود

PHP كود :

Me.Dispose() 

أخــي سعود :
متعك الله بالصحــة والعافــية والعلم النافع
طبقت كود مسح جميع الادوات وأشتغل معـي
فلكل الشكر والتحــية