VERIFICANDO CHECK DO VSFLEXGRID

XWILLIANSS 16/09/2009 15:35:45
#323056
Olá eu gostaria de saber como faço para que meu sistema verifique se pelo menos uma linha do VsFlexGrid foi checkada (com um checkbox)?

estou fazendo assim:

With Grid1
        If .Text <> [Ô][Ô] Then
            mLinhas = .Rows
            i = 1
            While i < mLinhas
                If i = mLinhas Then
                    Exit Sub
                End If
                If .Cell(flexcpChecked, i, 0) = flexUnchecked Then
                    MsgBox [Ô]Selecione uma proposta![Ô], vbExclamation
                End If
                i = i + 1
            Wend
        End If
    End With

... mas não está funcionando, poiis ao invés de verificar se há pelo menos uma linha checkada, ele simplismente verfica se todas as linhas foram checkadas... e não quero isso...

por exemplo:

LINHA 1 = checkada
LINHA 2 = não checkada

sistema informa uma mensagem: [Ô]... sucesso![Ô]
ou

LINHA 1 = não checkada
LINHA 2 = não checkada

sistema informa uma mensagem: [Ô]... selecione uma linha[Ô]

Alguém poderia me ajudar?
ASHKATCHUP 16/09/2009 15:40:04
#323057 Resposta escolhida
é fácil, só altera o código assim:


If .Cell(flexcpChecked, i, 0,i,0) = flexUnchecked Then
XWILLIANSS 16/09/2009 23:19:56
#323079
Citação:

ASHKATCHUP escreveu:
é fácil, só altera o código assim:


If .Cell(flexcpChecked, i, 0,i,0) = flexUnchecked Then


Valeu man!!! Eu resolvi de outra maneira...
Coloquei uma variável BOOLEAN para verificar se o total da coluna VALOR COMISSÃO é diferente de ZERO... se for nenhuma linha foi selecionada....
Tópico encerrado , respostas não são mais permitidas
Voltar