AJUDA FLEXGRID

ONBASS 05/12/2006 08:39:02
#187997
caros colegas, outra dúvida..
achei esse exemplo no vbm, mas não consigo funcionar


 MSFlex.TextMatrix(0, 0) = "Codigo. "
 MSFlex.TextMatrix(0, 1) = "Cargo"                          '
 MSFlex.TextMatrix(0, 2) = "Valor"
 

''''''''''''''''''''''''''''''' PREENCHE O GRIDE COM OS ARQUIVOS 
I = 1
Do While Not RsPesquiza.EOF
    MSFlex.Rows = RsPesquiza.RecordCount + 1
    MSFlex.TextMatrix(I, 0) = RsPesquiza!Código 'aqui dá erro de índice 
    MSFlex.TextMatrix(I, 1) = RsPesquiza!Cargo
    MSFlex.TextMatrix(I, 2) = Format(RsPesquiza!VALOR, "R$#,##0.00")
    I = I + 1
    RsPesquiza.MoveNext
Loop
RsPesquiza.Close

USUARIO.EXCLUIDOS 05/12/2006 14:06:53
#188080 Resposta escolhida
Tente Desse jeito:

 MSFlex.TextMatrix(0, 0) = "Codigo. "
 MSFlex.TextMatrix(0, 1) = "Cargo"                          '
 MSFlex.TextMatrix(0, 2) = "Valor"
 

''''''''''''''''''''''''''''''' PREENCHE O GRIDE COM OS ARQUIVOS 
I = 1
MSFlex.Rows = RsPesquiza.RecordCount + 1 'alterei a posição dessa linha
Do While Not RsPesquiza.EOF    
    MSFlex.TextMatrix(I, 0) = RsPesquiza!Código  
    MSFlex.TextMatrix(I, 1) = RsPesquiza!Cargo
    MSFlex.TextMatrix(I, 2) = Format(RsPesquiza!VALOR, "R$#,##0.00")
    I = I + 1
    RsPesquiza.MoveNext
Loop
RsPesquiza.Close


ou desse

 MSFlex.TextMatrix(0, 0) = "Codigo. "
 MSFlex.TextMatrix(0, 1) = "Cargo"                          '
 MSFlex.TextMatrix(0, 2) = "Valor"
 

''''''''''''''''''''''''''''''' PREENCHE O GRIDE COM OS ARQUIVOS 
I = 1
Do While Not RsPesquiza.EOF    
    MSFlex.Rows = MSFlex.Rows + 1
    MSFlex.TextMatrix(I, 0) = RsPesquiza!Código  
    MSFlex.TextMatrix(I, 1) = RsPesquiza!Cargo
    MSFlex.TextMatrix(I, 2) = Format(RsPesquiza!VALOR, "R$#,##0.00")
    I = I + 1
    RsPesquiza.MoveNext
Loop
RsPesquiza.Close
CLEVERTON 05/12/2006 14:16:04
#188084
Mas o que esses códigos tem haver com TreeView [S59]
ONBASS 05/12/2006 16:29:54
#188138
ahauahuah.. puxa q micoo!! dsc colegas, era flexgrid o termo, foi malz
grato
USUARIO.EXCLUIDOS 05/12/2006 19:20:53
#188186
Testou? Funcionou? Espero que tenha dado certo! Eu também percebi a gafe... Acontece...
ONBASS 06/12/2006 09:38:01
#188265
funcionou sim flávio, mas além dessa alteração tive q mudar tbm o cursor do rs.. vlw

aproveitando o tópico, tem como eu pegar o valor da 3a coluna do grid?
eu fiz assim mas não deu, no evento click:

text1.text=grid.textmatrix(grid.row,grid.col)


abs
USUARIO.EXCLUIDOS 06/12/2006 10:06:25
#188275
Tem sim, basta apontar qual a linha e qual a coluna que vc quer( lembre-se que começa em zero, ou seja, primeira coluna -> índice 0)

Text1.Text =  Grid.TextMatrix(1, 2) 'linha 2, coluna 3
ONBASS 06/12/2006 11:54:19
#188305
certo , mas a intenção é pegar a linha e coluna ATUAL.. grato
ONBASS 06/12/2006 12:48:09
#188317
além disso, o alinhamento à  direita não funfa direito, o caption da coluna vai mas o conteudo não! é uma coluna tipo char(20).. abs
Tópico encerrado , respostas não são mais permitidas
Voltar