Como ordenar os itens em uma Grid

[Paulo_CPV]

Boa tarde!

Estou com a seguinte dúvida: tenho um .Dbf com aproximadamente 1.000 registros e não estou conseguindo ordenar os registros por nome, tenho 9 campos e gostaria que a Grid em questão ficasse ordenada por nome ou por outro campo que eu quiser.

Como posso fazer isto?

[]'s
Paulo - Jacareí/SP

[Pablo César]

Oi Paulo,

Indexa de acordo a cada coluna que você deseja ordenar e utilize o SET ORDER como no Clipper.

[Paulo_CPV]

Bom dia, Pablo!

Fiz o que você me disse, deu certo. Mas agora quando eu dou um duplo click ou enter na linha do grid ele não mostra o conteúdo da linha mas sim os dados da primeira linha. A função é a seguinte:

Código: Selecionar todos

FUNCTION SelNome()

   LOCAL nPos := Consulta.grid_1.Value
   
   aRet := Consulta.Grid_1.Item(nPos)

   SISCPVIMP->(DBSetOrder(3)) // Está ordenado por Nome
   SISCPVIMP->(DBGotop())
   SISCPVIMP->(DBSeek(aRet[2]))

   IF FOUND()

      MSG_INFO("Matricula: "+SISCPVIMP->mat_imp+QUEBRA+;
            "Nome: "+SISCPVIMP->nome_imp+QUEBRA+;
            "NIT: "+oSistema:MascaraNit(SISCPVIMP->nit_imp)+QUEBRA+;
            "DIB: "+DTOC(SISCPVIMP->dib_imp)+QUEBRA)
   
   ENDIF

RETURN NIL

[Pablo César]

Veja este exemplo em anexo. Talvez precise você dar um refresh no grid.