Sub aa_DoInBackground(params() As Object) As Object
For i=0 To Cur.RowCount
Cur.Position=i
Value_Exl=Cur.GetInt("Value")
Date_Exl=Cur.GetString("Date")
Des_Exl=Cur.GetString("Des")
Subject_Exl=a.GetFullName(Cur.GetInt("SubjectID"))
TblHazineh.AddRow(Array As String(Value_Exl,Subject_Exl,Date_Exl,Des_Exl))
aa.PublishProgress(i)
Next
Return i
End Sub
Sub aa_OnPostExecute(param As Object)
ToastMessageShow("اتمام ذخیره سازی"&" "¶m&" "&"مورد",False)
End Sub
Sub aa_OnPreExecute
ToastMessageShow("شروع ذخیره فایل",False)
End Sub
Sub aa_OnProgressUpdate(progress As Int)
LblTitle.Text=progress&"/"&Cur.RowCount
End Sub
سوال
حمید زارع 331
سلام
aa_DoInBackground اصلا اجرا نمیشه
مشکل کجاست ؟
لینک ارسال
به اشتراک گذاری در سایت های دیگر
14 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.