توی برنامم از مولتی پنل استفاده کردم که اطلاعات رو از دیتابیس انلاین میگیره , برنامه رو که اجرا میکنم , تمام اطلاعات رو نمایش نمیده فقط داخل یک پنل اخرین اطلاعات ثبت شده رو نشون میده
Sub JobDone(Job As HttpJob)
ProgressDialogHide
If Job.Success = True Then
Dim strReturn As String = Job.GetString
Dim parser As JSONParser
parser.Initialize(strReturn)
If Job.JobName = "getlist" Then
Dim Members As List
Members = parser.NextArray
For i = 0 To Members.Size - 1
Dim m As Map
m = Members.Get(i)
Dim p As Panel
p.Initialize("p")
ScrollView1.Panel.AddView(p,0,stop,100%x,100%y)
p.LoadLayout("main")
Label1.Text = m.Get("user_id")
Label2.Text = m.Get("lacation")
Next
Else
ToastMessageShow("Error: Invalid Value", True)
End If
Else
ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
Job.Release
End Sub
سوال
H4N9_0V3R 7
سلام
توی برنامم از مولتی پنل استفاده کردم که اطلاعات رو از دیتابیس انلاین میگیره , برنامه رو که اجرا میکنم , تمام اطلاعات رو نمایش نمیده فقط داخل یک پنل اخرین اطلاعات ثبت شده رو نشون میده
اشتباهه کدش؟
لینک ارسال
به اشتراک گذاری در سایت های دیگر
2 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.