تگ و سندر ناقص

سلام دوستان

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

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

کدهامو میذارم ممنون میشم بهم بگید مشکل از کجاست. ضمنا ادرس 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