CONTAR FLEXGRID

IRENKO 20/11/2009 15:56:38
#328281
Como faço para contar a quantidade de celulas preenchidas de uma determinada coluna de um FlexGrid?
FBUR 20/11/2009 16:58:02
#328284 Resposta escolhida
tenta assim:

Private Sub Command1_Click()

    Dim contador As Integer
    contador = 0

    For cont = 1 To MSFlexGrid1.Rows - 1
    
        If MSFlexGrid1.TextMatrix(cont, coloque_a_coluna) <> [Ô][Ô] Then
        
            contador = contador + 1
        
        End If
    
    Next cont
    
    MsgBox [Ô]Existem [Ô] & contador & [Ô] linhas preenchidas nesta coluna.[Ô]

End Sub



[ ]'s
EDERMIR 20/11/2009 18:14:27
#328299
Citação:

FBUR escreveu:
tenta assim:


Private Sub Command1_Click()

    Dim contador As Integer
    contador = 0

    For cont = 1 To MSFlexGrid1.Rows - 1
    
        If MSFlexGrid1.TextMatrix(cont, coloque_a_coluna) <> [Ô][Ô] Then
        
            contador = contador + 1
        
        End If
    
    Next cont
    
    MsgBox [Ô]Existem [Ô] & contador & [Ô] linhas preenchidas nesta coluna.[Ô]

End Sub



[ ]'s


Desculpe FBUR mas vou recomendar uma modificação no seu código.
Lembrando que ESPAÇO e VAZIO são a mesma coisa (em teoria):
If trim(MSFlexGrid1.TextMatrix(cont, coloque_a_coluna)) <> [Ô][Ô] Then
Tópico encerrado , respostas não são mais permitidas
Voltar