MSFLEXGRID

SOBERASSL 02/11/2010 16:39:42
#356460
Galera preciso colocar um campo da MSFlexGrid em ordem crescente

no caso do 1 ao 12

estou usando estes codigos...
>>>>>>
Call abrir_banco2

If tab_fat2.State = adStateOpen Then tab_fat2.Close
tab_fat2.Open [Ô]Faturamento[Ô], conectar2, adOpenKeyset, adLockOptimistic



If tab_fat2.BOF = False Or tab_fat2.EOF = False Then
Do Until tab_fat2.EOF
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 0) = tab_fat2!Mes
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 1) = tab_fat2!ano
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 2) = tab_fat2!anos

tab_fat2.MoveNext
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
MSFlexGrid1.Row = MSFlexGrid1.Row + 1


Loop

MSFlexGrid1.Rows = MSFlexGrid1.Rows - 1
End If

<<<<

ja usei o >>>
If tab_fat2.State = adStateOpen Then tab_fat2.Close
tab_fat2.Open [Ô] select * from Faturamento order by Mes[Ô]<<<

Mas nao esta dando certo...

como posso resolver issu?
TECLA 02/11/2010 17:28:06
#356462
Qual é a estrutura da tabela (campos e tipos de dados)?
JANDER 02/11/2010 17:29:45
#356463 Resposta escolhida
For X = 1 To MSFlexGrid1.Rows - 1
MSFlexGrid1.Row = X
MSFlexGrid1.col = 1 [ô]coluna
MSFlexGrid1.Sort = 1
Next X

[ô] MSFlexGrid1.Sort = 1 Crescente
[ô] MSFlexGrid1.Sort = 2 Decrescente


esse código ai.
Tópico encerrado , respostas não são mais permitidas
Voltar