LOOP NAO TA DANDO CERTO.

RICOCARDOZO 05/04/2007 10:50:36
#210467
Tenho um form com um flexgrid. onde implementei cheqbox certo, ao pressionar space ele seleciona o chequebox da linha atal e quando pressiono enter ele abri um segundo form mostrando em um outro flexgrid os registros com cheqbox marcado.

Bom no papel é para funcionar assim mas naum tá dando certo.
o código que estou usando é o seguinte:

Private Sub conta_linhas()
   Dim Linhas_selecionadas As Integer
   Linhas_selecionadas = 1
   For i = 1 To ResumoLivroCaixa.Grade.Rows - 1
      If ResumoLivroCaixa.Grade.TextMatrix(i, 10) = strChecked Then
         ResumoLivroCaixa.Grade.Row = Linhas_selecionadas
         Dialogo1.Grade.TextMatrix(Dialogo1.Grade.Row, 0) = ResumoLivroCaixa.Grade.TextMatrix(Grade.Row, 1)
      End If
   Dialogo1.Grade.Row = Linhas_selecionadas
   Next
End Sub



E não sei se pode ser feito de outra maneira com variaveis array ou matriz sei lá pra ficar mais rápido.
RICOCARDOZO 05/04/2007 11:19:03
#210474
Opa corrigindo alguns detalhes...

Dim Linhas_selecionadas As Integer
Linhas_selecionadas = 0
For i = 1 To ResumoLivroCaixa.Grade.Rows - 1
If ResumoLivroCaixa.Grade.TextMatrix(i, 10) = strChecked Then
Dialogo1.Grade.TextMatrix(Dialogo1.Grade.Row, 0) =
ResumoLivroCaixa.Grade.TextMatrix(ResumoLivroCaixa.Grade.Row, 1)
End If
Linhas_selecionadas = Linhas_selecionadas + 1
Next
RICOCARDOZO 05/04/2007 16:04:49
#210537
To quase conseguindo fazer funcionar o unico problema é que quando a primeira linha da grade esta marcada ele da um erro:

Invalid row value

oq pode ser??
RICOCARDOZO 05/04/2007 16:06:38
#210538
Ops esqueci de postar o código atualizado:

ai vai

Dim Linhas_selecionadas As Integer
Linhas_selecionadas = 0
For i = 1 To ResumoLivroCaixa.Grade.Rows - 1
If ResumoLivroCaixa.Grade.TextMatrix(i, 10) = strChecked Then
Linhas_selecionadas = Linhas_selecionadas + 1
Dialogo1.Grade.Rows = i
Dialogo1.Grade.Row = Linhas_selecionadas
Dialogo1.Grade.TextMatrix(Dialogo1.Grade.Row, 0) = ResumoLivroCaixa.Grade.TextMatrix(i, 1)
End If
Next
USUARIO.EXCLUIDOS 10/04/2007 16:19:19
#211067
Voce poderia enviar para meu e-mail o codigo de como coloca um checked dentro de uma grade.

Aguardo resposta

E-Mail: Marcelo.Bressan@zanc.com.br
Tópico encerrado , respostas não são mais permitidas
Voltar