Como classifico um campo no dbgrid

bom, um dbgrid ou datagrid é ligado a um recordset... vc pode ordenar a consulta/tabela do recordset e assim vc ordena o dbgrid/datagrid ligado a ele. Veja no ADO:

 

rs.CursorLocation = adUseClient

rs.Open "Select * From Tabela"

 

 

No DAO:

 

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim rsfilter As DAO.Recordset

 

Set db = Workspaces(0).OpenDatabase("f:db97.mdb")
Set rs = db.OpenRecordset("TBA", dbOpenDynaset)

 

rs.Sort = "nome ASC"
rs.MoveF irst

Set rsfilter = rs.OpenRecordset

Do While Not rsfilter.EOF
    Debug.Print rsfilter(2)
    rsfilter.MoveNext
Loop

 

ok??

 

qq dúvida é só postar

 

at+

em ado

Se quiser ordenar as colunas:

Private Sub DBGrid4_HeadClick(ByVal ColIndex As Integer)
... order by " & DBGrid1.Columns(DBGrid1.SelEndCol).DataField