| タイトル | ： Re: タイトルListBoxから選択項目...の続きです |
| 記事No | ： 2200 |
| 投稿日 | ： 2005/09/20(Tue) 18:58 |
| 投稿者 | ： なおこ(・∀・) |
お世話になります。
■メンバ変数に以下を追加。
Private m_ShohinCodes As System.Collections.Specialized.StringCollection = New
System.Collections.Specialized.StringCollection
■txt商品_LostFocusの
list商品.Items.Clear()の下に以下を追加。
Me.m_ShohinCodes.Clear()
For i As Integer = 0 To Me.m_TestDt.Rows.Count - 1
の下に以下を追加。
Me.m_ShohinCodes.Add(CType(Me.m_TestDt.Rows(i)("商品コード"), String))
■txt数量_TextChangedも、txt商品_LostFocusと同様に修正。
■btn削除_Clickの
list商品.Items.Remove(list商品.SelectedItem)の上に以下を追加。
Dim shohincode As String = Me.m_ShohinCodes(Me.list商品.SelectedIndex)
Dim rows() As DataRow = Me.m_TestDt.Select("商品コード=" + shohincode)
If rows.Length > 0 Then
Me.m_TestDt.Rows.Remove(rows(0))
End If
以下、蛇足。
自分で色々試してみましたか？
私が書いたソースの内容を理解してから、質問をしていただけましたか？
…どうも文脈からその辺が読み取れなかったんで…
違ってたら失礼。
> [OSのVer]：Windows [VBのVer]：VB.NET
>
> タイトルListBoxから選択項目...の続きです。
> えーと、以前なおこさんに指摘された今のままでは削除の意味がないと言われましたが、今その意味
> がようや
> くわかりました。（ごめんなさい）
> て、ことで確かに削除したつもりになってました
> ※最初削除を押して見た目は消えていたのですが、ほかの場所にフォーカスを移すなどしてからListB
> oxに移
> 動すると先に消した商品が出できました(汗)
> で、どのようにしたら項目からきちんと削除できるのでしょうか？
> お願いします。
|