استفاده از دو httpjob

[amir1999 81]

سلام

از این کدها برای لود اطلاعات داخل مولتی پنل استفاده میکنم...(آنلاین)

Sub JobDone(Jobe As HttpJob)
	If Jobe.Success Then
	Private a As String
	a = Jobe.GetString
	Private b() As String = Regex.Split("<br>",a)
	For i = 0 To b.Length-1
		Private n() As String = Regex.Split("#",b(i))
		p.Initialize("p")
		ScrollView1.Panel.AddView(p,0,load,100%x,100%y)
		load = load + 200dip
		p.LoadLayout("view")
		Label3.Text = n(1)
		Label4.Text = n(2)
		Label5.Text = n(4)
        Buttonopen.Tag = n(3)
		ScrollView1.Panel.Height = load+53dip
	Next
	ToastMessageShow("همه چی حله!",False)
	Else
	StartActivity(falsenet)
	Activity.Finish
	End If
    
End Sub

و حالا یک کد هم زدم برای اضافه کردن یک استرینگ به دیتابیس به صورت زیر:

Sub Buttong_Click
	Dim iz As Button
	iz = Sender
	ht.PostString("http://myapptest.ir/amir1/insert1.php","link=" & iz.tag)
	ProgressDialogShow("در حال گزارش...")
End Sub

همه چیز درسته اما وقتی buttong کلیک میشه آیتم به دیتابیس آنلاین اضافه میشه اما برنامه فورس کلوز میده

لطفا راهنمایی کنید

حتی اگه بشه یجوری قبل از بسته شدن برنامه با یه کدی چیزی اکتیویتی رو ادامه داد خیلی خوب میشه

خودم احتمال میدم که چون ساب جاب دان شرطی در این مورد نداره فورس کلوز میده

ممنون میشم کمک کنید

[amir1999 81]

مشکلم حل شد

باید به هرکدوم از httpjob هارو با اسم مختلف اینشیالایز میکردم و توی sub jobdone باید میگفتم اگه اسم فلان بود فلان کار رو بکن

HttpJob1.Initialize("ahtp",Me)

اینم کدی که توی ساب جاب دان گذاشتم

If job.JobName = "ahtp" Then
		ProgressDialogHide
		Msgbox("با موفقیت انجام شد ","result")
End If