Ordenar Datagrid clickeando en la cabecera VB6

[Iodem Asakura]

Alguien me podria decir como hacer que el datagrid me realice un ordenamiento de los datos segun yo clickee en las cabeceras de este. Justo como se realiza en la vista en detalles en el explorador de windows,... cuando clickeas la cabecera de nombre, se ordenan los archivos por nombre de manera descendente y si clikeas otra vez se ordena de manera ascendente, igual que con las demas columnas.

Me gustaria hacer los mismo en Visual Basic 6.
Gracias

[Iodem Asakura]

Si nadie sabe, por lo menos digan: "No se".

Gracias

[Bebecita]

Hola, yo encontre una forma de ordenar el grid, lo hice utilizando un control DataGrid enlazado a un control Adodc

Private Sub GridResumen_HeadClick(ByVal ColIndex As Integer)
Dim CampoOrden As String
CampoOrden = " ORDER BY " & GridResumen.Columns(ColIndex).DataField
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = "Select * from rsTabla " & CampoOrden
Adodc2.Refresh
End Sub

Saludos

Carmen Arvelo

[jrp01]

O tambien por ADO solo vuelves a llenar el recordset y lo asignas al datagrid, el que si se como es con un listview y no hay necesidad de volver a cargarlo

[coxa]

Hola chicos, sabes si esto es posible realizarlo también con el MSFlexGrid???

[Iodem Asakura]

Gracias Bebecita, no me habia dado cuenta de ese evento . Ahora si lo puedo hacer.

Muchas gracias

[vbx3m]

Esta forma es mas sencilla:

Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
With Adodc1.Recordset
If (.Sort = .Fields(ColIndex).[Name] & " Asc") Then
.Sort = .Fields(ColIndex).[Name] & " Desc"
Else
.Sort = .Fields(ColIndex).[Name] & " Asc"
End If
End With
End Sub

Pruebalo...

[Iodem Asakura]

Si de esa forma funciona, seguro que es mas sencillo.

Lo voy a probar , gracias.

[elfkampher]

Iniciado por vbx3m

Esta forma es mas sencilla:

Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
With Adodc1.Recordset
If (.Sort = .Fields(ColIndex).[Name] & " Asc") Then
.Sort = .Fields(ColIndex).[Name] & " Desc"
Else
.Sort = .Fields(ColIndex).[Name] & " Asc"
End If
End With
End Sub

Pruebalo...

intente usar esto para mi datagrid pero me sale un error
error 3265 en tiempo de ejecucion:
No se ecnontro el elemento de la coleccion que corresponde al nombre
o el ordinal solicitado
tengo que declarar alguna variable antes? te agradeceria mucho tu ayuda