인벤토리 복수형 (배송)

Question

인벤토리 프로그램을 만들고 있습니다. 인벤토리를 배송 할 대체 양식을 설정하는 데 문제가 있습니다.

아래 코드는 사용자가 입력 한 숫자를 가져 와서 배열에 저장된 숫자에서 빼고 새 숫자를 배열에 저장한다고 생각했습니다.

온라인에서 알 수있는 모든 자료가 유용 할 것입니다. 여기에 코드에서

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

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

당신 실제로 새로운 양에서 초기 수량을 뺀, 당신이 그것을 할 싶어했다 방법의 반대는이 될 것

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