رفتن به مطلب
  • 0

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


amiro72

سوال

سلام یه علاقه مندی پیاده کردم  ولی یه مشکل داره  این که یا وقتی  یه ایتم رو اضافه میکنم به علاقه مندی  همه ایتما اضافه میشن یا وقتی میرم به اکتیویتی علاقه مندی رو یه ایتم که میزنم اون ایتم حذف میشه ولی وقتی از اکتیویتی میام بیرون و دوباره میرم توش همه اونایی که تو  علاقه مندی بودن حذف میشن :/

 

اینم عکس از دیتابیسم

zrq03hdg13krxzxddw0m.jpg

 

اینم کد اکتیویتی اول

Sub Process_Globals
	Dim id As  Int
End Sub


Sub list_imageclicked (ParentEventName As String,position As Int)
id=position+1
Dim cur1 As Cursor
cur1 = sql1.ExecQuery("SELECT *  FROM dbroman WHERE id="&id)
cur1.Position=0

If cur1.GetInt("fav")=0 Then
'	pp.Initialize(LoadBitmap(File.DirAssets,"telegram-farsgraphic.png"))
	l3.Set(position,arad.getAssetsFullAddress("telegram-farsgraphic.png"))
	arad.NotifyDataSetChanged
	sql1.ExecNonQuery("UPDATE dbroman SET fav=1 WHERE id="&id)
	ToastMessageShow("به لیست علاقه مندی ها افزوده شد!",False)
End If

End Sub




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


Sub Activity_Create(FirstTime As Boolean)

	
	If File.Exists(File.DirInternal,"city.db") = False Then
		File.Copy(File.DirAssets,"city.db",File.DirInternal,"city.db")
	End If
	
	If Main.sql1.IsInitialized = False Then
	Main.sql1.Initialize(File.DirInternal,"city.db",False)
	End If
	
	
'	
'	curr2 = sqll1.ExecQuery("SELECT * FROM db")
'	curr2.Position=0	
	

Dim cur2 As Cursor
cur2 = Main.sql1.ExecQuery("SELECT * FROM db WHERE fav=1")
For i=0 To cur2.RowCount-1
cur2.Position = i
	l1.Add(cur2.GetString("onvan"))
	l2.Add(cur2.GetString("artis"))
	l3.Add(arad.getAssetsFullAddress("847005_tvc7ice7.png"))
Next

End Sub




Sub list_imageclicked (ParentEventName As String,position As Int)
Main.sql1.ExecNonQuery("UPDATE dbroman SET fav=0 WHERE id"&position)
l1.RemoveAt(position)
arad.NotifyDataSetChanged
ToastMessageShow(" از لیست علاقه مندی حذف شد ",False)
End Sub


ممنون اگه بگید مشکلم کجاست 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

3 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

درود

این خط رو ببینید :

Main.sql1.ExecNonQuery("UPDATE dbroman SET fav=0 WHERE id"&position)
id position

علاوت مساوی رو یادتون رفته بزارید :fekr:

کاری که میگم رو انجام بدید و دوباره برنامه رو تست کنید

نام دیتابیس رو عوض کنید. مثلا اسم city رو بزارید amirrr و از توی کد نویسی هم تغییرات رو اعمال کنید و مجدد تست کنید

ببینید چطور میشه ؟

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

 

سلام ممنون که جواب دادید

والا من دو روزه درگیره یه علاقه مندی و سرچ با اریا لیست ویو هستم

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

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

لینک سورس

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام ممنون که جواب دادید

والا من دو روزه درگیره یه علاقه مندی و سرچ با اریا لیست ویو هستم

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

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

لینک سورس

 

کسی نیس ؟؟ :/

لینک ارسال
به اشتراک گذاری در سایت های دیگر

درود

این خط رو ببینید :

Main.sql1.ExecNonQuery("UPDATE dbroman SET fav=0 WHERE id"&position)

id position

علاوت مساوی رو یادتون رفته بزارید  :fekr:

کاری که میگم رو انجام بدید و دوباره برنامه رو تست کنید

نام دیتابیس رو عوض کنید. مثلا اسم city رو بزارید amirrr و از توی کد نویسی هم تغییرات رو اعمال کنید و مجدد تست کنید

ببینید چطور میشه ؟

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...