مشکل در لیست علاقبندی در مولتی پنل

[arash.at 11]

سلام 

من از فروشگاه سایت دوره آموزش لیست علاقمندی رو خریدم و برای استفاده از علاقمندی در favorite دقیقا کد های زیر رو به ترتیب در قسمت های Activity_Create و رویداد کلیک عکسم می نویسم . ولی مشکل اینجاس که وقتی یه تعدادی رو توی یه بخش نشان دار می کنم و بعد که دوباره می خوام وارد همون بخش بشم فقط یکیشون نشان داره ! چیکار کنم ؟ سورس و فیلم رو که از فروشگاه خریده بودم و طبق اون هم پیش رفتم . 

 

[porya 959]

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

If cur.GetString("appRead") = "O"

  کد پایین رو قرار بدید ببینید جواب میده...

If cur.Getint("appRead") = "O"

[arash.at 11]

 

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

If cur.GetString("appRead") = "O"

  کد پایین رو قرار بدید ببینید جواب میده...

If cur.Getint("appRead") = "O"

این کار رو هم کردم.جواب نداد 

[porya 959]

بیا به جای کدهای که تو اکتیویتی کریت گذاشتی این کدهارو بذار...

	Dim check As Int
    check =cur.Getint("appRead")

If check = 1 Then
favlmg.Bitmap = LoadBitmapSample(File.DirAssets,"favoriteOl.png",favlmg.Width,favlmg.Height)
 Else 
favlmg.Bitmap = LoadBitmapSample(File.DirAssets,"favoritel.png",favlmg.Width,favlmg.Height)
 End If 
favlmg.Tag = i 
Next 
ScrollViewl.Panel.Height = top 
cur.Close 

و به جای کدهای رویداد sub favimg_click اینا رو بنویس...

Dim img As lmageView
	img = Sender
	
	Dim cursor2 As Cursor
	cursor2 = sql1.ExecQuery("SELECT * FROM tblapp")
	cursor2.Position = img.Tag
	
	Dim check As Int
	check = cursor2.GetInt("appRead")
	
	If check = 1 Then
	
sql1.ExecNonQuery("UPDATE tblapp SET appRead = 0 WHERE applD = "&cursor2.GetInt("applD"))
favlmg.Bitmap = LoadBitmapSample(File.DirAssets,"favoriteOl.png",favlmg.Width,favlmg.Height)
ToastMessageShow("از لیست علاقمندی ها حذف شد",False)

	Else
    
sql1.ExecNonQuery("UPDATE tblapp SET appRead = 1 WHERE applD = "&cursor2.GetInt("applD"))
favlmg.Bitmap = LoadBitmapSample(File.DirAssets,"favoritel.png",favlmg.Width,favlmg.Height)
ToastMessageShow("به لیست علاقمندی ها اضافه شد",False)

	End If
	cursor2.Close