O QUE HA DE ERRADO NESTE CODIGO??

 Tópico anterior Próximo tópico Novo tópico

O QUE HA DE ERRADO NESTE CODIGO??

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#14365 - 08/03/2004 11:10:02

LCSD
SAO PAULO
Cadast. em:Janeiro/2001


Bom, tenho o seguinte código:
Cont = 0
   For I = 1 To frmResultFiltro.mshFiltro.Rows - 1
      For Cont = 1 To .Rows - 1
          If frmResultFiltro.mshFiltro.TextMatrix(I, 1) = .TextMatrix(Cont, 1) Then
              If Trim(.TextMatrix(Cont, 1))  "" Then
                  For a = 1 To 10
                      .Col = a
                      .CellForeColor = vbBlue
                  Next
               End If
           End If
      Next Cont
  Next I

O que está acontecendo:
Bom, eu tenho 2 telas SEMELHANTES, com o MSHFLEXGRID, e em uma delas, eu tenho o resultado de um filtro, e na outra tela, eu tenho tudo o que está no bco de dados sem filtro algum. O que eu gostaria de fazer é que a TELA que está aparecendo o meu bco de dados SEM O FILTRO, me mostrasse na cor AZUL, os registros que estão na minha tela que está ativado o meu FILTRO??? Deu para entender o que eu gostaria de fazer???
O problema é que este código só marca a PRIMEIRA LINHA em AZUL, mesmo que o registro que está na primeira linha não esteja no meu filtro, ele marca, e o restante ele não marca. Será que alguem poderá me ajudar???

  
Quando precisar, pode contar comigo....
E quando precisar, não esqueça de agradecer, pois a educação é a ALMA DO NEGÓCIO...


Obrigado.

Luiz Cesar

Resposta escolhida #14372 - 08/03/2004 11:18:51

USUARIO.EXCLUIDOS

Cadast. em:


deu sim!!

dexo ver vc fez um for no grid sem filtro comparando a chave primaria em um for no grid com filtro se achar ele muda a cor senao passa para o proximo

Foi issso q vc fez, desculpa nao tentar entender o cod mas to mei apertado, mas se precisareu façomuma forcinha por vc manim

Abraço



#14398 - 08/03/2004 12:14:32

USUARIO.EXCLUIDOS

Cadast. em:


fiz um ex, acho que é +- o q vc precisa

se nao for me avisa que voltamos a luta

abraço



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por WEBMASTER em 18/08/2009 10:03:45