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

[majid08 266]

سلام

من یه مولتی پنل دارم وقتی میخام جستجو کنم هر چی مینویسم این همه ایتم ها رو میاره

مثلا مینویسم م همه اونایی م توشون هست میاره دوباره مینویسم ج باز اوناییی که ج دارن رو اضافه میکنه دوباره مینویسم ی دوباره اضافه میکنه هر چی مینویسم بجای اینکه همونو بیاره هی اضافه میکنه

این کد منه لطفا کمک کنید

Sub EditText1_TextChanged (Old As String, New As String)

	 Dim Cr As Cursor
 Cr = MyBank.ExecQuery("SELECT * FROM tbl1  WHERE  matn1 LIKE '%"&EditText1.Text&"%'  ")
 For i = 0 To Cr.RowCount - 1
  Cr.Position = i
  Dim p As Panel
  p.Initialize("p")
  sv.Panel.AddView(p,1%x,offsetY,99%x,100%y)
  offsetY = offsetY + 22%y
  p.LoadLayout("item")
  p.Tag = Cr.GetInt("id")
  Button1.Tag= Cr.GetInt("id")
  Label1.Text = Cr.GetString("matn1")
  fav1.Tag= Cr.GetInt("id")
Next

[porya 959]

این کدهای که نوشتم رو توی Sub EditText1_TextChanged بزار و کدهای که در پست بالا گذاشتی از جمله Sub LoadFilterItem رو پاک کن فقط همین کد های رو که نوشتم بزار

Sub EditText1_TextChanged (Old As String, New As String)

	sv.Panel.RemoveAllViews
	offsetY = sv.Height - sv.Height
	sv.ScrollPosition = offsetY

 	 Dim Cr As Cursor
	 Cr = MyBank.ExecQuery("SELECT * FROM tbl1  WHERE  matn1 LIKE '%"&EditText1.Text&"%'  ")
 	For i = 0 To Cr.RowCount - 1
  	Cr.Position = i
  	Dim p As Panel
  	p.Initialize("p")
  	sv.Panel.AddView(p,1%x,offsetY,99%x,100%y)
  	offsetY = offsetY + 22%y
  	p.LoadLayout("item")
  	p.Tag = Cr.GetInt("id")
  	Button1.Tag= Cr.GetInt("id")
  	Label1.Text = Cr.GetString("matn1")
 	 fav1.Tag= Cr.GetInt("id")
		
	sv.Panel.Height = offsetY	

	Next

End Sub

[shahab.es 5,429]

سلام لطفا اموزش یا سورسشو بزارید

تاپیک بزنید برای سوالتون هموطن

تاپیک های قدیمی هم نیارید بالا...

[حاج حسین 2,098]

 

این کد رو تست کنید :

Sub LoadFilterItem(value As String)
	 Dim Cr As Cursor
 Cr = MyBank.ExecQuery("SELECT * FROM tbl1  WHERE  matn1 LIKE '%"&value&"%' ")
 For i = 0 To Cr.RowCount - 1
  Cr.Position = i
  Dim p As Panel
  p.Initialize("p")
  sv.Panel.AddView(p,1%x,offsetY,99%x,100%y)
  offsetY = offsetY + 22%y
  p.LoadLayout("item")
  p.Tag = Cr.GetInt("id")
  Button1.Tag= Cr.GetInt("id")
  Label1.Text = Cr.GetString("matn1")
  fav1.Tag= Cr.GetInt("id")
 End Sub

 
Sub EditText1_TextChanged (Old As String, New As String)
   LoadFilterItem(New)
End Sub

بعد اگه دیدید درست جواب نمیده توی کد رویداد TextChanged  رو اینجوری بنویسید :

Sub EditText1_TextChanged (Old As String, New As String)
   LoadFilterItem(old&New)
End Sub

کدو من تست کردم کاری انجام نمیده  دستور پاک کردن نداره 

ListView1.Clear 

البته این برای اینی که مطلب ما تو لیست ویو باشه 

[مهدی ایزدی 9,203]

قبل از کدهاتون بیا RemoveAllView کن و لایه رو دوباره بخون و بعد هم کدهای جست و جو رو قرار بده

[porya 959]

قبل از کدهاتون بیا RemoveAllView کن و لایه رو دوباره بخون و بعد هم کدهای جست و جو رو قرار بده

 

اقای ایزدی میشه با کد توضیح بدید

[majid08 266]

چرا جواب سوالات منو کسی نمیدونه

یعنی من به حساب نمیام یا کسی بلد نیست یا حوصله ندارین؟

 

از صبح چنتا سوال پرسیدم هیچ کسی بلد نیست یعنی؟؟؟؟؟؟؟؟

[مجید آرتا 5,874]

این کد رو تست کنید :

Sub LoadFilterItem(value As String)
	 Dim Cr As Cursor
 Cr = MyBank.ExecQuery("SELECT * FROM tbl1  WHERE  matn1 LIKE '%"&value&"%' ")
 For i = 0 To Cr.RowCount - 1
  Cr.Position = i
  Dim p As Panel
  p.Initialize("p")
  sv.Panel.AddView(p,1%x,offsetY,99%x,100%y)
  offsetY = offsetY + 22%y
  p.LoadLayout("item")
  p.Tag = Cr.GetInt("id")
  Button1.Tag= Cr.GetInt("id")
  Label1.Text = Cr.GetString("matn1")
  fav1.Tag= Cr.GetInt("id")
 End Sub

 
Sub EditText1_TextChanged (Old As String, New As String)
   LoadFilterItem(New)
End Sub

بعد اگه دیدید درست جواب نمیده توی کد رویداد TextChanged  رو اینجوری بنویسید :

Sub EditText1_TextChanged (Old As String, New As String)
   LoadFilterItem(old&New)
End Sub

[majid08 266]

ممنونم که جواب دادین ولی فرقی نکرد داداش

[porya 959]

ممنونم که جواب دادین ولی فرقی نکرد داداش

   

دوست عزیز این کدها رو قرار بده برای بنده جواب داده  

این کدهارو تو Sub EditText1_TextChanged  دقیقا تو خط اول قرار بده قبل از فراخونی دیتابیست

	Sv.Panel.RemoveAllViews
	offsetY = sv.Height - sv.Height
	sv.ScrollPosition = offsetY

[majid08 266]

 

   

دوست عزیز این کدها رو قرار بده برای بنده جواب داده  

این کدهارو تو Sub EditText1_TextChanged  دقیقا تو خط اول قرار بده قبل از فراخونی دیتابیست

	Sv.Panel.RemoveAllViews
	offsetY = sv.Height - sv.Height
	sv.ScrollPosition = offsetY

سلام داداش

گذاشتم ولی اگه بیستر از یه کاراکتر تایپ کنم دیگه هیچی نمیاره

[porya 959]

سلام داداش

گذاشتم ولی اگه بیستر از یه کاراکتر تایپ کنم دیگه هیچی نمیاره

 

تو این کد ها قبل از next این کد رو ScrollView1.Panel.Height = offsetY رو اضافه کن

Sub EditText1_TextChanged (Old As String, New As String)

	 Dim Cr As Cursor
 Cr = MyBank.ExecQuery("SELECT * FROM tbl1  WHERE  matn1 LIKE '%"&EditText1.Text&"%'  ")
 For i = 0 To Cr.RowCount - 1
  Cr.Position = i
  Dim p As Panel
  p.Initialize("p")
  sv.Panel.AddView(p,1%x,offsetY,99%x,100%y)
  offsetY = offsetY + 22%y
  p.LoadLayout("item")
  p.Tag = Cr.GetInt("id")
  Button1.Tag= Cr.GetInt("id")
  Label1.Text = Cr.GetString("matn1")
  fav1.Tag= Cr.GetInt("id")
Next

[majid08 266]

الان کد کلا شده این باز اگه بیشتر 1 کاراکتر تایپ کنم هیچی نمیاره

Sub EditText1_TextChanged (Old As String, New As String)
	sv.Panel.RemoveAllViews
	offsetY = sv.Height - sv.Height
	sv.ScrollPosition = offsetY
 LoadFilterItem(Old&New)
End Sub


Sub LoadFilterItem(value As String)

	 Dim Cr As Cursor
 Cr = MyBank.ExecQuery("SELECT * FROM tbl1  WHERE  matn1 LIKE '%"&value&"%' ")
 For i = 0 To Cr.RowCount - 1
  Cr.Position = i
  Dim p As Panel
  p.Initialize("p")
  sv.Panel.AddView(p,1%x,offsetY,99%x,100%y)
  offsetY = offsetY + 22%y
  p.LoadLayout("item")
  p.Tag = Cr.GetInt("id")
  Button1.Tag= Cr.GetInt("id")
  Label1.Text = Cr.GetString("matn1")
  fav1.Tag= Cr.GetInt("id")
  star.Initialize("")
  star.Text=Cr.GetInt("star")
  Button1.Gravity=Gravity.CENTER_HORIZONTAL
	 End If
	 
	sv.Panel.Height = offsetY
 Next

[حاج حسین 2,098]

دیدم تشکر خالی کمه برا همین گفتم بگم تشکر 

فقط چندتا نکته 

اگر به پنل رنگ داده باشید دوباره تو حلقه فور پست قبل باید دوباره به پنل رنگ بدید 

چون سفید میشه 

و اینکه با سرچ کردن متنم چپ چین شد ومن دوباره بهش گراویتی دادم وحل شد 

واگر دیدید سرچ کردید و پنل بالاتر یا پایینتر اومد توخط 

sv.Panel.AddView(p,1%x,offsetY+5%y,99%x,100%y)

با کم زیاد کردن 5%Y میتونید به نتیجه مطلوب برسید 

اگر کسی چیزی از حرف نفهمید بگه کد بزارم

[amz 3]

سلام لطفا اموزش یا سورسشو بزارید