علاقمندی مولتی پنل

[porya 959]

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

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

اینم از کدها

Panel1.Tag = cursor1.GetString("id") & "#" & cursor1.GetString("f")

Sub Panel1_Click
	
	Dim p As Panel
	p = Sender
	Dim parts() As String = Regex.split("#",p.tag)
	StartActivity(matn)
	
End Sub

و برای باتن علاقه کدها به صورت زیر

Sub Button1_Click

	For i = 0 To cursor1.RowCount -1
	cursor1.Position = i
	Next
	
     Dim check As Int
     check = khaterat.parts(1)
     
     If check = 1 Then
	 
         sql1.ExecNonQuery("UPDATE por SET f = 0 WHERE id = "&khaterat.parts(0))
		 sql1.IsInitialized
	     cursor1 = sql1.ExecQuery("SELECT * FROM por")
         ToastMessageShow("از علاقه مندی ها حذف شد",False)
		  
     Else 
	 
         sql1.ExecNonQuery("UPDATE por SET f = 1 WHERE id = "&khaterat.parts(0))
		 sql1.IsInitialized
	     cursor1 = sql1.ExecQuery("SELECT * FROM por")
         ToastMessageShow("به علاقه مندی ها اضافه شد",False)
		 
     End If
	 
End Sub

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

دوست من شما چندجای کدتون مشکل داره.

اول از این کد شروع میکنیم :

Panel1.Tag = cursor1.GetString("id") & "#" & cursor1.GetString("f")

آیا id  شما از جنس String  هستش ؟ اگه Stringe  که اینجا یکی از قواعد اصلی رو زیر پپا گذاشتید و توصیه میکنم این ستون رو از نوع Integer  یا Number  بزارید.

 

خب اشکال بعدی :

     Dim check As Int
     check = khaterat.parts(1)

شما اونجا اومدی f رو GetString  کردین و بعد اینجا اومدید دارید توی یک متغییر Int  میریزید و اشکال داره این کارتون.

[porya 959]

اوه اوه راست میگی آقای ارتا عجب دقتی برم چک کنم ببینم چی میشه

[porya 959]

دوستان بازم همونجوریه باتن فقط یه کار انجام میده یا از لیست علاقمندی ها حذف میکنه یا اضافه 

[shahab.es 5,429]

دوست عزیزم، کدی رو که من براتون قرار دادم رو تست کردید؟

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

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

دوستان بازم همونجوریه باتن فقط یه کار انجام میده یا از لیست علاقمندی ها حذف میکنه یا اضافه 

کدتون و کامل اینجا قرار بدید.پیوست نکنید یک دفعه.همینجا توی تگ کد قرار بدید

[porya 959]

دوست عزیزم، کدی رو که من براتون قرار دادم رو تست کردید؟

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

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

[porya 959]

Khaterat اسم اکتیویتی و part هم از نوع string

[porya 959]

اقای ارتا پس این اموزشه چی شد کارم لنگه