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

[qasem 249]

سلام دوستان چرا وقتی من گزینه ای را به لیست علاقه مندی ها اضافه میکنم تمام آن گروه به لیست علاقه مندی ها اضافه میشه ، عکس زیر را مشاهده فرمایید!!!

 

دیتابیس من شامل سه دسته ، گروه و یا موضوع است ، که یکی از آن موضوعات مذهبی می باشد ، حال من هر یکی از عنوان های گروه مذهبی را به لیست علاقه مندی ها اضافه میکنم ، تمام عنوانهای اون گروه به لیست علاقه مندی ها اضافه میشه !! لطفا بفرمایید مشکل از کجاست؟؟؟

[qasem 249]

مشکل را حل کردم ، متشکرم حل شد.مشکل از کدهای بخش اضافه کردن به علاقه مندی ها بود.

[Kazem Forghani 2,927]

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

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

[qasem 249]

این کدهای اضافه کردن به لیست علاقه

 

 

و این هم کدهای اکتیویتی علاقه مندی ها

 

[Kazem Forghani 2,927]

برای اضافه کردن به لیست علاقه مندی ها از این استفاده کنید : (نام تیبل ها رو با دیتابیس خودتون تنظیم کنید .)

Sub Button2_Click
	Dim cur1 As Cursor
	cur1=ListMat.SQL1.ExecQuery("SELECT * FROM bozorganeh WHERE id="&ListMat.ListViewValue)
	For i=0 To cur1.rowcount-1
	cur1.position=i
	Dim f As Int
	f = cur1.GetInt("FAV")
	If f = 1 Then
	ListMat.SQL1.ExecNonQuery("UPDATE bozorganeh SET FAV = 0 WHERE id = "&cur1.GetInt("ID"))
	Dim bb As BitmapDrawable
	bb.Initialize(LoadBitmap(File.DirAssets,"fav1.png"))
	Button2.Background=bb
	ToastMessageShow("از لیست علاقه مندی ها حذف شد ",False)
	Else
	ListMat.SQL1.ExecNonQuery("UPDATE bozorganeh SET FAV = 1 WHERE id = "&cur1.GetInt("ID"))
	Dim bb As BitmapDrawable
	bb.Initialize(LoadBitmap(File.DirAssets,"fav2.png"))
	Button2.Background=bb
	ToastMessageShow("به لیست علاقه مندی ها اضافه شد ",False)
	End If
	Next
	cur1.close
End Sub

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

"SELECT * FROM bozorganeh WHERE FAV=1"

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