سرچ در اریا لیست ویو

[amiro72 17]

سلام 

من یه مشکلی دارم توی سزچ در اریا لیست ویو 

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

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

حالا وقتی  یه متن توی ادیت تکست  تایپ میکنم لیست کلا پاک میشه و طبق متنی که تایپ کردم اگه مشابهش توی  دیتابیسم طبق کدی که نوشته شده باشه لیست رو میچینه  حالا مثلا اگه متنی که من تایپ کردم متن ایتم  شماره 50 باشه  و  بعد از سرچ بیاردش اول لیست  روش که  کلیک میکنم  باید  مطلب ایتم 50 رو نشونم بده ولی ایتم یک رو نشون میده چون اول لیسته بعد از سرچ و همینجوری به ترتیب مثلا اگه متن سرچم ایتم 20 و 25 و 30 رو بیاره بالا  رو هر کدوم که کلیک میکنم  باید مطلب مربوط به همین سه ایتم رو بیاره ولی چون بعد از سرچ اومدن اول لیست به عنوان ایتم 1 و 2 و3 شناخته میشن و مطالب ایتم 1 و2 و 3 رو باز میکنن 

 

[Negan 1,300]

خوب  این تاپیکو حتما ببین عزیز

 

[amiro72 17]

در 24 دقیقه قبل، محمد فرجی گفته است :

خوب  این تاپیکو حتما ببین عزیز

 

ممنونم کد های منو ببینید 

 

Sub Process_Globals
	Dim sql1 As SQL
	Dim cur As Cursor
	Dim idd As String
End Sub

 

Sub Activity_Create(FirstTime As Boolean)


l1.Initialize
l2.Initialize
l3.Initialize
l4.Initialize

	
	If File.Exists(File.DirInternal,"sticker.db") =False Then
		File.Copy(File.DirAssets,"sticker.db",File.DirInternal,"sticker.db")
	End If
	
	
	
	If sql1.IsInitialized = False Then
	sql1.Initialize(File.DirInternal,"sticker.db",False)
	End If



cur = sql1.ExecQuery("SELECT * FROM  dbsticker WHERE id")
For i=0 To cur.RowCount-1
	cur.Position = i
	l1.Add(cur.GetInt("id"))
	l2.Add(cur.GetString("onvan"))
	l3.Add(cur.GetString("artis"))

	If cur.GetInt("fav") = 0 Then
		l4.Add(arad.getAssetsFullAddress("like.png"))
	Else If cur.GetInt("fav") = 1 Then
		l4.Add(arad.getAssetsFullAddress("like1.png"))
	End If
Next

arad.Initialize("layout_image_center",l2,l3,l4).ToListView(arr)
					
End Sub

 

Sub list_select (ParentEventName As String,position As Int)
'idd=l1.Get(position)
idd=position+1
Dim cur1 As Cursor
cur1=sql1.ExecQuery("SELECT * FROM dbsticker WHERE id="&idd)
cur1.Position=0
Dim sr As String
sr=cur1.GetString("name")
StartActivity(ph.OpenBrowser("https://telegram.me/addstickers/"&sr))
End Sub

Sub list_imageclicked (ParentEventName As String,position As Int)
	idd=position+1

If cur.GetInt("fav")=0 Then
	l4.Set(position,arad.getAssetsFullAddress("like1.png"))
	arad.NotifyDataSetChanged
	sql1.ExecNonQuery("UPDATE dbsticker SET fav = 1 WHERE id ="& idd)
	ToastMessageShow("به لیست علاقه مندی ها افزوده شد!",False)
End If

End Sub

Sub listclear
	l1.Clear
	l2.Clear
	l3.Clear
End Sub

Sub edi_TextChanged (Old As String, New As String)
	
	listclear
Dim cur2 As Cursor
	cur2 = sql1.ExecQuery("SELECT * FROM dbsticker  WHERE onvan LIKE '%" &edi.Text&"%' OR artis LIKE '%" &edi.Text&"%'")
'	cur2 = sql1.ExecQuery("SELECT * FROM dbsticker  WHERE onvan LIKE '%" &edi.Text&"%' OR artis LIKE '%" &edi.Text&"%'")
'	cur2.Position = idd
	For i=0 To cur2.RowCount-1
		cur2.Position=i
		l1.Add(cur2.GetInt("id"))
		l2.Add(cur2.GetString("onvan"))
		l3.Add(cur2.GetString("artis"))

	If cur2.GetInt("fav") = 0 Then
		l4.Add(arad.getAssetsFullAddress("like.png"))
	Else If cur2.GetInt("fav") = 1 Then
		l4.Add(arad.getAssetsFullAddress("like1.png"))
	End If
	
	Next

arad.Initialize("layout_image_center",l2,l3,l4).ToListView(arr)

End Sub

 

من  پوزیشن لیست سلکت رو ریختم توی idd و ازش استفاده میکنم همه جا ولی  توی ساب                              Sub edi_TextChanged (Old As String, New As String)                                      نمیدونم چطوری ازش استفاده کنم 

[Negan 1,300]

 

 این سورس رو ببین مهندس

مه یه لیست ویو تعریف کردم و بهش مقدار ندادم و توی قسمتای مختلف مقادیر مختلف رو دادم

و همونطور ک مشخصه اومدم توی یه متغیر لیست همونجایی ک لیست ویو رو تعریفردم شماره سطر رو ریختم توش طبق اون لینک بالایی ک دادم خدمتتون 

توی این سورس سرچ هم هست با سرچ ویو

[amiro72 17]

در 1 ساعت قبل، محمد فرجی گفته است :

 

 این سورس رو ببین مهندس

مه یه لیست ویو تعریف کردم و بهش مقدار ندادم و توی قسمتای مختلف مقادیر مختلف رو دادم

و همونطور ک مشخصه اومدم توی یه متغیر لیست همونجایی ک لیست ویو رو تعریفردم شماره سطر رو ریختم توش طبق اون لینک بالایی ک دادم خدمتتون 

توی این سورس سرچ هم هست با سرچ ویو

 

داداش  من فقط میخام بدونم چطوری  idd   رو به    کد زیر  اضافه کنم  به صورت الحاق

cur2 = sql1.ExecQuery("SELECT * FROM dbsticker  WHERE onvan LIKE '%" &edi.Text&"%' OR artis LIKE '%" &edi.Text&"%'")

 

به عنوان مثال کد زیر

cur1=sql1.ExecQuery("SELECT * FROM dbsticker WHERE id="&idd)

همین

[amiro72 17]

در 7 ساعت قبل، amiro72 گفته است :

 

داداش  من فقط میخام بدونم چطوری  idd   رو به    کد زیر  اضافه کنم  به صورت الحاق

cur2 = sql1.ExecQuery("SELECT * FROM dbsticker  WHERE onvan LIKE '%" &edi.Text&"%' OR artis LIKE '%" &edi.Text&"%'")

 

به عنوان مثال کد زیر

cur1=sql1.ExecQuery("SELECT * FROM dbsticker WHERE id="&idd)

همین

سلام کسی نیست ؟