MSFLEXGRID REMOVER ITEM


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: MSFLEXGRID REMOVER ITEM

Smart2009
não registrado

Postada em 07/08/2009 17:04 hs

he he, Corrigindo a mensagem

Can not remove Max non-fixed row

APW
não registrado

ENUNCIADA !

Postada em 08/08/2009 01:45 hs

tenta assim:
dentro do evento keydown do seu msflexgrid....

dim viA as Integer

With MSFlexGrid1
    If KeyCode = vbKeyDelete Then
        if .Rows = 2 then
            for via = 0 to .Cols -1
                  .TextMatrix(1,viA) = vbnullstring
            next via
        else
            .RemoveItem .Row
        end if
     end if
end With

APW

S.J.RIO PRETO
SP - BRASIL

ENUNCIADA !

Postada em 08/08/2009 01:46 hs

Smart2009
não registrado

ENUNCIADA !

Postada em 11/08/2009 15:32 hs

Caro APW e amigos do Forum

Fiz esta rotina que vc me enviou mas não funcionou.

continua o mesmo erro, aparecendo a mesma mensagem descrita " Run-Time Error '30015'

Tentei esta rotina:

If MSFlexGrid1.Rows > 2 Then

MSFlexGrid1.RemoveItem (MSFlexGrid.Row)

Else

MSFlexGrid1.RemoveItem (1)

End If

Esta rotina funciona até certo ponto, por exemplo,

tenho 5 registros no MSFlexGrid1

Vou Deletando um por um , beleza, funciona

mas quando fica apenas um registro aparece a mensagem de erro descrito acima

e o VB acusa o erro na linha que está descrito em vermelho conforme especifiquei.

Por favor me ajudem,

agradeço desde já.

APW

S.J.RIO PRETO
SP - BRASIL

ENUNCIADA !

Postada em 12/08/2009 02:10 hs

Smart mandei um exemplo bem pratico no seu email qq, coisa posta ai,,, valeu...

abs.//

Smart2009
não registrado

ENUNCIADA !

Postada em 15/08/2009 12:31 hs

APW, muito obrigado a vc, o exemplo que vc me enviou funcionou perfeitamente

agora sim o MSFlexGrid é excluído até o último registro.

Saudações a vc e a todos do forum

Página(s): 2/3 « ANTERIOR PRÓXIMA »

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR