تگ و سندر ناقص

پرسش

سلام دوستان

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

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

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

در انتظار پاسخ 0
, hamed 2 ماه 1 پاسخ 122 بازدید کاربر 0

پاسخ ( ۱ )

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

نوشتن پاسخ