Vou precisar uma pequena ajuda de alguém (Acho que estou no caminho certo):
Para fazer o lançamento é utilizado o seguinte comando:
Private Sub btnIncluir_Click()
If txtQuantidade <> Empty And Cboproduto <> Empty And txtCustoUnitario <> Empty Then
With Me.lstPedidos
.ListItems.Add 1, , Me.txtQuantidade.Value ' .ListItems.Add 1, , Me.txtQuantidade.Value
.ListItems(1).ListSubItems.Add 1, , UCase(Me.Cboproduto)
.ListItems(1).ListSubItems.Add 2, , Format(Me.txtCustoUnitario, "#,##0.00")
.ListItems(1).ListSubItems.Add 3, , Format(Me.txtCustoTotal, "#,##0.00")
End With
Call EfetuarCalculos
Call LimparCaixasDeTexto
If Me.lstPedidos.ListItems.Count >= 1 Then
btnEditar.Enabled = True
btnApagar.Enabled = True
End If
End If
TotalPedido
End Sub
se alterar o início "inserindo" as linhas ....
Private Sub btnIncluir_Click()
If txtQuantidade <> Empty And Cboproduto <> Empty And txtCustoUnitario <> Empty Then
'inserir estas linhas
Dim ultimaLinha As Long
ultimaLinha = Me.lstPedidos.ListItems.Count
NovaLinha = ultimaLinha + 1
' e depois alterar .ListItems(NovaLinha)
With Me.lstPedidos
.ListItems.Add 1, , Me.txtQuantidade.Value ' .ListItems.Add 1, , Me.txtQuantidade.Value
.ListItems(NovaLinha).ListSubItems.Add 1, , UCase(Me.Cboproduto)
.ListItems(NovaLinha).ListSubItems.Add 2, , Format(Me.txtCustoUnitario, "#,##0.00")
.ListItems(NovaLinha).ListSubItems.Add 3, , Format(Me.txtCustoTotal, "#,##0.00")
End With
o que mais deveria alterar para funcionar? Alguém pode me ajudar?
Postado : 12/05/2025 4:50 pm