لود جابجای متن از دیتابیس

[alii 61]

سلام

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

Sub Panel1_Click
    Dim p As Panel
	p=Sender
       1+value=p.Tag
	StartActivity("matlab")
	
End Sub

مابقی متن جابجا نشون میده

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

Sub Panel1_Click
    Dim p As Panel
	p=Sender
	2+value=p.Tag
	StartActivity("matlab")
	
End Sub

میدونم باید از شرط استفاده کنم اما نمیدونم چجوری 

[alii 61]

اغا من فهمیدم اگه دیتابیس سنگین باشه و از پنل هم استفاده کنیم باید 10 تا 10 تا لود کنیم این یعنی چی دوستان ؟

[alii 61]

value=p.tag+1

value=p.tag+2

[مهدی ایزدی 9,203]

درود

 

این Value چیه؟ از چه نوعیه ؟

 

یک خورده شفاف سازی کنید

 

کد حلقه رو هم قرار بدید لطفا

[alii 61]

Sub Process_Globals

'These global variables will be declared once when the application starts.

'These variables can be accessed from all modules.

Dim value8 As String

Dim Cur8 As Cursor

Dim sql8 As SQL

Dim check8 As Int

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("pnl")

ScrollView1.Initialize(2000dip)

Activity.AddView(ScrollView1,0,0,100%x,100%y)

If File.Exists(File.DirInternal,"mashin.db")=False Then

File.Copy(File.DirAssets,"mashin.db",File.DirInternal,"mashin.db")

End If

sql8.Initialize(File.DirInternal,"mashin.db",False)

Cur8=sql8.ExecQuery("SELECT * From mytable")

For i=0 To Cur8.RowCount-1

Cur8.Position=i

check8= Cur8.GetInt("fav")

If check8 = 1 Then

p.Initialize("p")

ScrollView1.Panel.AddView(p,0 ,Stopint,100%x,100%Y)

Stopint=Stopint+150dip

p.LoadLayout("pnlmashin")

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Panel1.Tag=i '''' (range panel ha yek dar miun ghermez va abi mishe)'

'If (i Mod 2)=1 Then '''' (range panel ha yek dar miun ghermez va abi mishe)'

' Panel1.Color=Colors.Red '''' (range panel ha yek dar miun ghermez va abi mishe)'

' Else '''' (range panel ha yek dar miun ghermez va abi mishe)'

' Panel1.Color=Colors.Blue '''' (range panel ha yek dar miun ghermez va abi mishe)'

' End If '''' (range panel ha yek dar miun ghermez va abi mishe)'

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

img1.Tag=i

Label1.Text=""&Cur8.GetString("list")

'Label2.Text=""&Cur1.GetString("matn")

Label1.TextColor=Colors.Black

Label1.TextSize=22

Label1.Typeface=Typeface.DEFAULT_BOLD

Label1.Gravity=Gravity.CENTER

ScrollView1.Panel.Height=Stopint

img1.Bitmap=LoadBitmap(File.DirAssets,"mashin1.png")

Else If check8 = 0 Then

p.Initialize("p")

ScrollView1.Panel.AddView(p,0 ,Stopint,100%x,100%Y)

Stopint=Stopint+150dip

p.LoadLayout("pnlmashin")

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Panel1.Tag=i

' Panel1.Color=Colors.Red

' Else '''' (range panel ha yek dar miun ghermez va abi mishe)'

' Panel1.Color=Colors.Blue '''' (range panel ha yek dar miun ghermez va abi mishe)'

' End If '''' (range panel ha yek dar miun ghermez va abi mishe)'

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

img1.Tag=i

Label1.Text=""&Cur8.GetString("list")

'Label2.Text=""&Cur1.GetString("matn")

Label1.TextColor=Colors.Black

Label1.TextSize=22

Label1.Typeface=Typeface.DEFAULT_BOLD

Label1.Gravity=Gravity.CENTER

ScrollView1.Panel.Height=Stopint

img1.Bitmap=LoadBitmap(File.DirAssets,"mashin0.png")

End If

Next

Cur8.Close

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Panel1_Click

p=Sender

???????value8=p.Tag+2

StartActivity("matlabmashin")

Activity.Finish

End Sub

[مهدی ایزدی 9,203]

اغا من فهمیدم اگه دیتابیس سنگین باشه و از پنل هم استفاده کنیم باید 10 تا 10 تا لود کنیم این یعنی چی دوستان ؟

میان از Limit استفاده میکنند که برنامه هنگ نکنه