ارورMissing Keyword: end sub هنگام کامپایل برنامه

[naser sahami 90]

سلام بر دوستان گلم اقا من وقتی برنامه ام را کامپایل میکنم این ارور را میده در حالی که من اونا لغت را نوشتم البته لازم به ذکر که اون لغت را اول ننوشته بودم ارور داد دوباره نوشتم ولی باز همون ارور قبل را داد متاسفانه هرچی هم عکس پیوست میکنم خطا میده  منظورم end ifهست

B4A version 4.30
Parsing code.                           Error
Error parsing program.
Error description: Missing Keyword: end sub
Occurred on line: 110
End If

Sub Button1_Click
	Cur.Position=0
	Dim check As Int
	check=1 Then
	Fehrest.Sql1.ExecNonQuery("update book set Fav=0 where id="&Cur.GetInt("id"))
	Fehrest.Sql1.IsInitialized
	Cur=Fehrest.Sql1.ExecQuery("select * from book")
	Dim b As Bitmap
	b.Initialize(File.DirAssets,"fave0.png")
	Button1.SetBackgroundImage(b)
	ToastMessageShow("از علاقه مندی جذف شد",False)
	Else
	Cur.Position=0
	Dim check As Int
	check=1 Then
	Fehrest.Sql1.ExecNonQuery("update naser set Fav = 1 where id = "&Cur.GetInt("id"))
	Fehrest.Sql1.IsInitialized
	Cur = Fehrest.Sql1.ExecQuery("select * from book")
	Dim b As Bitmap
	b.Initialize(File.DirAssets,"fave1.png")
	Button1.SetBackgroundImage(b)
	ToastMessageShow("به علاقه مندی ها اضافه شد",False)
End If

 End Sub

[پژمان نیکروان 6,055]

عبارت IF رو قبل از check بذارید.

[حاج حسین 2,098]

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

[پژمان نیکروان 6,055]

عبارات:

Else

و

End If

 

رو از داخل کدهاتون پاک کنید.

[naser sahami 90]

پاک کنم که برنامه بهم میریزه end if را شما نمیبینی

[ebham 232]

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

بعد هم در دوحالت شما check=1 گذاشتی  فکر نمیکین یکشون باید check=0 باشه 

البته جسارت نباشه این کدنویسی رو که من میبینم کلا مشکل داره و عمل نمیکنه ها دادا  

 

 

 

 

 

    Cur.Position=0
    Dim check As Int
    check=1 Then
    Fehrest.Sql1.ExecNonQuery("update book set Fav=0 where id="&Cur.GetInt("id"))
    Fehrest.Sql1.IsInitialized
    Cur=Fehrest.Sql1.ExecQuery("select * from book")
    Dim b As Bitmap
    b.Initialize(File.DirAssets,"fave0.png")
    Button1.SetBackgroundImage(b)
    ToastMessageShow("از علاقه مندی جذف شد",False)
    Else
    Cur.Position=0
    Dim check As Int
    check=1 Then
    Fehrest.Sql1.ExecNonQuery("update naser set Fav = 1 where id = "&Cur.GetInt("id"))
    Fehrest.Sql1.IsInitialized
    Cur = Fehrest.Sql1.ExecQuery("select * from book")
    Dim b As Bitmap
    b.Initialize(File.DirAssets,"fave1.png")
    Button1.SetBackgroundImage(b)
    ToastMessageShow("به علاقه مندی ها اضافه شد",False)
End If

End Sub