USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Desfazer uma ação com array
dummies
CERQUILHO
SP - BRASIL
Postada em 10/09/2004 20:00 hs         
Boa noite,
Estou na seguinte situação, tenho um Form "Orçamento", no qual vou inserindo
os itens num Listview e jogando os mesmos valores num array usando a seguinte rotina:
 
  Set listv = ListView1.ListItems.Add(, , Combo2.Text)
        listv.SubItems(1) = Combo3.Text
        listv.SubItems(2) = FormatCurrency(MaskEdBox1.Text, 2)
        listv.SubItems(3) = Text1.Text
        listv.SubItems(4) = FormatCurrency(Dado, 2)
      
        LISTA2(0, Indice2) = Label2.Caption
        LISTA2(1, Indice2) = Combo2.Text
        LISTA2(2, Indice2) = MaskEdBox1.Text
        LISTA2(3, Indice2) = Text1.Text
        LISTA2(4, Indice2) = FormatNumber(Dado, 2)
        Indice2 = Indice2 + 1
para posteriormente salva-los, em um outro Form "Condiçoes de Pagamento", para as formas de pagamento,
conforme segue abaixo:
 Orcamento.AddNew
 Orcamento("NUMERO_ORCAMENTO") = Frm_Orcamento.Label2
 Orcamento("CODIGO_CLIENTE") = cod_cli
 Orcamento("VALOR") = Frm_Orcamento.Label11
 Orcamento("data") = Frm_Orcamento.Label12
 Orcamento.Update
 For i = 0 To Indice2 - 1
         orcamento_item.AddNew
         controle.Edit
         orcamento_item("NUMERO_ORCAMENTO") = LISTA2(0, i)
         orcamento_item("CODIGO_PRODUTO") = LISTA2(1, i)
         orcamento_item("VALOR_UNITARIO") = LISTA2(2, i)
         orcamento_item("QUANTIDADE") = LISTA2(3, i)
         orcamento_item("VALOR_TOTAL") = LISTA2(4, i)
         orcamento_item.Update
 Next

Meu problema é o seguinte como fazer um botão desfazer, momento eu que eu acabei
de inserir um item no Listview e sucessivamente na meu array, como eu poderia desfazer essa ação.
Muito obigado pela atenção
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2026   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página