tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル ListBoxの選択したものが削除できない
投稿日: 2005/09/16(Fri) 16:38
投稿者ジェット
[OSのVer]:WindowsXP    [VBのVer]:VB.NET
<内容>
SQLSeverからデータをListBoxに表示しListBoxで選択されたものを削除(削除ボタン)しようとすると
エラーが出る
なぜエラーが出るのかわかりませんので教えてください。
*ListBoxには商品名は表示できます。
以下にコードを記述しときます

Private Sub txt商品_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles
txt商品.LostFocus
        Dim scn As SqlClient.SqlConnection = New SqlClient.SqlConnection( _
                "Data Source = localhost;Persist Security Info=False" _
                & ";Integrated Security=SSPI;database=Yuukari")
        Dim dSet As DataSet = New DataSet("t_商品マスタ")
        Dim dAdp As SqlClient.SqlDataAdapter

        dAdp = New SqlClient.SqlDataAdapter("SELECT * FROM T_M_商品マスタ", scn)
        dAdp.Fill(dSet, "t_商品マスタ")

        list商品.DataSource = dSet.Tables("t_商品マスタ")
        list商品.DisplayMember = "商品名"
        list商品.ValueMember = "商品コード"

        btn削除.Enabled = True
        txt数量.Enabled = True
        txt数量.Focus()

    End Sub

Private Sub btn削除_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles btn削除.Click
        '***今現在の削除方法 2005/09/15 始め***
        '選択された商品を削除する
        If MsgBox("削除してもよろしいですか?", MsgBoxStyle.YesNo) = MsgBoxResult
.Yes Then
            list商品.Items.Remove(list商品.SelectedItem)
        End If

        '***今現在の削除方法 2005/09/15 終わり***
    End Sub


<エラー発生場所>
  
list商品.Items.Remove(list商品.SelectedItem)

の所で発生します。
どこがいけないのかわかりません。教えていただけないでしょうか。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。