مشکل با جستجو در مولتی پنل

[arfan2x 15]

سلام وقت تون بخیر.

بنده یه لیستی رو از دیتابیس گرفتم و تو مولتی پنل لود کردم و بالای این لیست یه ادیت تکست گذاشتم برای جستجو در عناوین. اما وقتی تو ادیت تکست کلمه ای رو می نویسم

هیچ اتفاقی نمی افته و چیزی رو نمایش نمی ده فقط این کد کار میکنه: ScrollView1.Panel.RemoveAllViews

لطفاٌ راهنمایی کنید مشکل از کجاست.

کدهایی که استفاده کردم: 

Sub ETxtSrch_TextChanged (Old As String, New As String)
	
	ScrollView1.Panel.RemoveAllViews
	cur = Main.sql1.ExecQuery("Select * From Tbl Where Onvan1 Like '%" & ETxtSrch.Text & "%'")

	For i = 0 To cur.RowCount -1
		cur.Position = i

		Dim p As Panel
		p.Initialize("")
		ScrollView1.Panel.AddView(p,3%x,top,94%x,80dip)
		p.LoadLayout("listPnl")
		Label2.Text = cur.GetString("Onvan1")
		top = top + 80dip + 3%X
		Panel1.Tag = i
		
		If (cur.GetString("Fasl") = 1) Then
		
			Label1.Visible = True
			
		Else If (cur.GetString("Fasl") = 2) Then

			Label3.Visible = True
		End If
	
	Next
	
End Sub

 

[M-CAP7AIN 537]

 

اینو تست کن (سورس کامل نیست ، نمیشه دقیق فهمید مشکل از کجاست!)

 

Sub ETxtSrch_TextChanged (Old As String, New As String)
	ScrollView1.Panel.Height = 0
  	top = 3%x
  
	ScrollView1.Panel.RemoveAllViews
	cur = Main.sql1.ExecQuery("Select * From Tbl Where Onvan1 Like '%" & ETxtSrch.Text & "%'")

	For i = 0 To cur.RowCount -1
		cur.Position = i

		Dim p As Panel
		p.Initialize("")
		ScrollView1.Panel.AddView(p,3%x,top,94%x,80dip)
		p.LoadLayout("listPnl")
		Label2.Text = cur.GetString("Onvan1")
		top = top + 80dip + 3%X
  		
  		'---- ارتفاع پنل اسکرول ویو
  		ScrollView1.Panel.Height = top
  
		Panel1.Tag = i
		
		If (cur.GetString("Fasl") = 1) Then
		
			Label1.Visible = True
			
		Else If (cur.GetString("Fasl") = 2) Then

			Label3.Visible = True
		End If
	
	Next
	
End Sub

 

[arfan2x 15]

تشکر فراوان از شما، مشکل نیاوردن آیتم ها حل شد فقط یه مشکل کوچیک باقی مونده لطف کنید این رو هم راهنمایی بفرمایید.

الان کلمه ای رو که سرچ می کنم آیتم ها رو میاره ولی رو هر کدوم که می زنی فقط یه متن رو نشون می ده

چه تغییری لازمه تا رو هر عنوان که زدم متن مربوط به خودش رو بیاره؟

[M-CAP7AIN 537]

بجای Label2 از اون ویویی که روش کلیک میکنی استفاده کن.

 

Sub Label2_Click
	' از خواص سندر استفاده میکنیم
	Dim lbl As Label = Sender
	ToastMessageShow(lbl.Text , False)
End Sub

 

[arfan2x 15]

بله می دونم، تو حالت عادی با کلیک رو هر عنوان متن مربوطه رو میاره. مشکلم با این جستجو هستش.

مثلاً وقتی کلمه ای رو سرچ می کنی و پنج مورد رو پیدا می کنه، رو هر کدوم که بزنی فقط یه متن رو نشون می ده.

 

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

MultiPanel Search

[M-CAP7AIN 537]

در در 1397/04/11, 13:50:10، arfan2x گفته است :

بله می دونم، تو حالت عادی با کلیک رو هر عنوان متن مربوطه رو میاره. مشکلم با این جستجو هستش.

مثلاً وقتی کلمه ای رو سرچ می کنی و پنج مورد رو پیدا می کنه، رو هر کدوم که بزنی فقط یه متن رو نشون می ده.

 

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

MultiPanel Search

از ID که تو دیتابیس ساختید بجای شماره حلقه برای تگ پنل استفاده کنید.(اینارو جایگزین کنید)

//Activity_Create(FirstTime As Boolean)
Panel1.Tag = cur.GetInt("ID")
  
//EditText1_TextChanged (Old As String, New As String)  
Panel1.Tag = cu.GetInt("ID")