C# と VB.NET の質問掲示板

わんくま同盟

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

■92605 / 1階層)  Txtとコンボボックス
□投稿者/ 大谷刑部 (40回)-(2019/10/10(Thu) 10:47:15)
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

編集キー/

前の記事(元になった記事) 次の記事(この記事の返信)
←Txtとコンボボックス /むむむ 返信無し
 
上記関連ツリー

Txtとコンボボックス / むむむ (19/10/09(Wed) 19:18) #92599
Re[1]: Txtとコンボボックス / shu (19/10/10(Thu) 07:23) #92600
Txtとコンボボックス / 大谷刑部 (19/10/10(Thu) 10:47) #92605 ←Now
Re[1]: Txtとコンボボックス / 774RR (19/10/10(Thu) 13:24) #92607

上記ツリーを一括表示 / 上記ツリーをトピック表示
 
上記の記事へ返信