LIMPAR MS FLEXGRID

JPLSH 13/04/2011 10:03:40
#371174
Galera alguem pode me ajudar, to precisando de uma funcao para APAGAR todos os *** (asteriscos) das celulas do MS FLEXGRID, ou seja, a funcao verifica todo o Grid e a celula que tiver **** deixa em branco.
XXXANGELSXXX 13/04/2011 10:20:21
#371179
Sub ColorirGrid()
Dim iL As Integer, iC As Integer
With TDBGrid1
For iL = 1 To .Rows - 1
For iC = 0 To .Cols - 1
.Col = iC
.Row = iL
If .TextMatrix(.Row,1) = [Ô]***[Ô] Then
TextMatrix(.row,1)=[Ô][Ô]
End If
Next iC
Next iL
End With
End Sub
MARCELO.TREZE 13/04/2011 10:21:37
#371180 Resposta escolhida
assim colega

With MSFlexgrid1
For R = 1 To .Rows - 1
       For C = 0 To .Cols [txt-color=#007100][ô] Se vc possuir uma coluna fixa então For C = 1 To .Cols - 1[/txt-color]
             .TextMatrix(R, C) = Replace(.TextMatrix(R, C),[Ô]*[Ô],[Ô][Ô])
       Next C
Next R
End With
Tópico encerrado , respostas não são mais permitidas
Voltar