Como colocar um grid em ordem alfabética

[wmds 0]

Olá !!! Eu carrego um MSFlexGrid com o CNPJ e o Nome, e gostaria de colocar em ordem alfabética de Nome. Como eu faço??? REC2.MoveFirst Do While Not REC2.EOF GridPJ.Rows = X + 1 GridPJ.Row = X GridPJ.Col = 0 GridPJ.ColAlignment(0) = 1 GridPJ.Text = REC2.Fields("CNPJ") GridPJ.Col = 1 GridPJ.Text = REC2.Fields("Nome") X = X + 1 REC2.MoveNext LoopObrigado !!!

[cassitos 2]

cara tem duas maneiras:

 

1 - Voce ordena no proprio select que está sendo utilizando, "SELECT NOME, CNPJ FROM CLIENTE ORDER BY NOME ASC";

 

2 - Utilizar o método Sort do FlexGrid, ex:

 

    With GrdTeste

        .Rows = 10

        .TextMatrix(1, 1) = "AAAA"

        .TextMatrix(2, 1) = "CCCC"

        .TextMatrix(3, 1) = "EEEE"

        .TextMatrix(4, 1) = "BBBB"

        .TextMatrix(5, 1) = "JJJJ"

        .TextMatrix(6, 1) = "IIII"

        .TextMatrix(7, 1) = "LLLL"

        .TextMatrix(8, 1) = "KKKK"

        .TextMatrix(9, 1) = "HHHH"

    End With

               

    GrdTeste.Col = 1

    GrdTeste.Sort = 7

Aki você define primeiro qual coluna ordenar, e depois passar o modo de ordenação, para referência veja o "Object Inspector" do VB tem todas as propriedades lá.

 

ok?