مشکل در اسلاید منو

[سیدمحمد 248]

سلام دوستان.

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

 

 

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

Sub ListView1_ItemClick (Position As Int, Value As Object)
	Main.fasl=Value
	StartActivity(act_matlab)
End Sub

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

 

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

[سیدمحمد 248]

باز هم مشکلم برطرف نشد دوستان.

فکر کنم درست متوجه مشکلم نشدین.

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

Sub ListView1_ItemClick (Position As Int, Value As Object)
	Main.fasl=Value
	StartActivity(act_matlab)
End Sub

این کد برای ایتم کلیکم هست. حالا اگه بخام به جای value از position استفاده کنم چه مقداری بدم؟ شاید مشکلم حل بشه

[Nemesis 1,846]

سورس رو پ خ کنید بررسی کنم

[پژمان نیکروان 6,055]

سلام

به اکتیویتی بعدی میره ، و در اونجا ایراد میگیره. (ربطی به اسلاید منو نداره)

و مشکل از کدهای sql تون هست ، فکر کنم یک نقطه اضافه گذاشتید ، اگه حل نشد کد رو قرار بدید.

[سیدمحمد 248]

سلام

به اکتیویتی بعدی میره ، و در اونجا ایراد میگیره. (ربطی به اسلاید منو نداره)

و مشکل از کدهای sql تون هست ، فکر کنم یک نقطه اضافه گذاشتید ، اگه حل نشد کد رو قرار بدی

نمیدونم مشکل کجاست برادر.

در یک اکتیویتی دیگه کار میکنه ولی توی این اکتیویتی کار نمیکنه.

اینم کد اکتیویتی مورد نظر

Sub Globals

Dim check As Int = 0
Private EditText1 As EditText
Private matnha As ImageView
Private onvan As ImageView
Private Label2 As Label
Private Label1 As Label
Private search As ImageView
Private ListView1 As ListView
End Sub

Sub Activity_Create(FirstTime As Boolean)
 
	Activity.LoadLayout("search")
	Activity.SetBackgroundImage(LoadBitmap(File.DirAssets,"MRT38.jpg"))
	If File.Exists(File.DirInternal,"ketabdb.db")=False Then
		File.Copy(File.DirAssets,"ketabdb.db",File.DirInternal,"ketabdb.db")
	End If
	If Main.s.IsInitialized=False Then
		Main.s.Initialize(File.DirInternal,"ketabdb.db",False)
	End If
	
	onvan.Bitmap= LoadBitmap(File.DirAssets,"check.png")
	matnha.Bitmap= LoadBitmap(File.DirAssets,"uncheck.png")
	
	EditText1.Color=Colors.LightGray
	ListView1.SingleLineLayout.ItemHeight=10%y
	ListView1.SingleLineLayout.Label.Gravity= Gravity.CENTER
	
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub onvan_Click
	check=0
	onvan.Bitmap = LoadBitmap(File.DirAssets,"check.png")
	matnha.Bitmap = LoadBitmap(File.DirAssets,"uncheck.png")
End Sub
Sub matnha_Click
	check=1
	onvan.Bitmap = LoadBitmap(File.DirAssets,"uncheck.png")
	matnha.Bitmap = LoadBitmap(File.DirAssets,"check.png")
End Sub


Sub search_Click
	If EditText1.Text.Trim.Length = 0 Then
	ToastMessageShow("متن وارد شده صحیح نیست",True)
	Else
	search2
	End If
End Sub

Sub search2
	ListView1.Clear
	Dim cur As Cursor
	 If check = 0 Then 
	 cur= Main.s.ExecQuery("select onvan from tbl1 where onvan like '%"& EditText1.Text &"%'")
Else
	cur= Main.s.ExecQuery("select onvan from tbl1 where matn like '%"& EditText1.Text &"%'")
	End If
	If cur.RowCount=0 Then
	ToastMessageShow("چیزی پیدا نشد",True)
Else
	For i=0 To cur.RowCount -1
	cur.Position= i
	ListView1.AddSingleLine(cur.GetString("onvan"))
	Next
	End If
End Sub
Sub ListView1_ItemClick (Position As Int, Value As Object)
	Main.fasl=Value
	StartActivity(act_matlab)
End Sub

[پژمان نیکروان 6,055]

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

عرض کردم مشکل از این اکتیویتی فعلی و کدهای Item_Click نیست.

شما نوشتید Main.fasl=Value : StartActivity(act_matlab) ، با اینکار اکتیویتی act_matlab استارت میشه و در رویداد Activity_Create اون اکتیویتی یه دستور sql اجرا میشه(برای سلکت کردن از دیتابیس) که از همونجا ایراد میگیره و گفتم چیزی که از اررور مشخصه اررور سینتکس هست(کد نویسی در sql)

و فکر کنم یک نقطه اضافه گذاشتید بین کدهاتون.

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

[سیدمحمد 248]

عرض کردم مشکل از این اکتیویتی فعلی و کدهای Item_Click نیست.

شما نوشتید Main.fasl=Value : StartActivity(act_matlab) ، با اینکار اکتیویتی act_matlab استارت میشه و در رویداد Activity_Create اون اکتیویتی یه دستور sql اجرا میشه(برای سلکت کردن از دیتابیس) که از همونجا ایراد میگیره و گفتم چیزی که از اررور مشخصه اررور سینتکس هست(کد نویسی در sql)

و فکر کنم یک نقطه اضافه گذاشتید بین کدهاتون.

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

Sub Process_Globals
	
	Dim tmr As Timer
	Dim s As SQL
	Dim fasl As String
End Sub

Sub Globals
	Dim cur As Cursor
	Private ImageView1 As ImageView
	Private ScrollView1 As ScrollView
	Dim sm As SlidingMenu
	Dim lv1 As ListView
	Private sidebar As ImageView
	Private Label1 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)

	Activity.LoadLayout("frm1")
	tmr.Initialize("Timer",2200)
	tmr.Enabled=True
	
	
	
	sm.Initialize("sm")
	lv1.Initialize("lv1")
	
	
	If File.Exists(File.DirInternal,"ketabdb.db")=False Then
	File.Copy(File.DirAssets,"ketabdb.db",File.DirInternal,"ketabdb.db")
	End If
	If s.IsInitialized=False Then
	s.Initialize(File.DirInternal,"ketabdb.db",False)
	End If
	
	
	cur=s.ExecQuery("select * from tbl1")

خدمت شما

[Nemesis 1,846]

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

ای.دی.اس.ال چی هست؟

 

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

[سیدمحمد 248]

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

ای.دی.اس.ال چی هست؟

 

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

ممنون از پاسخت دوست من.

اون اسم عنوان متن من هست.

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

[Nemesis 1,846]

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

اللحساب شما اون رو یا پاک کن یا لاتین کن ببینیم کارت به کجا میرسه