Hola soy corlo
estoy haciendo un pequeño programa necesito descontar el valor que le pongo en el text3.text
y lo cambie en el valor seleccionado del list1 de la columna 3
en el programa hay los siguientes objetos:
1 list1
1 list2
text1.text
text2.text
text3.text
1 command1 salida
1 command4 ok
la cuestion es que cuando aprieto el command1 la operacion de resta lo hace bien, cuando voy a el command4 no consigo poner el resultado del text3.text en el list1 del valor seleccionado de la columna 3
aqui esta el codigo que tengo hasta ahora:
Option Explicit
Private Sub Command1_Click()
'salida ok
Dim i As Long
Dim arrString() As String
For i = 0 To UBound(arrString)
List1.AddItem arrString(i)
Next
End Sub
Private Sub Command3_Click()
Unload Me
Form1.Show
End Sub
Private Sub Command4_Click()
'Salida
Dim cantidad As Integer
cantidad = Text1.Text
If Text3.Text > cantidad Then
MsgBox "No hay suficiente existencia", vbCritical
Exit Sub
End If
Command1.Visible = True
Text3.Text = Text3.Text - Text1.Text
End Sub
Private Sub Form_Load()
List1.AddItem "p001" & " " & "descripciom p001" & " " & "42"
List1.AddItem "p002" & " " & "descripciom p002" & " " & "53"
List1.AddItem "p003" & " " & "descripciom p003" & " " & "244"
List1.AddItem "p004" & " " & "descripciom p004" & " " & "75"
Text2.Text = List1.ListCount
Command1.Visible = False
End Sub
Private Sub List1_Click()
Dim x As Integer
List2.Clear
List2.AddItem List1.Text
For x = 0 To List2.ListCount - 1
Text1.Text = Mid(List2.List(x), Len(List2.List(x)) - 2, 3)
Next x
End Sub
he probado varias formas pero no consigo cambiar el valor del text3 al list1
gracias