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

[cris 17]

سلام ..

من وقتی برا بار اول وارد برنامم میشم و میرم به قسمت علاقه مندی ها خطایی که در عکس زیر پیوست کردم رو میده ولی وقتی ایتمی رو به علاقه ها اضاف میکنم و میام به لیست علاقه مندی مشکلی نداره و اگه دوباره برنامه رو ببندم و باز کنم باز هم همون مشکل هست ینی چیکارش کنم؟؟؟*bye*

[cris 17]

کسی نیست؟؟؟؟؟*monkey**monkey**monkey*

[cris 17]

این خط رو ارور میده واقعا نمیدونم مشکلش چیه لطفا راهنمایی کنین!!!!!

cur = polo.sql1.ExecQuery("SELECT * FROM polo WHERE fav = 1")

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

چه خطایی میده؟

[امین شاهدی 5,765]

سلام ..

من وقتی برا بار اول وارد برنامم میشم و میرم به قسمت علاقه مندی ها خطایی که در عکس زیر پیوست کردم رو میده ولی وقتی ایتمی رو به علاقه ها اضاف میکنم و میام به لیست علاقه مندی مشکلی نداره و اگه دوباره برنامه رو ببندم و باز کنم باز هم همون مشکل هست ینی چیکارش کنم؟؟؟*bye*

شما یه چیزی رو initialize نکردین یا هم که کدی مربوط به یه آیتم از layout رو قبل از کد acitivity.loadlayout گذاشتین...

اگه نفهمیدین مشکل از کدومه برنامه رو به به جای release به صورت debug ران کنید تا خطی که ارور رخ داده رو بفهمید .

[cris 17]

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

Sub Process_Globals

Dim meghdar As String
End Sub


Sub Globals


Private ListView1 As ListView
Private ListView2 As ListView
End Sub


Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("fave")
ListView1.SingleLineLayout.Label.Color = Colors.RGB(103,50,114)
ListView1.SingleLineLayout.Label.Gravity = Gravity.CENTER
ListView2.SingleLineLayout.Label.Color = Colors.RGB(103,50,114)
ListView2.SingleLineLayout.Label.Gravity = Gravity.CENTER
If File.Exists(File.DirInternal,"polo_cholo.db") = False Then
File.Copy(File.DirAssets,"polo_cholo.db",File.DirInternal,"polo_cholo.db")
End If
Dim cur As Cursor
cur = polo.sql1.ExecQuery("SELECT * FROM polo WHERE fav = 1")
	For i = 0 To cur.RowCount - 1
	cur.Position = i
ListView1.AddSingleLine2(cur.GetString("list"),cur.GetInt("id"))
Next
cur.Close

Dim cur As Cursor
cur = mota.sql1.ExecQuery("SELECT * FROM mota WHERE fav = 3")
	For i = 0 To cur.RowCount - 1
	cur.Position = i
ListView2.AddSingleLine2(cur.GetString("list"),cur.GetInt("id"))
Next
End Sub


Sub Activity_Resume


End Sub


Sub Activity_Pause (UserClosed As Boolean)


End Sub


Sub ListView1_ItemClick (Position As Int, Value As Object)
meghdar = Value
StartActivity(fav_polo)
End Sub
Sub ListView2_ItemClick (Position As Int, Value As Object)
meghdar = Value
StartActivity(fav_mota)
End Sub