Bug? Possible bug in TableView

Ioan RADU

New Member
Licensed User
Longtime User
Hello,
I try adding in a Tableview ,rows of the slider sql use the folowing code
Try
bt2_Action
Dim rdays(8) As String
Dim rs As ResultSet
rs = sql1.ExecQuery("SELECT COD_PRODUS,NUME_PRODUS,PRET_PRODUS,UM,COD_GEST,ID_CATEGORIE,GRAMAJ,PROC_TVA FROM PRODUSE;")
Do While rs.NextRow
' Log(rs.GetString2(0)&"-"& rs.GetString2(1)&"-"& rs.GetString2(2)&"-"& rs.GetString2(3)&"-"& rs.GetString2(4)&"-"& rs.GetString2(5)&"-"& rs.GetString2(6) &"-"& rs.GetString2(7))

rdays(0) = rs.GetString("COD_PRODUS")
rdays(1) = rs.GetString("NUME_PRODUS")
rdays(2) = rs.GetString("PRET_PRODUS")
rdays(3) = rs.GetString("UM")
rdays(4) = rs.GetString("COD_GEST")
rdays(5) = rs.GetString("ID_CATEGORIE")
rdays(6) =rs.GetString("GRAMAJ")
rdays(7) =rs.GetString("PROC_TVA" )
Log(rdays(0)&"-"& rdays(1)&"-"& rdays(2)&"-"& rdays(3)&"-"& rdays(4)&"-"& rdays(5)&"-"& rdays(6) &"-"& rdays(7))
Tbl1.Items.add(rdays)
Loop
rs.Close
Catch
Log(LastException)
End Try

The log is ok!
rdays(0.0)&"-"& rdays(1.0).........&"-"& rdays(7.0)
rdays(0.1)&"-"& rdays(1.1).........&"-"& rdays(7.1)
rdays(0.2)&"-"& rdays(1.2).........&"-"& rdays(7.2)
rdays(0.3)&"-"& rdays(1.3).........&"-"& rdays(7.3)
but tableview looks like this
rdays(0.3)&"-"& rdays(1.3).........&"-"& rdays(7.3)
rdays(0.3)&"-"& rdays(1.3).........&"-"& rdays(7.3)
rdays(0.3)&"-"& rdays(1.3).........&"-"& rdays(7.3)
rdays(0.3)&"-"& rdays(1.3).........&"-"& rdays(7.3)


what is wrong?
 
Top