en inventaire plusieurs formes (expédition)

Question

Je fais un programme d'inventaire. J'ai de la difficulté à mettre en place une autre forme d'expédition de l'inventaire.

Je pensais que mon code ci-dessous prendrait le nombre entré par l'utilisateur, le soustrait du nombre stocké dans le tableau, puis enregistrer le nouveau nombre dans le tableau.

Toutes les ressources que vous connaissez en ligne serait formidable.

Public Class Ship 

    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click 

    If VBProj2.cbInventory.SelectedIndex <> -1 Then 
     'VBProj2.cbInventory.Items.RemoveAt(VBProj2.cbInventory.SelectedIndex) 
     VBProj2.txtQuantity.Clear() 

     Dim intX As Integer = VBProj2.cbInventory.Items.Count 
     If txtQuantityNew.Text <= 200 Then 
     VBProj2.iquantity(intX) = txtQuantityNew.Text - VBProj2.iquantity(intX) 

     MessageBox.Show(VBProj2.iquantity(intX)) 
     VBProj2.cbInventory.SelectedIndex = VBProj2.cbInventory.Items.Count - 1 
     Else 
     MessageBox.Show("Please only ship 200 or less") 
     End If 
     Me.Close() 
    Else 
     MessageBox.Show("Something fed up") 
    End If 

    End Sub 

End Class 

Answer 1

Dans votre code ici

VBProj2.iquantity(intX) = txtQuantityNew.Text - VBProj2.iquantity(intX) 

Votre soustraction en fait la quantité initiale de la nouvelle quantité, à l'opposé de la façon dont vous avez dit que vous vouliez le faire, ce qui serait

VBProj2.iquantity(intX) = VBProj2.iquantity(intX) - val(txtQuantityNew.Text)