B4J Question Progress Indicator on Insert TableView

[romario87027]

There is a progess indicator during the filling of a TableView?
Insert many records in a TableView, and hangs around until it has loaded.
I can do?

 

[Erel]

No. There isn't much that can be done about this as it is also not possible to fill the table with a background thread.

How large is the table? Maybe you should use a local database and show less records?

 

[romario87027]

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...

 

[Erel]

I do not know if you could view the records as divided in 10 -10-10

You can always sort the data and then only add the "current page" rows.

About the TextField issue, can you upload a small project that demonstrates it?

 

[romario87027]

I have broken records every 15:

  listarticoli =  parser.NextArray 'returns a list
       
        pagMax = listarticoli.Size / 15
        pagCorrente = 1
        lblPage.Text = pagCorrente & "/" & pagMax

forward 15

Sub btAvanti_Action ()
If  pagCorrente < pagMax Then
  pagCorrente = pagCorrente + 1
 
  lblPage.Text = pagCorrente & "/" & pagMax
  AggiornaArticoli(listarticoli)

End If

back 15

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

 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


Thanks Erel

 

[romario87027]

I would like to help Erel...What if I do not type like a list?

Dim listarticoli As ResultSet
listarticoli = Main.SQL1.ExecQuery(" Select *  FROM Articoli  Where " & filtro )
prova(listarticoli)

This is not good

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

Can you suggest how can I do?

 

[Erel]

I think that you want to do something like:

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

 

[romario87027]

thank you very much!!