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

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


MoniSoft

سوال

سلام

من در صفحه ای که مطالب رو نشون میده یه edit text گذاشتم و میخوام در همونجا که جستجو انجام میشه مطالب رو هم نشان بده من کد رو به صورت زیر نوشتم و قرار دادم وقتی جستجو میکنم اتفاق خاصی نمیافته لطفا راهنماییم کنید :

Sub EditText1_TextChanged (Old As String, New As String)
	ScrollView1.Panel.RemoveAllViews
	PanelHeight = ScrollView1.Height - ScrollView1.Height
	
        Dim sql1 As SQL
        If File.Exists(File.DirDefaultExternal,"database.db")=False Then
        File.Copy(File.DirAssets,"database.db",File.DirDefaultExternal,"database.db")
        End If
        If sql1.IsInitialized=False Then
        sql1.Initialize(File.DirDefaultExternal,"database.db",False)
        End If
        Dim Cr As Cursor
        Cr = sql1.ExecQuery("SELECT * FROM sms WHERE sms LIKE '%"&EditText1.text&"%'")
         For i=0 To list1.Size-1
        Try
            smscontent=list1.Get(i)
            show
        Catch
        Return
        End Try
         Next
		
End Sub

کدهای اکتیویتی کریت هم به صورت زیر :

Sub Activity_Create(FirstTime As Boolean)
	smscontent.Initialize
	db.Initialize
	list1.Initialize
	favmanage.Initialize
    Activity.LoadLayout("sv")
		list1=db.listsubGroup(mostar)
		For i=0 To list1.Size-1
		Try
			smscontent=list1.Get(i)
			show
		Catch
		Return
		End Try
	     Next

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub faveimg_Click
	Dim b As View
	b=Sender
	If favmanage.addtofave(b.Tag,favee)=True Then

	mycode.setimg(b,"disfave")
			ToastMessageShow("پیام از علاقه مندیها حذف شد",False)
	Else 
	mycode.setimg(b,"fave")
	ToastMessageShow("پیام به علاقه مندیها اضافه شد",False)
		End If
		
End Sub
#Region show
Sub show
	Dim p1 As Panel
	p1.Initialize("")
	p1.Color=Colors.RGB(234, 89, 18)
		ScrollView1.Panel.AddView(p1,0,PanelHeight,100%x,0)
	p1.LoadLayout("favelay")
		text= smscontent.sms
		faveimg.Tag=smscontent.id
		But1.Tag=smscontent.id
		ht=art(text,Label1,"bnazanin",20)
		q.quicsett(Label1,smscontent.sms,20,"bnazanin",Gravity.CENTER,Colors.Black)
		If favmanage.chekfave(smscontent.id,mostar)=True Then
	mycode.setimg(faveimg,"fave")
	Else 
	mycode.setimg(faveimg,"disfave")
		End If
	Panel1.Height=ht+160dip
	PanelHeight=PanelHeight+ht+170dip
	p1.Height=Panel1.Height+160dip
	ScrollView1.Panel.Height=PanelHeight+p1.Height-170dip
End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

ببینید من دیستابیسم رو در یه صفحه دیگه به اسم mydb تعریف کردم و الان میخوام که جستجو انجام بدم به کدم گیر میده حالا میخوام بدونم ایا کدم درسته یا نه ؟

 

قطعا کل کدها رو خودت ننوشتی

فک کنم از آموزش های آقای آقاخانی استفاده کردی 

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

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

من کد رو به صورت زیر نوشتم الان جستجو انجام میشه ولی مثلا سرچ میکنم علی براش هیچ فرقی نداره که چی نوشته میشه فقط مطلب اول رو میاره.

اینم کد :

Sub EditText1_TextChanged (Old As String, New As String)
	ScrollView1.Panel.RemoveAllViews
	PanelHeight = ScrollView1.Height - ScrollView1.Height
	Dim sql1 As SQL
	If sql1.IsInitialized=False Then
	sql1.Initialize(File.DirDefaultExternal,"database.db",False)
	End If
	Dim Cr As Cursor
	Cr = sql1.ExecQuery("SELECT sms FROM sms WHERE sms LIKE '%"&EditText1.text&"%'")
	smscontent.Initialize
	db.Initialize
	list1.Initialize
	favmanage.Initialize
	list1=db.listsubGroup(mostar)
		For i = 0 To Cr.RowCount - 1
			Cr.Position=i
		Try
			smscontent=list1.Get(i)
			show
		Catch
		Return
		End Try
	     Next
End Sub

راهنماییم کنین لطفا :|

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

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

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

 

 Dim cr As Cursor
     cr.IsInitialized

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

سلام

ببین دوست عزیز شما همون کد هایی که واسه نشان دادن اطلاعات توی مولتی پنل میزنی رو کپی کن توی  edittext_textchanged  فقط به اونجایی که میخوای اطلاعات رواز دیتابیس بگیری رو با دستور like بذار

موفق باشید

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

سلام

ببین دوست عزیز شما همون کد هایی که واسه نشان دادن اطلاعات توی مولتی پنل میزنی رو کپی کن توی  edittext_textchanged  فقط به اونجایی که میخوای اطلاعات رواز دیتابیس بگیری رو با دستور like بذار

موفق باشید

منظورتون به این صورته :

Sub EditText1_TextChanged (Old As String, New As String)
	ScrollView1.Panel.RemoveAllViews
	PanelHeight = ScrollView1.Height - ScrollView1.Height
	
		Dim sql1 As SQL
		If File.Exists(File.DirDefaultExternal,"database.db")=False Then
		File.Copy(File.DirAssets,"database.db",File.DirDefaultExternal,"database.db")
		End If
		If sql1.IsInitialized=False Then
		sql1.Initialize(File.DirDefaultExternal,"database.db",False)
		End If
		Dim Cr As Cursor
		Cr.IsInitialized
		Cr = sql1.ExecQuery("SELECT * FROM sms WHERE sms LIKE '%"&EditText1.text&"%'")
 	    smscontent.Initialize
	    db.Initialize
	    list1.Initialize
	    favmanage.Initialize
		list1=db.listsubGroup(mostar)
		For i=0 To list1.Size-1
		Try
			smscontent=list1.Get(i)
			show
		Catch
		Return
		End Try
	     Next
End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر

بله این مطلب رو دیدم ولی بازم مشکل دارم .

ببینید من دیستابیسم رو در یه صفحه دیگه به اسم mydb تعریف کردم و الان میخوام که جستجو انجام بدم به کدم گیر میده حالا میخوام بدونم ایا کدم درسته یا نه ؟

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

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

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