مشکل در جستجو

[abidoss 10]

با سلام خدمت اساتید و دوستان محترم...

 

من یک موضوع مثلا به نام لیوان و تو نرم افزار سرچ میکنم و اون موضوع که اسمش لیوانه و برای من پیدا میکنه ولی زمانی که میام اون لیوان و انتخاب میکنم میره به اکتیویتی safhe2 در صورتی که 

من میخوام وقتی لیوان و انتخاب میکنم بره به همون صفحه ای که مربوط به لیوانه.یا اکه اسب و سرچ کردم و بعد گزینه اسب و اتخاب کردم بره به همون صفحه ای که مربوط به اسبه.

 

 

امید وارم که خوب توضیح داده باشم . . . 

 

اگه سوالم تکراری بود شرمنده همه انجمن و گشتم ولی نتونستم مشکلم و حل کنم .

 

کد و هچنین عکس هم گذاشتم

 

فقط لطفا بهم کمک کنید. چون فقط همین search و گیر کردم.

Sub Process_Globals
End Sub
Sub Globals
	Private List_Matlab As ListView
	Private Search As EditText
End Sub
Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("home")
		If File.Exists(File.DirInternal,"pm.db") = False Then
			File.Copy(File.DirAssets,"pm.db",File.DirInternal,"pm.db")
		End If
		If safhe1.sql1.IsInitialized = False Then
			safhe1.SQL1.Initialize(File.DirInternal,"pm.db",True)
		End If
				List_Matlab.SingleLineLayout.Label.Gravity = Gravity.CENTER
				List_Matlab.SingleLineLayout.Label.TextColor = Colors.Black
		Dim cur As Cursor
			cur = safhe1.SQL1.ExecQuery("SELECT * FROM axmtn1")
		For i = 0 To cur.RowCount-1
			cur.Position = i
				List_Matlab.AddSingleLine2(cur.GetString("fasl"),cur.GetInt("id"))
		Next
			cur.Close
End Sub
Sub Search_TextChanged (Old As String, New As String)
	Dim cur As Cursor
	cur = safhe1.SQL1.ExecQuery("SELECT * FROM axmtn1 WHERE fasl LIKE '%" & Search.Text & "%'")
		List_Matlab.Clear
	For i = 0 To cur.RowCount-1
		cur.Position = i
		List_Matlab.AddSingleLine2(cur.GetString("fasl"),cur.GetInt("id"))
		List_Matlab.SingleLineLayout.Label.TextColor=Colors.White
  		List_Matlab.SingleLineLayout.Label.TextSize=30
		List_Matlab.SingleLineLayout.ItemHeight=15%y
	Next
		cur.Close
End Sub
Sub List_Matlab_ItemClick (Position As Int, Value As Object)
	safhe1.fasl=Value
  	  StartActivity(safhe2)
	Activity.Finish
End Sub

امید وارم که خوب توضیح داده باشم . . .

 

اگه سوالم تکراری بود شرمنده همه انجمن و گشتم ولی نتونستم مشکلم و حل کنم .

[مهدی ایزدی 9,203]

درود

ببینید این قسمت رو بد رفتید : 

Sub List_Matlab_ItemClick (Position As Int, Value As Object)
	safhe1.fasl=Value
  	  StartActivity(safhe2)
	Activity.Finish
End Sub

شما باید مقدار Position رو بگیرید و به یک متغیر از نوع Int بدید که توی اکتیویتی Safhe2 ازش استفاده کنید

پس مثلا میایی توی Process Globals یکی از Activity ها میگی :

Sub Process_Globals
Dim pos As Int
End Sub

حالا توی همون رویداد ItemClick قبل از اینکه StartActivity کنی میایی میگی:

ActivityName.pos = Position

خب حالا شماره آیتم رو ذخیره کردی و وارد اکیتیویتی Safhe2 شدی !

خب حالا توی Activity Resume میایی این کد رو مینویسی :

	Main.cur1.Position=AcFehrest.pos
   Ltxt1.text= Main.cur1.GetString("matn1")
 Favv=Main.cur1.GetString("fav")
 esmax=Main.cur1.GetString("id")

این حدودا پایه کار هستش

دیگه بسته به نوع سورس خودتون شاید یکی دو جا فرق کنه

 

 

کلا باید Position رو ذخیره کنید توی یک مقدار و توی Activity مورد نظر، در Position مربوط به Cursor ازش استفاده کنید !

 

موفق باشید