tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトルタイトルListBoxから選択項目...の続きです
記事No2197
投稿日: 2005/09/20(Tue) 17:55
投稿者じゅん
[OSのVer]:Windows    [VBのVer]:VB.NET  

タイトルListBoxから選択項目...の続きです。
えーと、以前なおこさんに指摘された今のままでは削除の意味がないと言われましたが、今その意味
がようや
くわかりました。(ごめんなさい)
て、ことで確かに削除したつもりになってました
※最初削除を押して見た目は消えていたのですが、ほかの場所にフォーカスを移すなどしてからListB
oxに移
動すると先に消した商品が出できました(汗)
で、どのようにしたら項目からきちんと削除できるのでしょうか?
お願いします。

[ツリー表示へ]
タイトルRe: タイトルListBoxから選択項目...の続きです
記事No2200
投稿日: 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に移
> 動すると先に消した商品が出できました(汗)
> で、どのようにしたら項目からきちんと削除できるのでしょうか?
> お願いします。

[ツリー表示へ]
タイトルRe^2: タイトルListBoxから選択項目...の続きです
記事No2204
投稿日: 2005/09/21(Wed) 09:17
投稿者じゅん
[OSのVer]:Windows    [VBのVer]:VB.NET  
できるようになりました。
本当にここまでつきあってもらってありがとうございます。
あとは自分でなんとかやっていきたいと思います。

[ツリー表示へ]