خطای عجیب هنگام خواندن اطلاعات جیسون

[hocein 40]

وقت بخیر. من یک سری اطلاعات رو از جیسون میخونم و میریزم توی لیست. 

مشکل اینه یک بار میبینی کار میکنه چند بار خطای زیر رو میده. کسی میدونه چشه ؟ 

Error occurred on line: 70 (Main)
java.lang.ClassCastException: anywheresoftware.b4a.objects.collections.Map$MyMap cannot be cast to java.util.List
	at b4a.example.main._jobdone(main.java:491)
	at java.lang.reflect.Method.invoke(Native Method)
	at anywheresoftware.b4a.shell.Shell.runMethod(Shell.java:710)
	at anywheresoftware.b4a.shell.Shell.raiseEventImpl(Shell.java:342)
	at anywheresoftware.b4a.shell.Shell.raiseEvent(Shell.java:249)
	at java.lang.reflect.Method.invoke(Native Method)
	at anywheresoftware.b4a.ShellBA.raiseEvent2(ShellBA.java:139)
	at anywheresoftware.b4a.BA$2.run(BA.java:360)
	at android.os.Handler.handleCallback(Handler.java:739)
	at android.os.Handler.dispatchMessage(Handler.java:95)
	at android.os.Looper.loop(Looper.java:148)
	at android.app.ActivityThread.main(ActivityThread.java:5551)
	at java.lang.reflect.Method.invoke(Native Method)
	at com.android.internal.os.ZygoteInit$MethodAndArgsCaller.run(ZygoteInit.java:730)
	at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:620)

 

[محمدرضا شاهپیری 5,561]

چجوری ریختین تولیست؟ مشخصه خطاتون دیگه. اومدین مپ رو مساوی لیست قرار دادین

[hocein 40]

در 4 دقیقه قبل، محمدرضا شاهپیری گفته است :

ومدین مپ رو مساوی لیست قرار دادین

خب پس چیکار باید میکردم.؟ 

البته try catch دادم دیگه خطا نداره اما یک حسی میگه اشتباهه یک جایی از کارم. 

[محمدرضا شاهپیری 5,561]

عزیز کدتونو بزارید خب

[hocein 40]

Sub jobdone(job As HttpJob)
	If job.Success Then
		ProgressDialogHide
		Log("Success")
		Try
			json.Initialize(ht.GetString)
		Catch
			Log(LastException)
		End Try

		m = json.NextObject

		Log(m.Get("meta"))
		Dim list1 As List
		Dim list2 As List
		
		Dim m2 As Map
		m2.Initialize
		list1.Initialize
		list2.Initialize
Try
			list2 = m.Get("meta")
			m2=list2
		Catch
			Log(LastException)
End Try


	jsonend=m2.Get("total")
	az=m2.Get("from")
	ta=m2.Get("to")
	Log(az&" va "&ta)
		Log(" m "&m.Get("data"))
	
		list1=m.Get("data")
	Dim m3 As Map
	m3.Initialize
		For i = az To ta
			
			Log(i)
			Dim p As Panel
			p.Initialize("p")
			
			ScrollView1.Panel.AddView(p,2%x,top,96%x,58%y)
			p.LoadLayout("s")
Try
	m3=list1.Get(i-1)
	Catch
		
		End Try
	Log(m3)
	Label1.Text=m3.Get("email")
			top = top + 60%y

		Next
		ScrollView1.Panel.Height = top
	Else
		ProgressDialogHide
		ToastMessageShow("خطا در اتصال",False)
	End If
End Sub

 

[hocein 40]

کسی میتونه راهنمای کنه ؟