VERIFICAR SE FLEXGRID ESTÁ VAZIO

 Tópico anterior Próximo tópico Novo tópico

VERIFICAR SE FLEXGRID ESTÁ VAZIO

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#481631 - 14/05/2018 12:26:40

WMR2018
BALSAS
Cadast. em:Outubro/2017


pessoal, meu flexgrid possui um cabeçalho....

As vezes clico no botao pra remover itens do grid, e dar erro... pois não há itens para ele excluir... entao fiz assim para para verificar

   On Error GoTo erro
  
   If Grid.TextMatrix(Grid.Row, 1) = "" Then GoSub erro
   If ShowMsg("Deseja remover o produto: " & Grid.TextMatrix(Grid.Row, 3) & " ?", vbYesNo + vbQuestion + vbDefaultButton2) = vbNo Then Exit Sub
  
   dbData.Execute "DELETE FROM pedidos_itens WHERE (codigo = " & Grid.TextMatrix(Grid.Row, 1) & ") AND (cod_produto = " & Grid.TextMatrix(Grid.Row, 2) & ");"
  
erro:
   ShowMsg "Não existe nenhum produto para ser excluido!", vbExclamation
   Exit Sub


porem o   If Grid.TextMatrix(Grid.Row, 1) = "" Then GoSub erro não verifica.... já pula pro delete
onde estou errando?




Resposta escolhida #481633 - 14/05/2018 13:18:18

LUIS2014
CURITIBA
Cadast. em:Agosto/2014


if grid.rows > 1 then





 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por WMR2018 em 16/05/2018 13:57:53