معنی این دوتا ارور!

[SoRoUsH 300]

سلام دوستان این ارور یعنی چی؟! چیکار باید کنم؟!

 

ببینید دوستان این ارور ها مال یه کتاب هست که دارم میسازم...این اولیه رو توی YouWave میده وقتی که میخوام وارد صفحه ای که لیست ویو داره بشم  میده اما توی گوشیم تست کردم نمیده اینو و اکتیویتی لیست ویو باز میشه اما یه ارور دیگه هم  وقتی که روی 3-4 تا گزینه آخر لیست ویو کلیک میکنم  میده...ببینید:

 

دلیل این ارور ها چیه؟! مشکل از کجاست؟! 

ممنون میشم پاسخ بدید دوستان!

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

سلام

خطای اولی داره میگه توی دیتابیستون تیبلی یا جدولی به اسم Tbl3  وجود نداره.لطفا به بزرگی و کوچکی حروف هم توجه کنید.

عکس دوم هم اصولا مربوط میشه به حلقه و پیمایش اطلاعات دیتابیس که داره میگه شما از 0 داده قصد دارید اطلاعاتی رو بگیرید که باعث خطا شده.

[SoRoUsH 300]

یعنی من باید چیکار کنم برای رفع ارور دوم؟!

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

کد مربوط به این قسمت رو قرار بدید.

[SoRoUsH 300]

کد مربوط به این قسمت رو قرار بدید.

ببینید من این ارور دومی رو فقط موقعی که آخرین گزینه دیتابیس رو میزنم دزیافت میکنم ! برای بقیش درسته! واقعا نمیدونم چرا!

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

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

[SoRoUsH 300]

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

Sub Process_Globals
	Dim SQL1 As SQL
    Dim cur As Cursor
	Dim s As Int = 0
End Sub

Sub Globals
   	Dim l1 As ListView
	Dim mb As MagicBook
	Dim l As Label
	Dim myfont As Typeface
	Private Label1 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("s2")
	l=l1.TwoLinesAndBitmap.Label
	l1.TwoLinesAndBitmap.ItemHeight=15%y
    l1.TwoLinesAndBitmap.Label.Height=15%y
	Activity.Title="فهرست"

	Dim Bitmaplist As BitmapDrawable
	Bitmaplist.Initialize(LoadBitmap(File.DirAssets,"wood.jpg"))
	l1.TwoLinesLayout.Background=Bitmaplist
	
	myfont = Typeface.LoadFromAssets("sogand.ttf")
	Label1.Typeface=myfont
	Label1.TextSize=1.25%x*1.25%y
	Label1.Gravity=Gravity.CENTER
	
	l1.TwoLinesAndBitmap.ImageView.Width = 10%y
    l1.TwoLinesAndBitmap.ImageView.Height = 10%y


End Sub

Sub Activity_Resume
		
If s=1 Then
	
l1.TwoLinesAndBitmap.Label.TextSize = 5%y
 l.Gravity=Gravity.CENTER_HORIZONTAL
 l.TextColor=0xFFFD0004
 l.Typeface = Typeface.LoadFromAssets("homa.ttf")
 l1.Clear
 
	mb.ImgFave = "button1.png"
	mb.ImgFaved = "button2.png"
	mb.List("bank.db",SQL1,cur,"Tbl1",l1,"Onvan","Fasl","Neshan")
	
Else If s=2 Then
	

l1.TwoLinesAndBitmap.Label.TextSize = 5%y
 l.Gravity=Gravity.CENTER_HORIZONTAL
 l.TextColor=0xFFFD0004
 l.Typeface = Typeface.LoadFromAssets("homa.ttf")
 l1.Clear
 
	mb.ImgFave = "button1.png"
	mb.ImgFaved = "button2.png"
	mb.List("bank.db",SQL1,cur,"Tbl2",l1,"Onvan","Fasl","Neshan")
	
Else If s=3 Then
	

l1.TwoLinesAndBitmap.Label.TextSize = 5%y
 l.Gravity=Gravity.CENTER_HORIZONTAL
 l.TextColor=0xFFFD0004
 l.Typeface = Typeface.LoadFromAssets("homa.ttf")
 l1.Clear
 
	mb.ImgFave = "button1.png"
	mb.ImgFaved = "button2.png"
	mb.List("bank.db",SQL1,cur,"Tbl3",l1,"Onvan","Fasl","Neshan")
	
Else If s=4 Then
	

l1.TwoLinesAndBitmap.Label.TextSize = 5%y
 l.Gravity=Gravity.CENTER_HORIZONTAL
 l.TextColor=0xFFFD0004
 l.Typeface = Typeface.LoadFromAssets("homa.ttf")
 l1.Clear
 
	mb.ImgFave = "button1.png"
	mb.ImgFaved = "button2.png"
	mb.List("bank.db",SQL1,cur,"Tbl4",l1,"Onvan","Fasl","Neshan")
	
Else If s=0 Then
	
l1.TwoLinesAndBitmap.Label.TextSize = 5%y
 l.Gravity=Gravity.CENTER_HORIZONTAL
 l.TextColor=0xFFFD0004
 l.Typeface = Typeface.LoadFromAssets("homa.ttf")
 l1.Clear
 
	mb.ImgFave = "button1.png"
	mb.ImgFaved = "button2.png"
	mb.List("bank.db",SQL1,cur,"Tbl0",l1,"Onvan","Fasl","Neshan")

	
End If

End Sub

Sub l1_ItemClick (Position As Int, Value As Object)
'    SQL1.execnonquery("SELECT * FROM Tbl1 WHERE id = '1'")
     Reading.lblid=l1.TwoLinesAndBitmap.Label.Text
	 Reading.id2=Value
     StartActivity(Reading)
End Sub

Sub l1_ItemLongClick (Position As Int, Value As Object)
	If s=1 Then
	mb.Add_Remove_List("bank.db",SQL1,cur,"Tbl1","Fasl",Value,"Neshan")
	Else If s=2 Then
	mb.Add_Remove_List("bank.db",SQL1,cur,"Tbl2","Fasl",Value,"Neshan")   
	Else If s=3 Then
	mb.Add_Remove_List("bank.db",SQL1,cur,"Tbl3","Fasl",Value,"Neshan") 
	Else If s=4 Then
	mb.Add_Remove_List("bank.db",SQL1,cur,"Tbl4","Fasl",Value,"Neshan")	
	Else If s=0 Then
	mb.Add_Remove_List("bank.db",SQL1,cur,"Tbl0","Fasl",Value,"Neshan")	
	End If
	
	Activity_Resume
End Sub

بفرمایید

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

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

ببینید این خطا مربوط میشه به این که شما از 20 تا رکورد بخوایید 21 تا رو بگیرید.

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

[SoRoUsH 300]

سلامیس دوباره....بنده با سازنده این کتابخونه حرف زدم ایشون گفتن من توی دیتابیس ام 9 تا گزینه دارم اما توی متن 8 تا و بعد آف شدن...این یعنی  چی؟! کسی میتونه کمکی بکنه؟!