سلام یه علاقه مندی پیاده کردم ولی یه مشکل داره این که یا وقتی یه ایتم رو اضافه میکنم به علاقه مندی همه ایتما اضافه میشن یا وقتی میرم به اکتیویتی علاقه مندی رو یه ایتم که میزنم اون ایتم حذف میشه ولی وقتی از اکتیویتی میام بیرون و دوباره میرم توش همه اونایی که تو علاقه مندی بودن حذف میشن :/
اینم عکس از دیتابیسم
اینم کد اکتیویتی اول
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
سوال
amiro72 17
سلام یه علاقه مندی پیاده کردم ولی یه مشکل داره این که یا وقتی یه ایتم رو اضافه میکنم به علاقه مندی همه ایتما اضافه میشن یا وقتی میرم به اکتیویتی علاقه مندی رو یه ایتم که میزنم اون ایتم حذف میشه ولی وقتی از اکتیویتی میام بیرون و دوباره میرم توش همه اونایی که تو علاقه مندی بودن حذف میشن :/
اینم عکس از دیتابیسم
اینم کد اکتیویتی اول
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 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.