مشکل در لیست علاقه مندیها

[afraz aa 478]

با سلام

 

 

دوستان من صفحه دارم که توش لیست علاقه مندیها ها رو نشون میده(در لیست ویو)

 

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

 

دوستان میشه رهنمایی بکنید که چطوری میتونم کاری کنم که وقتی تیکشو برداشتم همون لحظه از لیست حذف بشه

 

ممنون        

[aazizz 12]

درست نفهمیدم منظورتون چیه ولی با توجه به کداتون، به جای دستور

if تو رویداد کلیک دکمه ذخیرتون، این کدو بزارین ببینین درست میشه

If f = 0 Then
mataleb.SQL1.ExecNonQuery("UPDATE tbl1 SET fav = 1 WHERE id = "&cur.GetInt("id"))
ToastMessageShow("به علاقه مندی ها اضافه شد",False)
Dim bb As BitmapDrawable
bb.Initialize(LoadBitmap(File.DirAssets,"fav0.png"))
btnfav.Background=bb
cur = mataleb.sql1.ExecQuery("Select * from tbl1")
Else If f = 1 Then
mataleb.SQL1.ExecNonQuery("UPDATE tbl1 SET fav = 0 WHERE id = "&cur.GetInt("id"))
ToastMessageShow(" از علاقه مندی ها حذف شد ",False)
Dim bb As BitmapDrawable
bb.Initialize(LoadBitmap(File.DirAssets,"fav1.png"))
btnfav.Background=bb
cur = fehrest.sql1.ExecQuery("Select * from Tbl1")
End If