كيفية البحث في شاشة مربوطة Binding ؟؟

الى الان لم تطرح المشكلة اخي العزيز.

ليس هنالك مشكلة في البحث مع الربط (ربط العناصر بالحقول)

فما هي المشكلة يا ترى ؟ ربما مكان الكود او آلية البحث هي التي تسببت في ذلك, فاعرض الكود إن امكن.

السلام عليكم.

استاذي العزيز الغملاسي

المشكلة ان الحقول تكون مربوطة وبالتالي لايمكن جلب بيانات اخرى وعرضها من خلال هذه الحقول غير البيانات المربوطة عند تحميل الفورم ..

واذا امكن ان تعرض لي مثال او كود ربط بسيط على 2003

ولك كل الشكر والتقدير

اخي الكريم

الى الان ما وصل تصوري للمشكلة بالشكل الذي يمكنني من انشاء مشروع مصغر كمثال على الربط.

وضح اكثر احسن اللهُ اليك. و الشكر موصول لك كذلك.

استاذي الغملاسي

اسف على تأخري في الرد

ارفقت مثال لفورم Binding ويوجد زر للبحث اريد برمجته بحيث عند الضغط عليه يقوم بعرض البيانات بناء على رقم الصنف الموجود في مربع النص الخاص برقم الصنف مع الابقاء على عملية الربط مستمرة للمستخدم بحيث يمكنه التنقل من خلال ازرار التالي والسابق ..

مع العلم اني اعمل على VS 2003

وشاكرؤ ومقدر لاستجابتك وتعاونك المستمر

BindAndSearch.rar

السلام عليكم ورحمه الله وبركاته ،

لم اطلع على مثالك ، ولكن سؤالك أثار فضولي ، لا سيما وأنني حاليا اكاد انهي الاساسيات المهمة في التعامل مع قواعد البيانات ،

عموما ، قمت بالبحث في الشبكة ووجدت المثال التالي على DataBnding يتضمن كل الاساسيات في هذا الجانب ( عدا الربط بصورة مثلا )

هذه صورة له :

للتحميل من هنا

الطريقة تكمن فيما يأتي :

نقوم أولا بتعريف كائن جديد من الفئة DataView والتي تختص اساسا بعرض البيانات وفرزها والبحث فيها والتعديل عليها ،

ثم نعرف متغير من الفئة Integer سنعطيه رقم السجل الذي ينتج من عمليه البحث ، ونساويه بإستدعاء عمليه البحث في المتغير من الفئة DataView الذي انشأناه، ونقوم بعدها بتحريك العرض الى ذلك السجل الناتج ،

بإختصار شاهد هذا الكود وستفهم كلامي بسرعة إن شاء الله :

		Dim strSearch As String
		strSearch = InputBox("Please key in customer code", "Search Customer")
		If strSearch <> "" Then
			Dim custView As DataView = New DataView(dsCustomers.Tables("Customers"), "", _
										"CustomerID", DataViewRowState.CurrentRows)

			Dim rowIndex As Integer = custView.Find(strSearch)

			If rowIndex = -1 Then
				MessageBox.Show("No match found.", "Search", MessageBoxButtons.OK, MessageBoxIcon.Information)
			Else
				cmCustomers.Position = rowIndex
			End If
		End If

تقبل تحياتي اخي العزيز

الف شكر اخوي النبهاني

واسف على تأخري في الرد

هذا هو مااردت مع بعض التعديلات البسيطة

يعطيك العافية