آپدیت علاقه مندی

[amirsafari 116]

سلام بچه ها من یه برنامه ای نوشتم با مولتی پنل که هر آیتم یه imageview داره که در صورت علاقه مندی بودن یا نبودن عکسش فرق داره. حالا زمانی ک روی عکس کلیک میشه علاقه مندی رو تغییر میدم. یعنی اگه هست برش میدارم و اگه نیست اضافش میکنم. فقط مشکلم اینه که عکسه آپدیت نمیشه. 

راهشو بلد نیستم. 

ممنون میشم کمکم کنید

cursor1=sql1.ExecQuery("select name,label,file,fav from t1")
	For i=0 To cursor1.RowCount-1
	cursor1.Position=i
	Dim p As Panel
	p.Initialize("p")
	Scroll.Panel.AddView(p,0,stop,100%x,100%y)
	stop=stop+25%y
	p.LoadLayout("multipanel")
	Label1.Text=cursor1.GetString("label")
	readfav ' star haro mikhone
	Label1.Tag=cursor1.GetString("file") 'file ro mikhone
	starl.Tag=cursor1.GetString("file")
	star.Tag=cursor1.GetBlob("file")
	Scroll.Panel.Height=stop+5%y
	
	Next
End Sub

[مجید آرتا 5,874]

سلام

 کد مربوط به علاقمندی رو قرار بدید.

[amirsafari 116]

سلام

کد مربوط به علاقمندی رو قرار بدید.

کد خاصی نداره, از دیتا بیس میخونه اونایی ک یک باشه عکساشو تغییر میده ,کدی اگه داره میشه راهنمایی کنید؟

[مجید آرتا 5,874]

:دی

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