El día de hoy les pido su ayuda con algo que ya me tiene varios días y hasta ahora no estoy pudiendo solucionar. . .
Estoy usando una base de dato sqlite y necesito ordenar o mejor dicho reagrupar los datos de mi base para un mejor manejo les dejo el print de pantalla y el código que estoy probando para realizar esta tarea.
Si me podrían ayudar para saber en que me estoy equivocando o que estoy haciendo mal
desde ya muchas gracias!!
----------------------------------------------------------------------------------------------------------------------------------------------------------------------
Public Sub TableView1_ColumnClick(Column As Integer)
If iLast = Column Then
hSort.Reverse()
Else
hSort.SortField(Column)
Endif
ArrayToGrid()
iLast = Column
End
Public Sub ArrayToGrid(Conexion As Connection, Tabla As TableView, id As String)
Dim i As Integer
Dim vMatrix As Variant[]
Dim Resultado As Result
'Tabla.Clear
'hSort1 = Conexion.Exec("Select * FROM Control_Sol")
Resultado = Conexion.edit("Control_Sol", "id=&1", id)
Tabla.Rows.Count = Resultado.Count
For i = 0 To Resultado.Count - 1 Step 1
vMatrix = Conexion[i]
vMatrix = Conexion[i]
Tabla[i, 0].Text = Str$(vMatrix[0])
Tabla[i, 1].Text = Str$(vMatrix[1])
Tabla[i, 2].Text = Str$(vMatrix[2])
Tabla[i, 3].Text = Str$(vMatrix[3])
Tabla[i, 4].Text = Str$(vMatrix[4])
Tabla[i, 5].Text = Str$(vMatrix[5])
Tabla[i, 6].Text = Str$(vMatrix[6])
Tabla[i, 7].Text = Str$(vMatrix[7])
Tabla[i, 8].Text = Str$(vMatrix[8])
Tabla[i, 9].Text = Str$(vMatrix[9])
Tabla[i, 10].Text = Str$(vMatrix[10])
Tabla[i, 11].Text = Str$(vMatrix[11])
Tabla[i, 12].Text = Str$(vMatrix[12])
Tabla[i, 13].Text = Str$(vMatrix[13])
Tabla[i, 14].Text = Str$(vMatrix[14])
Tabla[i, 15].Text = Str$(vMatrix[15])
Next
End
If iLast = Column Then
hSort.Reverse()
Else
hSort.SortField(Column)
Endif
ArrayToGrid()
iLast = Column
End
Public Sub ArrayToGrid(Conexion As Connection, Tabla As TableView, id As String)
Dim i As Integer
Dim vMatrix As Variant[]
Dim Resultado As Result
'Tabla.Clear
'hSort1 = Conexion.Exec("Select * FROM Control_Sol")
Resultado = Conexion.edit("Control_Sol", "id=&1", id)
Tabla.Rows.Count = Resultado.Count
For i = 0 To Resultado.Count - 1 Step 1
vMatrix = Conexion[i]
vMatrix = Conexion[i]
Tabla[i, 0].Text = Str$(vMatrix[0])
Tabla[i, 1].Text = Str$(vMatrix[1])
Tabla[i, 2].Text = Str$(vMatrix[2])
Tabla[i, 3].Text = Str$(vMatrix[3])
Tabla[i, 4].Text = Str$(vMatrix[4])
Tabla[i, 5].Text = Str$(vMatrix[5])
Tabla[i, 6].Text = Str$(vMatrix[6])
Tabla[i, 7].Text = Str$(vMatrix[7])
Tabla[i, 8].Text = Str$(vMatrix[8])
Tabla[i, 9].Text = Str$(vMatrix[9])
Tabla[i, 10].Text = Str$(vMatrix[10])
Tabla[i, 11].Text = Str$(vMatrix[11])
Tabla[i, 12].Text = Str$(vMatrix[12])
Tabla[i, 13].Text = Str$(vMatrix[13])
Tabla[i, 14].Text = Str$(vMatrix[14])
Tabla[i, 15].Text = Str$(vMatrix[15])
Next
End