لود تیبل جدید به ترتیب در مولتی پنل و تیبل قبلی

[RoyaPM 538]

با سلام به دوستان

 

طبق آموزش مدیر انجمن سورس زیر رو نوشتم

Sub Globals

	Private ScrollView1 As ScrollView
	Private Panel1 As Panel
	Private Label1 As Label
	Dim cur1 As Cursor
	Dim sql1 As SQL
	Dim Stop As Int = 3%y
End Sub

Sub Activity_Create(FirstTime As Boolean)
	
	Activity.LoadLayout("ScrollLayout")
    If File.Exists(File.DirInternal,"multipanel.db") = False Then
	File.Copy(File.DirAssets,"multipanel.db",File.DirInternal,"multipanel.db")
	End If
	sql1.Initialize(File.DirInternal,"multipanel.db",False)
	cur1 = sql1.ExecQuery("SELECT * FROM tbl")
	
	
	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 + 35%y
	p.LoadLayout("main")
	Label1.Text = cur1.GetString("txt")
	ScrollView1.Panel.Height = Stop
	Next
End Sub

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

حالا من تو یه دیتابیس دیگه یه تیبل دارم که مثلا اسمش tbl2 هستش و برای هر id یه متن طولانی دارم و میخوام وقتی تو این دیتابیس اولی که کدش رو بالا گذاشتم رو هرکدوم کلیک کردم به ترتیب بره و متن رو تو دیتابیس دومم بخونه به صورتت دقیق

یعنی تو دیتابیس بالا رو id 5 کلیک کردم بره تو دیتابیس دوم متن idi 5 رو نشون بده تو اسکرول ویو یا هرچی که شما بگید!

 

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

 

 

[RoyaPM 538]

منظورم اینه که چطوری دستور بدم که هنگام کلیک روی لیبل ها خودش تشخیص بده و متن مربوط به خودشو بیاره طبق ای دی

[alirezakazemizaroomi 437]

اینو تو پروسس گلوبالز بنویس:

Dim parts() As String

اینو تو حلقه for دیتابیس دوم بنویس

btn1.tag = Cur2.GetString("id") & "#" & Cur2.GetString("txt")

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

Sub btn1_Click
Dim ad As Button
ad = Sender
    Dim parts() As String = Regex.split("#",ad.tag)
    StartActivity(matn)
End Sub

اینم تو اکتیویتی matn بنویس:

Label1.text=Main.parts(1)