رفتن به مطلب
  • 0

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


basicofdata

سوال

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

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

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"))

عمل کنم

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

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

با تشکر

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

3 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

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

ممنونم خیلی لنگش بودم :53:  :53:  yes  :areuok:  :give_rose:  ♥  ♥  ♥  :crazy:  :give_heart:  :give_heart:  :give_heart:  :give_heart:


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
لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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      

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

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

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

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

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

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

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...