مشکل کار با SQL

[Assassin-Wolf 13]

آقا من SQL دارم که از id , list , matn من list روی Panel ست کردم و بعد میخوام وقتی روی Panel زده شد matn اون پنل رو تو یک اکتیویتی دیگه نمایش بده این سورس صفحه ای که توش Panel ها هست

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

Sub Process_Globals

End Sub

Sub Globals
	Private Label1 As Label
	Private Panel1 As Panel
	Private ScrollView1 As ScrollView
	Dim curtemp As Int
	Dim Stop As Int = 3%y
	Dim meghdar As String
	Dim SQL1 As SQL
	Dim cur1 As Cursor
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("SVL")
	If File.Exists(File.DirInternal,"Joke-db.db") = False Then
	File.Copy(File.DirAssets,"Joke-db.db",File.DirInternal,"Joke-db.db")
	End If
	SQL1.Initialize(File.DirInternal,"Joke-db.db",False)
	cur1 = SQL1.ExecQuery("SELECT * FROM Mytable")
	Panel1.Initialize("")
	For i = 0 To cur1.RowCount-1
	cur1.Position = i
	meghdar = cur1.Getint("id")
	Dim p As Panel
	p.Initialize("p")
	ScrollView1.Panel.AddView(p,0,Stop,100%x,100%y)
	Stop = Stop + 15%y
	Panel1.Tag = i
	p.LoadLayout("InfoJK")
	Label1.Text = cur1.GetString("list")
	ScrollView1.Panel.Height = Stop
	Next
	End Sub
Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub Panel1_Click
	Dim iz As Panel
	iz = Sender
	StartActivity("InfoJK_Matlab")
End Sub

اینم سورس اکیتویتی که میخوام توش مطالب باشه

#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.

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.
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("InfoJK_Matlab")
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

[Nemesis 1,846]

اینو بنده پاسخ نداده بودم؟

 

به هرحال شما باید از Sub Process_Globals استفاده کنی

 

این قسمت  هارو در اکتیویتی اول تغیر بده

Sub Process_Globals
Dim curtemp As Int
End Sub

Sub Panel1_Click
	Dim iz As Panel
	iz = Sender
curtemp = iz.tag
	StartActivity("InfoJK_Matlab")
End Sub

در اکتویتی دوم برای خوندن دیتابیس رو باز کن و مقدار cur رو برابر بذار با main.curtemp