چرخش حلقه

[ehadi 16]

با سلام

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

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

دو تا مشکل دارم

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

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

اسکرین شات ارورو می زارم

کدامم می زارم

ممنون میشم راهنماییم کنید.

 

 

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

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

End Sub

Sub Globals

	Private EditText1 As EditText
	Private edload As Button
	Private edback As Button
	Private ednext As Button
	Dim sql2 As SQL
	Dim dbs As Int

End Sub

Sub Activity_Create(FirstTime As Boolean)

	Activity.LoadLayout("axha")

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

	EditText1.color = Colors.Transparent
	
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub EditText1_TextChanged (Old As String, New As String)
	
		

End Sub

Sub edload_Click
				Dim cur As Cursor
	cur = sql2.ExecQuery("SELECT * FROM smstb where id =1")

			For i = 0 To cur.RowCount-1
		cur.Position = i
			Next
	EditText1.Text = cur.GetString("sms2")

End Sub



Sub ednext_Click
					Dim cur As Cursor
	cur = sql2.ExecQuery("SELECT * FROM smstb where id ="&dbs)
	dbs = dbs +1
			For i = 0 To cur.RowCount-1
		cur.Position = i
			Next
	EditText1.Text = cur.GetString("sms2")
End Sub

Sub edback_Click
						Dim cur As Cursor
	cur = sql2.ExecQuery("SELECT * FROM smstb where id ="&dbs)
	dbs = dbs -1
			For i = 0 To cur.RowCount-1
		cur.Position = i
			Next
	EditText1.Text = cur.GetString("sms2")
End Sub

[ehadi 16]

جناب ذاکر دستتون درد نکنه نصف مشکلم حل شد

ارور اولم رفع شد.

حالا موقعی که به فیلد آخر می رسم فقط این ارورو دارم.

چه کنم؟

دوستان راهنمایی پلیز

[alirezakazemizaroomi 437]

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

Sub ednext_Click

Try
Dim cur As Cursor
cur = sql2.ExecQuery("SELECT * FROM smstb where id ="&dbs)
dbs = dbs +1
For i = 0 To cur.RowCount-1
cur.Position = i
Next
EditText1.Text = cur.GetString("sms2")
Catch
ToastMessageShow("id آخر!",True)
End Try

End Sub

[ehadi 16]

 

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

Sub edload_Click

Try
Dim cur As Cursor
cur = sql2.ExecQuery("SELECT * FROM smstb where id =1")
For i = 0 To cur.RowCount-1
cur.Position = i
Next
EditText1.Text = cur.GetString("sms2")
Catch
ToastMessageShow("id آخر!",True)
End Try

End Sub

خیلی ممنون ول کلا از کار افتاد

[alirezakazemizaroomi 437]

ببخشید اسپم قبلیم رو اصلاح کردم اون کدو چک کن

[ehadi 16]

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

[alirezakazemizaroomi 437]

سلام

تو اکتیویتی کریت کد زیرو بنویس:

dbs =1

اگه درست نشد سورستو بذار