Sub chargerLesValeursDansB4Xtable
Dim data As List
data.Initialize
Try
Dim rs As ResultSet = Starter.sql1.ExecQuery("SELECT id, date, fournisseur," & _
"ville, affectation,montant,numfacture,modepaiement,numcheque,comptepayeur," & _
"titulaire,sousaffectation,note,codebarres, An,Mois,Jour,amj" & _
" FROM tachats ORDER BY amj DESC")
Log("rs.RowCount = " & rs.RowCount)
Dim t As String
Do While rs.NextRow
Dim n As Int=0
Dim row(18) As Object
'-------------------
t =rs.GetString("amj")
row(n) = t
n=n+1
row(n) = rs.GetInt("id"):n=n+1
row(n) = rs.GetString("date"):n=n+1
row(n) = rs.GetString("fournisseur"):n=n+1
row(n) = rs.GetString("ville"):n=n+1
row(n) = rs.GetString("affectation"):n=n+1
row(n) = rs.Getdouble("montant"):n=n+1
row(n) = rs.GetString("numfacture"):n=n+1
row(n) = rs.GetString("modepaiement"):n=n+1
row(n) = rs.GetString("numcheque"):n=n+1
row(n) = rs.GetString("comptepayeur"):n=n+1
row(n) = rs.GetString("titulaire"):n=n+1
row(n) = rs.GetString("sousaffectation"):n=n+1
row(n) = rs.GetString("note"):n=n+1
row(n) = rs.GetString("codebarres"):n=n+1
t=rs.Getint("an")
row(n) = t
n=n+1
row(n) = rs.Getint("mois"):n=n+1
row(n) = rs.Getint("jour")':n=n+1
data.Add(row)
Loop
rs.Close
Wait For (B4XTable1.SetData(data)) Complete (Unused As Boolean)
B4XTable1.SetData(data)
Catch
Log("pas possib', erreur")
End Try