چرا وقتی دستور دادم که اکتیوتی فعال بسته بشه و اکتیویتی بعدی باز بشه مدام میره توی اکتیوتی بعدی و دوباره بر می گرده توی اکتیوتی فعلی و همین طور دوباره تکرار میشه آخرش هم برنامه خطا میده ؟
اینم کدش:
con1.Initialize("con1",Me)
con1.PostString("http://chbit.ir/shop/cf.php","")
con2.Initialize("con2",Me)
con2.PostString("http://chbit.ir/shop/1.txt","")
Sub Jobdone (job As HttpJob)
Dim Cursor2 As Cursor
Dim m1,m2,m3 As String
Public m As Map
Public bas As List
If job.JobName="con2" Then
json.Initialize(job.GetString)
m=json.NextObject
bas=m.Get("chbit")
For i=0 To bas.Size-1
m=bas.Get(i)
m1=m.Get("id")
m2=m.Get("name")
m3=m.Get("price")
sql1.ExecNonQuery("INSERT INTO maintbl (idx,name,price) VALUES ('"&m1&"','"&m2&"','"&m3&"')")
' Spinner1.Add(m.Get("id"))
' ListView1.AddTwoLines(m.Get("name"), m.Get("price"))
Next
Activity.Finish
StartActivity(deskshop)
End If
End Sub
سوال
rbageherih 0
چرا وقتی دستور دادم که اکتیوتی فعال بسته بشه و اکتیویتی بعدی باز بشه مدام میره توی اکتیوتی بعدی و دوباره بر می گرده توی اکتیوتی فعلی و همین طور دوباره تکرار میشه آخرش هم برنامه خطا میده ؟
اینم کدش:
con1.Initialize("con1",Me) con1.PostString("http://chbit.ir/shop/cf.php","") con2.Initialize("con2",Me) con2.PostString("http://chbit.ir/shop/1.txt","") Sub Jobdone (job As HttpJob) Dim Cursor2 As Cursor Dim m1,m2,m3 As String Public m As Map Public bas As List If job.JobName="con2" Then json.Initialize(job.GetString) m=json.NextObject bas=m.Get("chbit") For i=0 To bas.Size-1 m=bas.Get(i) m1=m.Get("id") m2=m.Get("name") m3=m.Get("price") sql1.ExecNonQuery("INSERT INTO maintbl (idx,name,price) VALUES ('"&m1&"','"&m2&"','"&m3&"')") ' Spinner1.Add(m.Get("id")) ' ListView1.AddTwoLines(m.Get("name"), m.Get("price")) Next Activity.Finish StartActivity(deskshop) End If End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر
1 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.