جست و جو در دیتابیس

[mom 0]

سلام 

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

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

 

 

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
	Dim s As SQL
	Dim idonvan As String
End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.

'	Private ListView1 As ListView
	Private EditText1 As EditText
	Private Button1 As Button
	Private Panel_onvan As Panel
	Private Label_onvan As Label
	Private ScrollView1 As ScrollView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	
	Activity.LoadLayout("layout_search")
	afrazlab.DatabesCopy(s,"jsonn.db",True)
	
'	Dim lbl As Label
'	lbl=ListView1.SingleLineLayout.Label
'	lbl.Gravity=Gravity.LEFT
'	lbl.Left=lbl.Left+5dip
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub onvanMatnha(scroollneme As ScrollView)
	
	afrazlab.DatabesCopy(s,"jsonn.db",True)
	'ListView1.Clear
	Dim cur As Cursor
	cur=s.ExecQuery("SELECT * FROM ddx WHERE onvan LIKE '%"&EditText1.Text&"%'")
	
	Dim h As Int=1%y
	
	For i =0 To cur.RowCount-1
		cur.Position=i
		
		Dim p1 As Panel
		p1.Initialize("p1")
		p1.LoadLayout("l_Panel_onvan")
		p1.Color=0xFF007236
	
		Label_onvan.Text=cur.GetString("onvan")
		Label_onvan.TextColor=Colors.Black
		Label_onvan.TextSize=20
		Label_onvan.Gravity=Bit.Or(Gravity.CENTER,Gravity.RIGHT)
		Label_onvan.Tag=cur.GetString("id")
	
		scroollneme.Panel.AddView(p1,0,h,100%x,100%y)
		h=h+14%y
	
	
	Next

	scroollneme.Panel.Height=h+5%y
	
End Sub





Sub Button1_Click


	onvanMatnha(ScrollView1)
End Sub

Sub Label_onvan_Click
	Dim l As Label
	l=Sender
	idonvan=l.Tag
	StartActivity(matn_ddx)
		
End Sub

 

[محمدرضا شاهپیری 5,579]

در 15 ساعت قبل، mom گفته است :

سلام 

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

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

 

 

 

این خط ( (afrazlab.DatabesCopy(s,"jsonn.db",True چیه؟ و چرا تو هر بار کلیک کپی میکنید دیتابیسو؟