VERIFICAR O FLEXGRID ANTES DE GRAVAR

MOREIRA 27/02/2010 18:51:27
#335563
Adiciono Dados no grid e depois os gravo, gostaria de verificar se ha dados adicionados...


estou fazendo assim, e não esta funcionando..

If G.TextMatrix(G.Rows - 1, 2) = 0 Then
MsgBox ([Ô]Não Dados na Grid[Ô]), vbQuestion + vbYesNo, [Ô]Aviso[Ô]
Exit Sub
End If

O ha de errado....
SINKERTEC 27/02/2010 19:55:37
#335567


Ae meu caro...mude pra isso

IF G.TextMatrix(G.Rows - 1, 2) = [Ô][Ô] Then
MsgBox ([Ô]Não Dados na Grid[Ô]), vbQuestion, [Ô]Aviso[Ô]
Exit Sub
End If

boa sorte

agora pq o menos 1,,,,?
MOREIRA 27/02/2010 20:03:55
#335568
caro, colega, SINKERTEC...

após adicionar dados no grid, a mensagem de aviso continua, ja q há dados adicionado na grid.. --- >> MsgBox ([Ô]Não Dados na Grid[Ô]), vbQuestion, [Ô]Aviso[Ô]


If G.TextMatrix(G.Rows - 1, 2) = [Ô][Ô] Then
MsgBox ([Ô]Não Dados na Grid[Ô]), vbQuestion, [Ô]Aviso[Ô]
Exit Sub
End If
SINKERTEC 27/02/2010 20:05:27
#335569


Peraí

Explica melhor

Vc quer saber se tem algo no grid antes de inserir é isso?
MOREIRA 27/02/2010 20:09:20
#335571
então, isso mesmo... se nao ha dados no grid. avisar. caso contrario, gravar dados inseridos....
SINKERTEC 27/02/2010 20:18:12
#335573


Bom ...pode fazer assim

Seu grid começa com qtas linhas?

Supondo que sejam 2 ( a primeira com cabeçalho, (fixa) e uma linha em branco)

f G.TextMatrix(1, 0) = [Ô][Ô] Then
MsgBox ([Ô]Não Dados na Grid[Ô]), vbQuestion, [Ô]Aviso[Ô]
Exit Sub
End If
MOREIRA 27/02/2010 20:35:46
#335574
SINKERTEC, ainda nao deu certo... por favor, veja a tela em anexo...
SINKERTEC 27/02/2010 20:42:21
#335575


Perai

Isso é MsFlexGrid ou DBGrid?
MOREIRA 27/02/2010 20:43:05
#335576
é MsFlexGrid

e começa com uma linha..
SINKERTEC 27/02/2010 21:20:38
#335577


Qdo vc clica em novo

se tiver alguma coisa no grid....blz...se n tiver nada mostra msg e bloqueia?

ou só mostra msg?
MARCELO.TREZE 27/02/2010 21:30:32
#335580
tenta o seguinte

If G.TextMatrix(G.Rows - 1, 1) = [Ô][Ô] Then
    MsgBox ([Ô]Não Dados na Grid[Ô]), vbQuestion, [Ô]Aviso[Ô]
    Exit Sub
End If


lembre-se o grid começa da coluna 0 (zero) então a segunda coluna é a 1 (hum)
Página 1 de 2 [13 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar