درخواست سورس سرچ در لیست ویو , که اضافه شده توسط دیتابیس است

[basicofdata 99]

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

(سرچ انجام میشود اما به صفحه مطالب نمیرود)

Public Sub setall(listv As ListView)
	cs = SQL1.ExecQuery("SELECT id,title FROM tbl_book")
	For i = 0 To cs.RowCount - 1
		cs.Position = i
		listv.AddSingleLine2(cs.GetString("title"),cs.GetInt("id"))
	
	Next
	cs.Close
end sub

در لیست ویوAddTwoLinesAndBitmap2 میکنم  اما لیست که دوتا لاین نداره که بتوانم همانند :

listv.AddSingleLine2(cs.GetString("title"),cs.GetInt("id"))

عمل کنم

اگر توی لیست میتونم مقدار ای دی را بهش بدهم کمک کنید (با کد)

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

با تشکر

[basicofdata 99]

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

ممنونم خیلی لنگش بودم                        

Sub EditText1_TextChanged (Old As String, New As String)
	If EditText1.Text.Trim = "" Then
		et.setError(EditText1,"متن خالی است") 
	Else
		
		ListV1.Clear
		Dim cur As Cursor
	
	
		cur = db.SQL1.ExecQuery("select id,title from tbl_book where title LIKE '%" & EditText1.Text & "%' ")
		For i = 0 To cur.RowCount -1
		cur.Position = i
		ListV1.AddSingleLine2(cur.GetString("title"),cur.GetInt("id"))
			
		Next
	End If
End Sub 

Sub ListV1_itemclick (position As Int, value As Object)
	val = value
	StartActivity(context)
End Sub

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

این یه نمونه کد که طبق برنامتون تغییرش بدید 

Sub EditText1_TextChanged (Old As String, New As String)
ListView1.Clear
	Dim cur As Cursor
	cur = Main.s.ExecQuery("select onvan from tbbookali where onvan LIKE '%" & EditText1.Text & "%' ")
        For i = 0 To cur.RowCount -1
			cur.Position = i
			ListView1.AddSingleLine(cur.GetString("onvan"))
			
		Next

  End Sub 

Sub ListView1_ItemClick (Position As Int, Value As Object)
	onvan1 = Value
	Activity.Finish
	StartActivity(matlab)
End Sub      

این یه نمونه است ولی با مولتی پنله 

[basicofdata 99]

با تشکر از راهنماییتون ولی من  در صفحه ای که مطالب نوشته میشه نوشتم

sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("context")
	db.Initialize
	db.Init
	lbl_title.Text = db.getTitle(Index.val)
	bl = db.getfav(Index.val)
	If bl = True Then img_fav.Bitmap = LoadBitmap(File.DirAssets,"fav.png")
	lbl.Initialize("")
	lbl.Gravity = Gravity.RIGHT
	lbl.TextColor = Colors.RGB(33,33,33)
	lbl.Typeface = Typeface.LoadFromAssets("bnazanin.ttf")
	scrollv1.Panel.AddView(lbl,2%x,0,96%x,100%y)
	lbl.Text = db.getcontext(Index.val)
	lbl.TextSize = 20
	ts.Initialize
	ts.LongText(lbl,lbl.text,lbl.TextSize,scrollv1,1.5)
end sub

جستجو با موفقیت انجام میشود اما در اجرا صفحه مطالبم مشکل داره(وارد نمیشه)