Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer) Dim rs As ADODB.Recordset Set rs = Adodc1.Recordset
If rs.Sort <> DataGrid1.Columns(ColIndex).DataField & " ASC" Then rs.Sort = DataGrid1.Columns(ColIndex).DataField & " ASC" Else rs.Sort = DataGrid1.Columns(ColIndex).DataField & " DESC" End If End Sub