آموزش سرچ در آریا لیست ویو

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

با سلام 

هفته معلم رو به همه معلم و اساتید این مرز بوم تبریک عرض میکنم 

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

برا همین متنی گذاشتم 

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

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

نکته مهم این آموزش برای کسایی که کتابخانه آریا لیست ویو رو دارند  (آریا لیست ویو نسخه 6)

 

اگر آموزش های خود استاد شاهدی دیده باشید و کار با sql هم بلد باشید بیشتر کدها رو بلدید و مطلب جدیدی نیست

نکته خاصی نداره فقط اینکه 3تا لیست رو تو یه سابی باید Clear  و توی TextChanged قبل از دستور سرچ بیاریدش و یه بار دیگه کل توابعی

که برای آریا لیست ویو که تو اکتویتی کریت نوشتید بیارید (این قضیه تو مولتی پنل معمولی نیز صدق میکند البته بدون ساب clear )

کل کدها رو میزارم تا بهتر متوجه بشید 

Sub Process_Globals
Dim sql1 As SQL
End Sub

Sub Globals
Dim Alistview As AriaListView
Dim Aadapterimage As AriaAdapterWithImage
Dim l1,l2,l3 As List
Dim cur As Cursor
Dim edsearch As EditText
End Sub
Sub Activity_Create(FirstTime As Boolean)
	If File.Exists(File.DirInternal,"pic.db") = False Then
		File.Copy(File.DirAssets,"pic.db",File.DirInternal,"pic.db")
	End If
	sql1.Initialize(File.DirInternal,"pic.db",False)
	cur= sql1.ExecQuery("Select * FROM datalink")
	
	edsearch.Initialize("edsearch")
	Activity.AddView(edsearch,0,0,100%x,10%y)
	edsearch.Gravity=Gravity.CENTER
	
	Alistview.Initialize("Alistview")
	Activity.AddView(Alistview,0,10%y,100%x,90%y)
	
l1.Initialize
l2.Initialize
l3.Initialize
For i=0 To cur.RowCount-1
	cur.Position=i
		l1.Add(cur.GetInt("id"))
		l2.Add(cur.GetString("name"))
		l3.Add(cur.GetString("link"))

Next

	Alistview.SetDivider(Null)
	Dim card As AriaCardViewSetting
	card.Elevation=5dip
	Aadapterimage.Initialize("card_button_right",l1,l2,l3).ToListView(Alistview)
End Sub

Sub list_select (ParentEventName As String,position As Int)
	ToastMessageShow(position,False)
End Sub

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

Sub edsearch_TextChanged (Old As String, New As String)

	listclear

	 cur = sql1.ExecQuery("SELECT * FROM datalink  WHERE   name LIKE '%"&edsearch.Text&"%' ")

	For i=0 To cur.RowCount-1
		cur.Position=i
			l1.Add(cur.GetInt("id"))
			l2.Add(cur.GetString("name"))
			l3.Add(cur.GetString("link"))

	Next

	Alistview.SetDivider(Null)
	Dim card As AriaCardViewSetting
	card.Elevation=5dip
	Aadapterimage.Initialize("card_button_right",l1,l2,l3).ToListView(Alistview)
	
End Sub

شرمنده اگر توضیحاتم کم بود 

و همچینن دیر شد 

 

یاعلی 

 

 

[Milad-Mohammadi 401]

دوستان یه سوال داشتم.

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

تو قسمت جستجو وقتی جستجو انجام میشه و نتیجه نمایش داده میشه رو آیتم ها که کلیک میکنم میاد بنابر پوزیشن کلی آیتم هارو نمایش میده.

مثلا یه چیزی رو جستجو کردم و مورد هایی نمایش داده شدن که به ترتیب آیدی هاشون 23 و 56 و 100 هست

حالا وقتی روی آیتم 23 کلیک میکنم میاد متن مربوط به آیتم شماره 1 رو نمایش میده

امیدوارم متوجه شده باشید.

ممنون میشم راهنمایی کنین که دقیقا آیتم مربوط به نتیجه های جستجو رو بتونم نمایش بدم

[shahab.es 5,429]

سلام
شما یه لیست دیگه درست میکنی

اسمشو میذاری l_id

وقتی دارید لیست هارو میسازید تا بدید به ادپتر، تمام ای دی هارو بریزید توی این لیستتون

l_id.add(cur.getInt("id"))

الان همه ی ای دی ها ، توی این لیست هستن

وقتی که کلیک کردید

به شکل زیر ای دی رو بگیرید

int id = l_id.get(poition)
cur = sql.exequery("select * from tbl where id = "&id)

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

[Milad-Mohammadi 401]

اشتباه شد معذرت میخوام