|
■No92599 (むむむ さん) に返信
> 在庫管理をしたいと思っています。
> コンボボックスの中にtxtの数量を現在の数量として表示させ、何個持ち出すかによって在庫数を表示させたいです。
> txt内に現在の個数を入力して保存
> →持ち出しの際にテキストボックスに何個持ち出すのかを入力
> →残数をテキストボックス2に表示
> →その残数をtxtに保存
>
> ↑分かりにくいですが、上記のような動作をさせたいです。
↓こんなことをやりたいんでしょうか？
Public Class Form1
Private Sub txtOut_Leave(sender As Object, e As EventArgs) Handles txtOut.Leave
With Me.txtStock
.Text = CInt(Me.cmbAct.Tag) - CInt(DirectCast(sender, TextBox).Text)
End With
End Sub
Private Sub cmbAct_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbAct.SelectedIndexChanged
Dim i As Integer
With Me.cmbAct
i = InStr(.Text, Space(1)) + 1
If i > 0 Then
.Tag = Mid(.Text, i)
End If
End With
End Sub
Private Sub cmdReflect_Click(sender As Object, e As EventArgs) Handles cmdReflect.Click
Dim i As Integer, j As Integer
With Me.cmbAct
For Each cmbMember In .Items
If .Text = cmbMember.ToString Then
i = InStr(.Text, Space(1))
.Tag = CInt(Me.txtStock.Text)
j = .Items.IndexOf(.Text)
.Items.Item(j) = Mid(.Text, 1, i) & .Tag
Exit For
End If
Next
End With
End Sub
End Class
|