خطا در لود متن

[hajmaj 5]

 Activity.LoadLayout ( "matn")
	btn.Initialize("")
	Dim sql2 As SQL
		lbl.Initialize("")
	ts.Initialize
	lbl.TextColor = Colors.Black
	scrmatn.Height = 100%y - scrmatn.Top
	

	If File.Exists(File.DirInternal,"safir.db")=False Then
	File.Copy(File.DirAssets,"safir.db",File.DirInternal,"safir.db")
End If
If sql2.IsInitialized=False Then
	sql2.Initialize(File.DirInternal,"safir.db",True)

End If	
	
	
	
		matlab .cur = matlab.sql2.ExecQuery("SELECT * FROM tbl1 WHERE fasl=" & matlab.fasl )
		For i = 0 To matlab.cur.RowCount-1
			matlab.cur.Position = i
			lbl.Text =matlab.cur.GetString("matn")
			lbl.Typeface=Typeface.LoadFromAssets("byekan.ttf")
		Next
						scrmatn.Panel.AddView (lbl,0,0, scrmatn.Width , scrmatn.Height)
			lbl.Height=su.MeasureMultilineTextHeight(lbl,lbl.Text)
	ts.LongText(lbl,lbl.Text,"16", scrmatn,"2")
	

[shahab.es 5,429]

اوکی

سورستو میتونی بفرستی؟

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

نباید به sql گیر بده!!!

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

سلام

دوست من حداقل یه سلامی عرض می کردید توضیح که نمیدید حالا.

ببیننید توی اکتویتی مطلب نیازی  نیست باز دوباره بیایید این کدهارو بنویسید :

	If File.Exists(File.DirInternal,"safir.db")=False Then
	File.Copy(File.DirAssets,"safir.db",File.DirInternal,"safir.db")
End If
If sql2.IsInitialized=False Then
	sql2.Initialize(File.DirInternal,"safir.db",True)

End If	
	

این کد رو هم نمیدونم دقیق هدفتون چیه ازش پاکش کنید :
 

	scrmatn.Height = 100%y - scrmatn.Top

بعد این قسمت بعدی کدتون که اصلا نیازی به نوشتن حلقه نیست رو اصلاح کنید.:

		matlab .cur = matlab.sql2.ExecQuery("SELECT * FROM tbl1 WHERE fasl=" & matlab.fasl )
		For i = 0 To matlab.cur.RowCount-1
			matlab.cur.Position = i
			lbl.Text =matlab.cur.GetString("matn")
			lbl.Typeface=Typeface.LoadFromAssets("byekan.ttf")
		Next
			

این کد رو جایگزین کنید :

Dim Cur As Cursor
cur = matlab.sql2.ExecQuery("SELECT * FROM tbl1 WHERE fasl=" & matlab.fasl )
matlab.cur.Position = 0
lbl.Text =matlab.cur.GetString("matn")
lbl.Typeface=Typeface.LoadFromAssets("byekan.ttf")

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

[hajmaj 5]

سلام و عرض ادب به تمامی دوستان و اساتید عزیز و بابت اینکه بنده ابتدا عرض ادب نکردم پوزش می طلبم و امیدوارم عذرخواهی من رو پذیرا باشید ...

[hajmaj 5]

سلام

دوست من حداقل یه سلامی عرض می کردید توضیح که نمیدید حالا.

ببیننید توی اکتویتی مطلب نیازی  نیست باز دوباره بیایید این کدهارو بنویسید :

	If File.Exists(File.DirInternal,"safir.db")=False Then
	File.Copy(File.DirAssets,"safir.db",File.DirInternal,"safir.db")
End If
If sql2.IsInitialized=False Then
	sql2.Initialize(File.DirInternal,"safir.db",True)

End If	
	

این کد رو هم نمیدونم دقیق هدفتون چیه ازش پاکش کنید :

 

	scrmatn.Height = 100%y - scrmatn.Top

بعد این قسمت بعدی کدتون که اصلا نیازی به نوشتن حلقه نیست رو اصلاح کنید.:

		matlab .cur = matlab.sql2.ExecQuery("SELECT * FROM tbl1 WHERE fasl=" & matlab.fasl )
		For i = 0 To matlab.cur.RowCount-1
			matlab.cur.Position = i
			lbl.Text =matlab.cur.GetString("matn")
			lbl.Typeface=Typeface.LoadFromAssets("byekan.ttf")
		Next
			

این کد رو جایگزین کنید :

Dim Cur As Cursor
cur = matlab.sql2.ExecQuery("SELECT * FROM tbl1 WHERE fasl=" & matlab.fasl )
matlab.cur.Position = 0
lbl.Text =matlab.cur.GetString("matn")
lbl.Typeface=Typeface.LoadFromAssets("byekan.ttf")

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

ممنونم که انقدر خوب راهنمایی می کنید و باعث افتخاره که استادی همچون شما دارم ..ولی بازم مشکل حل نشد و اینکه 

احتمال میدم که مشکل از این خطه

Cur = matlab.sql2.ExecQuery("SELECT * FROM tbl1 WHERE fasl=" & matlab.fasl )

[hajmaj 5]

بی صبرانه منتظر کمکتونم

[shahab.es 5,429]

سلام اقا مجید عزیز

خوبی اقا؟

ببین

شما یه debug legacy بگیر، ببینیم به کدوم خط گیر میده

ارورتون، میگه یه چیزی رو خالی گذاشتید...

یه نگا بندازید، ببینید به کجا گیر میده...

[hajmaj 5]

سلام اقا مجید عزیز

خوبی اقا؟

ببین

شما یه debug legacy بگیر، ببینیم به کدوم خط گیر میده

ارورتون، میگه یه چیزی رو خالی گذاشتید...

یه نگا بندازید، ببینید به کجا گیر میده...

وای خدا این استادمه ....سلام استاد . امیدوارم حالت خوب باشه ..

استاد خطا توی این خطه 

matlab.cur =matlab.sql2.ExecQuery("SELECT * FROM tbl1 WHERE fasl=" & matlab.fasl)

[shahab.es 5,429]

مرسی عزیزم، شما هم خوب باشی ایشاالله

ببین

If sql2.IsInitialized=False Then

این باید به این شکل باشه عزیزم 

If sql2.Initialized=False Then

[hajmaj 5]

 

مرسی عزیزم، شما هم خوب باشی ایشاالله

ببین

If sql2.IsInitialized=False Then

این باید به این شکل باشه عزیزم 

If sql2.Initialized=False Then

استاد خطا میده وقتی کد شما رو جایگزن کد خودم می کنم ...

اصلا Initialized نداره