تگ و سندر ناقص

[hamedafrough 5]

سلام دوستان

طاعاتتون قبول

من دو تا صفحه دارم که با کلیک بر روی مولتی پنل صفحه اول، اطلاعات بیشتری در صفحه دوم نمایش داده میشه. قبلاسوال گذاشتم اینجا و به کمک دوستان خصوصا آقا مرتضی مشکل تا حد زیادی برطرف شد، یعنی وقتی روی نام کاربر در ص اول کلیک میشه، صفحه دوم با اطلاعات همون کارب رنمایش داده میشه اما مشکل اینه که جدول من ۲۳ فیلد داره اما صفحه دوم فقط فیلد نام، نام خانوادگی و کد عضیت رو نشون میده.

کدهامو میذارم ممنون میشم بهم بگید مشکل از کجاست. ضمنا ادرس php هم اطلاعاتو نشون میده فقط برنامه اس که نمایش نمیده

صفحه اول

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("lkoleaza")
	ff.Initialize("ff")
	
	Main.ht1.Initialize("ht1",Me)

	ProgressDialogShow("درحال برقراری با سرور. لطفا صبر کنید...")
	Main.ht1.Download("http://hamedafrough.ir/misaq/m_koleaza.php")

End Sub

 

Sub jobdone (job As HttpJob)
	
#region slv-beporsam
	If job.Success=True Then
		ProgressDialogHide
		jp.Initialize(job.GetString)
		Main.list=jp.NextArray
		For i=0 To Main.list.Size-1
			Dim p As Panel
			p.Initialize("p")
			slvaza.Panel.AddView(p,0%x,top,95%x,45%y)
			p.LoadLayout("lkoleaza_mpinfo")
			p.Tag=i
			top=top+7%y+0%x
			
			Main.map_title=Main.list.Get(i)
			Dim plusname As String=Main.map_title.Get("famili")&" "&Main.map_title.Get("nam")
			
			lblmp_id.Text=Main.map_title.Get("id")
			lblmp_nam.Text=plusname
			lblmp_nam.Tag=i

		Next
		slvaza.Panel.Height=top
	Else
		ToastMessageShow("خطا در برقراری ارتباط با سرور",False)
	End If
	Main.ht1.Release
End Sub

 

Sub lblmp_nam_Click
	Activity.Finish
	Dim btn_tag As Label
	btn_tag=Sender
	Main.map_title = Main.list.get(btn_tag.tag)
	StartActivity(lkoleaza_slvlbl)
	
End Sub

صفحه دوم

Sub Activity_Create(FirstTime As Boolean)

	Activity.LoadLayout("lkoleaza_slvlbl")
	slvaza.Panel.Height=160%y
	
	Main.ht2.Initialize("show_ht",Me)
	Main.ht2.Download("http://hamedafrough.ir/misaq/m_allaza.php")
	
 End Sub

 

Sub JobDone(Job As HttpJob)

#region job
	ProgressDialogHide
	If Job.Success=True Then
		
		Dim res As String
		res = Job.GetString
		
	jp.Initialize(res)	
	Main.list=jp.NextArray
	Dim p As Panel
	p.Initialize("p")
	slvaza.Panel.AddView(p,0%x,top,95%x,45%y)
	p.LoadLayout("lkoleaza_lbldata")
	top=top+15%y+0%x

		lblfamili.Text= Main.map_title.Get("famili")
		lblnam.Text= Main.map_title.Get("nam")
		lblozvkod.Text= Main.map_title.Get("ozvkod")
		lblsemat.Text= Main.map_title.Get("semat")
		lblbirth.Text= Main.map_title.Get("birth")
		lblshenas.Text= Main.map_title.Get("shenas")
		lblkodemeli.Text= Main.map_title.Get("kodemeli")
		lblsadere.Text= Main.map_title.Get("sadere")
		lblmob1.Text= Main.map_title.Get("mob1")
		lblmob2.Text= Main.map_title.Get("mob2")
		lbltel1.Text= Main.map_title.Get("tel1")
		lbltel2.Text= Main.map_title.Get("tel2")
		lblfax.Text= Main.map_title.Get("fax")
		lblmeil.Text= Main.map_title.Get("meil")
		lblmanzel.Text= Main.map_title.Get("manzel")
		lblkar.Text= Main.map_title.Get("kar")
		lbltelegram.Text= Main.map_title.Get("telegram")
		lblinsta.Text= Main.map_title.Get("insta")
		lblbale.Text= Main.map_title.Get("bale")
		lblsoroosh.Text= Main.map_title.Get("soroosh")
		lblozviat.Text=Main.map_title.Get("ozviat")
		lblvaziat.Text=Main.map_title.Get("vaziat")
		lbltozih.Text=Main.map_title.Get("tozih")
		slvaza.Panel.Height=top
	Else
		ToastMessageShow("لطفا اتصال برنامه به اینترنت را بررسی کنید",False)
	End If
		Main.ht2.Release
End sub

 

این هم ادرس جدولمه

http://hamedafrough.ir/misaq/m_allaza.php