مشکلی عجیب در هنگام اجرای برنامه

[Cna 5]

سلام دوستان من یه کتاب با دیتابیس ساختم

تا دیروز هیچ مشکلی نداشت

امروز با اینکه هیچ تغییری توش به وجود نیاوردم 

بعده کامپایل شدن(توجه گنید برنامه بدون هیچ مشکلی کامپایل میشه)

وقتی که میخوام یکی از مطالب کتاب رو باز کنم با این ارور مواجه میشم 

ممنون میشم اگر کمک کنید

[alireza_hsi 160]

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

[Cna 5]

Sub Process_Globals

Dim cur As Cursor

End Sub

 

Sub Globals

Private ScrollView1 As ScrollView

Private btnshare As Button

Private btnFav As Button

 

Dim label1 As Label

Dim list1 As List

 

End Sub

 

Sub Activity_Create(FirstTime As Boolean)

 

Activity.LoadLayout("frm2")

If File.Exists(File.DirInternal,"dbbook.db")= False Then

File.Copy(File.DirAssets,"dbbook.db",File.DirInternal,"dbbook.db")

End If

 

If Menu1.SQL1.IsInitialized=False Then

Menu1.SQL1.Initialize(File.DirInternal,"dbbook.db",False)

End If

 

cur=Menu1.SQL1.ExecQuery("SELECT * FROM Tbl1 WHERE id="&Menu1.Fasl)

 

For i=0 To cur.RowCount-1

cur.Position=0

If cur.GetInt("Fav")=0 Then

 

Dim Ba As BitmapDrawable

Ba.Initialize(LoadBitmap(File.DirAssets,"4-Favorites.png"))

btnFav.Background=Ba

Else

 

Dim Ba As BitmapDrawable

  Ba.Initialize(LoadBitmap(File.DirAssets,"4-Favorites1.png"))

btnFav.Background=Ba

 

End If

Next

label1.Initialize("Label1")

 

label1.text=cur.GetString("Matn")

 

If File.Exists(File.DirInternal,"Settings.stg")=True Then

Dim list1 As List

list1=File.ReadList(File.DirInternal,"Settings.stg")

Setting1.font=list1.Get(0)

Setting1.size=list1.Get(1)

 

Dim a As String

a = code.getData("setting.txt","FontColor")

label1.TextColor = code.getData("setting.txt","FontColor")

Else

Setting1.font="BYEKAN"

Setting1.size=20

End If

 

label1.Gravity=Gravity.CENTER

label1.Typeface=Typeface.LoadFromAssets(Setting1.font &".ttf")

ScrollView1.Panel.AddView(label1,0,0,ScrollView1.Width,ScrollView1.Height)

 

Dim su As StringUtils

label1.TextSize=Setting1.size 

label1.Height=su.MeasureMultilineTextHeight(label1,label1.Text)

ScrollView1.Panel.Height=su.MeasureMultilineTextHeight(label1,label1.Text)

 

 

End Sub

 

 

 

Sub Activity_Resume

 

End Sub

 

Sub Activity_Pause (UserClosed As Boolean)

 

End Sub

 

Sub btnFav_Click       

    Dim cur As Cursor

    cur=Menu1.SQL1.ExecQuery("SELECT * FROM Tbl1 WHERE id="&Menu1.Fasl)

    For i=0 To cur.rowcount-1

    cur.position=i

    Dim f As Int

    f = cur.GetInt("Fav")

 

 

    If f = 1 Then

    Menu1.SQL1.ExecNonQuery("UPDATE Tbl1 SET Fav = 0 WHERE id = "&cur.GetInt("id"))

Dim bb As BitmapDrawable

bb.Initialize(LoadBitmap(File.DirAssets,"4-Favorites.png"))

btnFav.Background=bb 

ToastMessageShow("از لیست علاقه مندی ها حذف شد",False)

 

    Else

 

    Menu1.SQL1.ExecNonQuery("UPDATE Tbl1 SET Fav = 1 WHERE id = "&cur.GetInt("id"))

Dim bb As BitmapDrawable

bb.Initialize(LoadBitmap(File.DirAssets,"4-Favorites1.png"))

btnFav.Background=bb 

ToastMessageShow("به لیست علاقه مندی ها اضافه شد",False)

 

    End If

 

Next

cur.close

End Sub

 

 

Sub btnshare_Click

File.Writestring(File.DirInternal,"test.txt",label1.text)

Dim i As Intent

   i.Initialize(i.ACTION_SEND, "")

   i.SetType("text/plain")

   i.PutExtra("android.intent.extra.TEXT", File.ReadString(File.DirInternal,"test.txt"))

   i.WrapAsIntentChooser("داستان را به اشتراک بگذارید ...!")

   StartActivity(i)

End Sub

 

Sub OpenList_Click

StartActivity(Menu1)

Activity.Finish

End Sub

Sub Searchlist_Click

StartActivity(Search)

Activity.Finish

End Sub

Sub Settings_Click

StartActivity(Setting1)

Activity.Finish

End Sub

[alireza_hsi 160]

دوست عزیز اینو پاک کنید همون قسمتی که مربوط به باز کردن کتاب هست فقط بذارید  اونم با  تگ کد بذارید که درست بیاد اینجا بشه خوندش