I already use a local database. I do not know if you could view the records as divided in 10 -10-10 ... and so on.
Then another thing that happens is that the TextField is not displayed in the TableView. You can seeonly after you resize the column.
see image...
Sub btAvanti_Action ()
If pagCorrente < pagMax Then
pagCorrente = pagCorrente + 1
lblPage.Text = pagCorrente & "/" & pagMax
AggiornaArticoli(listarticoli)
End If
back 15
B4X:
Sub btIndietro_Action ()
If pagCorrente > 1 Then
pagCorrente = pagCorrente - 1
lblPage.Text = pagCorrente & "/" & pagMax
AggiornaArticoli(listarticoli)
End If
End Sub
and visualize the current page
B4X:
Dim i As Int
i = (pagCorrente * 15 ) -15
For i = i To i + 15
If i<= RSean.Size Then
M= RSean.Get(i)
end if
next
showing 15 records has solved the problem of txtfield
I would like to help Erel...What if I do not type like a list?
B4X:
Dim listarticoli As ResultSet
listarticoli = Main.SQL1.ExecQuery(" Select * FROM Articoli Where " & filtro )
prova(listarticoli)
This is not good
B4X:
sub prova(RSean As List)
Dim M As Map
Dim i As Int
i = (pagCorrente * 15 ) -15
For i = i To i + 15
If i<= RSean.Size Then
M= RSean.Get(i)
end if
next
end sub
Sub prova(rs As ResultSet)
Dim index As Int = 0
Do While index < pagCorrente * 14 AND rs.NextRow = True
index = index + 1
Loop
Do While index < pagCorrente * 15 AND rs.NextRow = True
index = index + 1
'work with row
Loop
End Sub
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.