Error 13 visual vasic 6
Publicado por dariel Gonell (1 intervención) el 07/05/2020 16:59:10
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub agregar_Click()
Dim X As ListItem
If Val(existencia) >= Val(cantidad) Then
existenc = Val(existenc) - Val(cantidad)
Else
MsgBox "Cantidad Exede la existencia"Exit Sub
End If
Set X = ListView1.ListItems.Add(, , narticulo.Text)
X.SubItems(1) = descripcion.Text
X.SubItems(2) = Val(cantidad.Text)
X.SubItems(3) = precio1.Text
X.SubItems(4) = Format(Val(X.SubItems(2)) * CCur(X.SubItems(3)), "$#,##0.00")
X.SubItems(5) = Format(CCur(X.SubItems(4)) * 0.18, "$#,##0.00")
itbis = Format(CCur(itbis) + CCur(X.SubItems(5)), "$#,##0.00")
total = Format(CCur(total) + CCur(X.SubItems(4)), "$#,##0.00")
totalpa = Format(CCur(totalpa) + CCur(X.SubItems(4)), "$#,##0.00")
codigo = ""
descripcion = ""
precio = ""
cantidad = ""
existenc = ""
End Sub
Tengo un problema para agregar un articulo a un list view me marca esta linea de codigo con el error 13
1
X.SubItems(4) = Format(Val(X.SubItems(2)) * CCur(X.SubItems(3)), "$#,##0.00")
Valora esta pregunta
0
