COLUNA FIXA EM UM MSFLEXGRID

FERRUBIM 29/01/2016 15:22:56
#456671
Alguem poderia me dizer como fazer em um msflexgrid, vb6, onde tenho 6 colunas:

Nome, Contrato, CPF, Parcela, Valor, e Sequencia

ao clica no MSFLEXGRID1_MouseUp faço o short :

If MSFLEXGRID1.MouseRow <> 0 Then Exit Sub
SortByColumn MSFLEXGRID1.MouseCol


Acontece que queria que o sort fosse da coluna 1 a 5 ou seja a coluna 6 não queria que participasse do sort,que ficasse sempre sequencial ..

alguem sabe se é possivel fazer isso e como fazer ???

obrigado
ANDPAG 01/02/2016 11:30:03
#456830
If MsFlexGrid1.col >=1 and MsFlexGrid1.col <=5 then ....

ou então

if MsFlexGrid1.col <> 6 then ...
FERRUBIM 10/02/2016 11:52:45
#457424
coloquei esse teste mas mesmo assim a coluna 6 acaba indo no sort...

Private Sub GRDTABLE_MouseUp(Button As Integer, Shift As Integer, x As Single, Y As Single)
If GRDTABLE.MouseRow <> 0 Then Exit Sub
If GRDTABLE.col <> 6 Then
SortByColumn GRDTABLE.MouseCol
End If
End Sub
ALVAROVB2009 11/02/2016 10:26:27
#457479 Resposta escolhida
Ferrubim , posso estar muito enganado, más acredito que o que vc queira não da para fazer , pois o sort pega todas as colunas do grid para fazer um novo alinhamento
O que poderia fazer é quando clicar na coluna para o novo alinhamento, fazer com que a sequência na coluna 6 seja feita novamente
for i = 1 to grid.rows-1
grid.textmatrix(i,6)=i
next
FERRUBIM 11/02/2016 10:32:35
#457480
fantastico,era isso mesmo ..obrigado
Tópico encerrado , respostas não são mais permitidas
Voltar