التنقل بين السجلات من خلال فورم ثاني

وينكم ياحبايب

الله يرحم والديكم مشروعي واقف على هذه النقطة

حفظكم الله ورعاكم عشمنا فيكم كبير واحنا منتظرينكم على أحر من الجمر

السلام عليكم

في هذه الحالة ووفقاً لكون المشروع يعتمد على إنشاء العناصر بشكل برمجي

ستحتاج إلى أن تجعل الـ DataSet على اساس أنها Global اي عنصر عام, بحيث تستطيع كل النماذج التعامل معها.

لذلك سنحتاج الى Module إليك التالي...

Module Module1

	'DataSet of whole application.
	Public ds As New DataSet

End Module

أما في النموذج الثاني سنعرف عنصر من نوع Binding Manager Base بهذا الشكل

 'Binding Manager Base object. Pointed to childTable Object.
	Private BMB As System.Windows.Forms.BindingManagerBase

تلاحظ عنصر جديد وهو BMB يمثل موقع الصف بالنسبة للجدول الاول .

هذا العنصر لابد أن يكون في النموذج الثاني...

ثم نقوم بربطة بالجدول وربط العناصر في النموذج الثاني بهذا الشكل في حدث التحميل form load event

'Assign binding manager base object.
		BMB = Me.BindingContext(ds, "childTable")

		'Clear the binding controls if any
		'Avoiding duplicate binding error.
		Me.txt1.DataBindings.Clear()
		Me.txt2.DataBindings.Clear()

		'Assign the new binding to textboxes controls
		txt1.DataBindings.Add(New Binding("Text", ds, "childTable.TypeE"))
		txt2.DataBindings.Add(New Binding("Text", ds, "childTable.Senf1"))

		'Update the display of BMB position.
		UpdateDisplay()

		My.Forms.Form1.Hide()

شاهد المرفق للإضاح.

السلام عليكم

ListBox.rar

ياشيخ روح والله لو الله ثم أنت ما ندري وش نسوي

الله يطعمك من طعام أهل الجنة ويجعلك من الذين يعطرون نظرهم برؤية رب العزة والجلال