مشکل نمایش مطالب از دیتابیس

[Assassin-Wolf 13]

من یک دیتابیس دارم که از id . list . matn ایجاد شده id که هیچی list رو هم روی پنل ها set کردم حالا میخوام وقتی روی پنل زده شد مطالب قسمت matn نمایش داده بشه . اینو بلد نیستم

(از آموزش Tag & Sender رو دیدم ولی بلد نیستم بازم))

[afraz11 246]

خوب دوست من یه tag به پنل میدی و تو ساب پنل اون tag میتونی بری به قسمت مربوط

من همین الان داشتم اینو به یکی از دوستان عزیز توضیح میدام بزار آدرس پست رو برام پیدا کنم 

مشکلت حل میشه عزیز

[afraz11 246]

دوست عزیز تو یه پست دیگه که بهتون توضیح دادم برید یه نگاهی بکنید

http://answercenter.ir/topic/4215-%DB%8C%DA%A9-%D9%85%D8%B4%DA%A9%D9%84-%D8%A8%D8%A7-%D8%AA%DA%AF-%D9%88-%D8%B3%D9%86%D8%AF%D8%B1/

[Nemesis 1,846]

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

pane.tag = i قرار بدید

 

و در رویداد کلیک
 از دستور

dim p as panel
p = sender

استفاده کنید

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

[Assassin-Wolf 13]

اگا من این کارا رو انجام دادم ولی وقتی به یک ایکتیویتی دیگه میرم میخوام که مطالب اون رو Id رو نمایش بده . این رو بلد نیستم

[Nemesis 1,846]

شما باید از متعیر های Process_Globals استفاده کنی تا در هرجایی که باشی بتونی فراخوانی کنی

[Assassin-Wolf 13]

اقا من واقعا نمیفهمم این سورس صفحه ای که پنل ها توش هست

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

Sub Process_Globals

End Sub

Sub Globals
	Dim cur1 As Cursor
	Dim SQL1 As SQL
	Private ScrollView1 As ScrollView
	Dim Stop As Int = 3%y
	Private Label1 As Label
	Private Panel1 As Panel
	Dim meghdar As String
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
	Dim p As Panel
	p.Initialize("p")
	ScrollView1.Panel.AddView(p,0,Stop,100%x,100%y)
	Stop = Stop + 17%y
	Panel1.Tag = cur1.GetString("matn")
	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

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

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

اکتویتی اول

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

Sub Process_Globals
	Dim curtemp As Int
End Sub

Sub Globals
	Dim cur1 As Cursor
	Dim SQL1 As SQL
	Private ScrollView1 As ScrollView
	Dim Stop As Int = 3%y
	Private Label1 As Label
	Private Panel1 As Panel
	Dim meghdar As String
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
	Dim p As Panel
	p.Initialize("p")
	ScrollView1.Panel.AddView(p,0,Stop,100%x,100%y)
	Stop = Stop + 17%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
	curtemp = iz.Tag
	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")
	Dim cur1 As Cursor
	cur1 = SQL1.ExecQuery("SELECT * FROM Mytable")
	cur1.Position = Main.curtemp

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

ما این نوع کد دادن به شما دوستان باور کنید داریم بهتون ظلم میکنیم