Dim SM0, SM1, SM2, SM3, SM4, SM5, SM6, SM7, SM8, SM9 ....(i need +- according to database).... As SimpleMatrix (i in this case lose the names)
Dim MTX() As SimpleMatrix
MTX = Array As SimpleMatrix(SM0, SM1, SM2, SM3, SM4, SM5, SM6, SM7, SM8, SM9)
Cursor1=SQL1.ExecQuery("SELECT No,count(*) As Cantidad FROM persons group by No")
For i=0 To Cursor1.RowCount-1
Cursor1.Position=i
Log(Cursor1.GetString("No")&" - "&Cursor1.GetString("Cantidad"))
MTX(i).Initialize(Cursor1.GetString("Cantidad"),Cursor1.GetString("Cantidad"))
MTX(i).SetDouble(1)
Next