0

在庫プログラムを作成しています。在庫を発送する代替フォームの設定に問題があります。

以下のコードは、ユーザーが入力した数値を取得し、配列に格納されている数値から減算して、新しい数値を配列に保存すると考えました。

あなたがオンラインで知っているリソースはどれも素晴らしいでしょう.

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
4

1 に答える 1

0

ここのコードで

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

あなたが実際に新しい量から最初の量を差し引くことは、あなたがやりたいと言った方法の反対です。

VBProj2.iquantity(intX) = VBProj2.iquantity(intX) - val(txtQuantityNew.Text)
于 2013-04-17T03:38:14.973 に答える