مشکل با قسمت جستجو در کتاب

[arsin007]

سلام خدمت دوستان گرامی.

ببخشید من یه کتاب ساختم با دیتابیس چندجدولی، حالا تو قسمت سرچ و علاقمندی ها یه مشکل مشابه رو دارم که تاحالا هرچی تلاش کردم و گشتم و پرسیدم به جایی نرسیدم.

شرح مشکل:

وقتی واژه ای رو سرچ می کنی تو قسمت عناوین یا مطالب کتاب به خوبی تو همه جداول می گرده و نشونشون می ده و تا اینجا مشکلی نیست، اما هنگامی که روشون کلیک می کنی فقط مطالب یا عناوین یک جدول رو میاره، حتی اگر روی مثلا مطلب جدول دوم بزنی بازم مطلب جدول اول رو نشون میده.

واسه قسمت علاقمندی ها هم همین مشکل هست. حالا از شما می خوام لطفا بگین چکار کنم و چه دستور شرطی رو تو قسمت آیتم کلیک بنویسم؟

بنده مبتدی مبتدی هستم و این کتاب رو هم از روی یه سورس ناقص ساختم

کدها به صورت زیر هستن

Sub ImgSearchMatn_Click


	IsMain = False


	PnlSearch.RemoveAllViews

	PnlSearch.LoadLayout("LSrchOnvan")


	Dim StrOnvan As String

	Dim Cur2 As  Cursor



	If (TxtSearch.Text = "") Then

		ToastMessageShow("متنی وارد نشده" , True)

	 Else


		Cur = Sql1.ExecQuery("Select * From TblMatlab2_1 Where Matn1 Like '%" & TxtSearch.Text & "%'")


		For j = 0 To Cur.RowCount - 1

		Cur.Position = j

		Cur2 = Sql1.ExecQuery("Select * From TblFeh2_1 Where ID1 = '" & Cur.GetString("FehID1") & "'")

		Cur2.Position = 0

		StrOnvan = Cur2.GetString("OnvanFeh1")

		LV_SrchOnvan.AddSingleLine2(StrOnvan , Cur2.GetString("ID1"))


		Next


		LV_SrchOnvan.SingleLineLayout.Label.TextColor = Colors.White

		LV_SrchOnvan.SingleLineLayout.Label.Gravity = Gravity.CENTER

		LV_SrchOnvan.SingleLineLayout.Label.Typeface = Typeface.LoadFromAssets("byekan.ttf")

		LV_SrchOnvan.SingleLineLayout.Label.TextSize = 16


		Dim img As BitmapDrawable

		img.Initialize(LoadBitmap(File.DirAssets , "itemback.png"))


		LV_SrchOnvan.SingleLineLayout.Background = img


		'-----------------------------

		Dim StrOnvan1 As String

		Dim Cur3 As  Cursor


		Cur1 = Sql1.ExecQuery("Select * From TblMatlab2_2 Where Matn2 Like '%" & TxtSearch.Text & "%'")

		For n = 0 To Cur1.RowCount - 1

		Cur1.Position = n

		Cur3 = Sql1.ExecQuery("Select * From TblFeh2_2 Where ID2 = '" & Cur1.GetString("FehID2") & "'")

		Cur3.Position = 0

		StrOnvan1 = Cur3.GetString("OnvanFeh2")

		LV_SrchOnvan.AddSingleLine2(StrOnvan1 , Cur3.GetString("ID2"))


		Next


		LV_SrchOnvan.SingleLineLayout.Label.TextColor = Colors.White

		LV_SrchOnvan.SingleLineLayout.Label.Gravity = Gravity.CENTER

		LV_SrchOnvan.SingleLineLayout.Label.Typeface = Typeface.LoadFromAssets("byekan.ttf")

		LV_SrchOnvan.SingleLineLayout.Label.TextSize = 16


		Dim img As BitmapDrawable

		img.Initialize(LoadBitmap(File.DirAssets , "itemback.png"))


		LV_SrchOnvan.SingleLineLayout.Background = img


	End If


End Sub

Sub LV_SrchOnvan_ItemClick (Position As Int, Value As Object)


	Matlab_Alaqe.FehId1 = Value

	StartActivity (Matlab_Alaqe)



End Sub

[arsin007]

کسی بلد نیست کمک کنه؟