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