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

[absolutezero 7]

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

Sub Panel1_Click
	p1=Sender
	matn.a=p1.Tag
	StartActivity(matn)
End Sub
Sub Panel1_LongClick
p1.Initialize("p1")
	sql1.ExecNonQuery("update tblfara set fav = 1 where id = "P1.Tag)
	ToastMessageShow("به لیست علاقه مندی ها اضافه شد",True)
End Sub

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

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

fara.zip

[absolutezero 7]

اینم کد ها اگه کسی میدونه کمک کنه لطفا

Sub Panel1_Click
	p1=Sender
	matn.a=p1.Tag
	StartActivity(matn)
End Sub
Sub Panel1_LongClick
p1.Initialize("p1")
sql1.ExecNonQuery("update tblfara set fav = 1 where id = "&p1.Tag)
	ToastMessageShow("به لیست علاقه مندی ها اضافه شد",True)
End Sub

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

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

سلام

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

Sub Panel1_Click  
 Dim p1 As Panel
 p1=Sender
 matn.a=p1.Tag
 StartActivity(matn)
End Sub

Sub Panel1_LongClick
 Dim p1 As Panel
 p1 = Sender
 sql1.ExecNonQuery("UPDATE tblfara SET fav = '1' WHERE id = "&p1.Tag)
 ToastMessageShow("به لیست علاقه مندی ها اضافه شد",True)
End Sub

[absolutezero 7]

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

[absolutezero 7]

دوستان کسی بلد نیست ایا؟

[shahab.es 5,429]

سلام

p1 رو کجا تعریف کردید؟

همون پنلی هست که خودتون درست کردید و اطلاعات رو توش قرار دادید؟

بهتره یه پنل جدید رو توی ساب تعریف کنید، در کل کداتون مشکل خاصی ندارن

[shahab.es 5,429]

خوب

الان تگ و سندرت درسته

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

درستش کن این خطو

sql1.ExecNonQuery("update tblfara set fav = 1 where id = "P1.Tag)

sql1.ExecNonQuery("update tblfara set fav = 1 where id = "&P1.Tag)

[absolutezero 7]

اقا شهاب اشتباه اینجا تایپ کرده بودم & رو گذاشته بودم تو کدم الان پروژه ارور نمیده پیغام میده به علاقه مندی ها اضافه شد ولی تو صفحه علاقه مندی چیزی نشون نمیده

[shahab.es 5,429]

یه بار از برنامه برو بیرون و دوباره برو توش
بازم ردیف نشد، کدهاتو بذار ببینیم چه خبره
مطمئن شو که دیتابیست رو هر بار کپی یا اینیشایالیز نمیکنی

[absolutezero 7]

اقا پیوست کردم

fara.rar

[absolutezero 7]

الان به جای p1.tag نوشتم

cur1.GetInt("id")

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

[mahdikam 35]

اقا مجید شما پروژرو دانلود کردید؟چون کدی ک گفتید عمل نمیکنه البته شرمنده رفیقم نت نداشت من با ایدی خودم پرسیدم به من گفت بپرسم ازتون

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

دو.ستم بنده به بیسیک دسترسی ندارم و بنده از شما درخواست آپلود سورس رو نکرده بودم

کدهاتون رو توی تگ  <>  کد قرار بدید.کل کد رو قرار بدید باز یک خط دو خط قرار ندید.

[absolutezero 7]

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals

Dim sql1 As SQL

End Sub

Sub Globals
Dim cur1 As Cursor
	Private Panel1 As Panel
	Private Label1 As Label
	Private ScrollView1 As ScrollView
	
	Dim stop As  Int=3%y
	Private Button1 As Button
	'Dim dd As Int
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("1")
If File.Exists(File.DirInternal,"fara.db") = False Then
				File.Copy(File.DirAssets,"fara.db",File.DirInternal,"fara.db")
			End If
			If sql1.IsInitialized = False Then
				sql1.Initialize(File.DirInternal,"fara.db",False)
			End If
If Main.meghdar = 1 Then
	cur1=sql1.ExecQuery("select * from tblfara where fasl = 1")
else If Main.meghdar = 2 Then
	cur1=sql1.ExecQuery("select * from tblfara where fasl = 2")
else If Main.meghdar = 3 Then
	cur1=sql1.ExecQuery("select * from tblfara where fasl = 3")
	End If
For i= 0 To cur1.RowCount-1
			cur1.Position = i
		Dim p As Panel
			p.Initialize("p")
			ScrollView1.Panel.AddView(p,0,stop,100%x,100%y)
 			stop=stop+10%y
	p.LoadLayout("2")
		Label1.Text =cur1.GetString("onvan")
		Panel1.Tag = i
		ScrollView1.Panel.Height =stop+10%y
Next
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Panel1_Click
	Dim p1 As Panel
	p1=Sender
	matn.a=p1.Tag
	StartActivity(matn)
End Sub
Sub Panel1_LongClick
Dim p1 As Panel
p1=Sender
sql1.ExecNonQuery("update tblfara set fav = 1 where id = "&p1.Tag)
	ToastMessageShow("به لیست علاقه مندی ها اضافه شد",True)
End Sub
Sub Button1_Click
	StartActivity(fav)
	Activity.Finish
End Sub

اینم کد صفحه fav

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
Dim sql1 As SQL
End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
Dim cur1 As Cursor
	Private ScrollView1 As ScrollView
	Dim stop As Int
	Private Panel1 As Panel
	Private Label1 As Label
	Private Button1 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("1")
sql1.Initialize(File.DirInternal,"fara.db",True)
cur1=sql1.ExecQuery("select * from tblfara where fav = 1 ")
For i= 0 To cur1.RowCount-1
			cur1.Position = i
		Dim p As Panel
			p.Initialize("p")
			ScrollView1.Panel.AddView(p,0,stop,100%x,100%y)
 			stop=stop+10%y
	p.LoadLayout("2")
		Label1.Text =cur1.GetString("onvan")
		Panel1.Tag = i
		ScrollView1.Panel.Height =stop+50%y
Next
cur1.Close
End Sub
Sub Activity_Resume

End Sub
Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub Button1_Click
	StartActivity(fehrest)
	Activity.Finish
End Sub

[absolutezero 7]

اقا شهاب باز شد پروژه یا تو جای دیگه اپلود کنم؟

[shahab.es 5,429]

اقا شهاب باز شد پروژه یا تو جای دیگه اپلود کنم؟

پروژه تون باز شده، مشکلی هم نداره

یکم بد قلقه

اما مشکلی نمیبینیم توش،،،

متوجه هم نشدم که 3 تا بیشتر نمیاره، 3 تا چی؟

علاقه مندی، 

تیتر،

زیر تیتر؟

[absolutezero 7]

شما نگاه کنید سه تا ایتم بیشتر نمیشه برد تو علاقه مندی یعنی فقط از هر فصل یه عنوان میشه برد

[shahab.es 5,429]

والا من هر چی چک میکنم، نمیبینم مشکل خاصی

کدهات درست به نظر میرسه

سعی کن کدهاتو قرار بدی تا دوستان هم یه نگا بندازن(سورس نه ، کدها توی تگ CODE)