O QUE HA DE ERRADO NESTE CODIGO??

LCSD 08/03/2004 11:10:02
#14365
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???
USUARIO.EXCLUIDOS 08/03/2004 11:18:51
#14372
Resposta escolhida
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
USUARIO.EXCLUIDOS 08/03/2004 12:14:32
#14398
fiz um ex, acho que é +- o q vc precisa

se nao for me avisa que voltamos a luta

abraço
Tópico encerrado , respostas não são mais permitidas