タイトル : Re^6: ListBoxから選択項目削除できない 投稿日 : 2005/09/17(Sat) 11:50 投稿者 : じゅん
[OSのVer]:Windows [VBのVer]:VB.NET > > > この方法でやってみたのですが、2つ(数量がついている・ついてない)が出てしまいます 。 > > 数字が出ているのを1つだけ表示させたいのですが。 > > すいません、数量はテキストボックスに入力するのですよね? ちょっと意味が分からないのです が? > 「数量がついている・ついていない」って具体的にどんな感じでしょうか? 説明が悪くてごめんなさい。 <Listbox>の表示 商品名1 商品名2 数量 と二つ表示してしまいます。 <下記コードでやると> 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 scn.Open() dAdp = New SqlClient.SqlDataAdapter("SELECT * FROM T_M_商品マスタ Where 商品コー ド = " & CInt(txt商品.Text), scn) dAdp.Fill(dSet, "T_商品マスタ") Dim dt As DataTable = dSet.Tables("T_商品マスタ") For i As Integer = 0 To dt.Rows.Count - 1 'list商品.Items.Add(CType(dt.Rows(i)("商品コード"), String) + ":&q uot; + CType(dt.Rows (i)("商品名"), String)) list商品.Items.Add(CType(dt.Rows(i)("商品名"), String)) Next DataGrid1.DataSource = dt DataGrid1.RowHeadersVisible = False DataGrid1.ColumnHeadersVisible = False scn.Close() End Sub 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 scn.Open() dAdp = New SqlClient.SqlDataAdapter("SELECT * FROM T_M_商品マスタ Where 商品コー ド = " & CInt(txt商品.Text), scn) dAdp.Fill(dSet, "T_商品マスタ") Dim dt As DataTable = dSet.Tables("T_商品マスタ") For i As Integer = 0 To dt.Rows.Count - 1 '『""』のスペースは今のListBoxのサイズだと全角スペース21文字分 list商品.Items.Add(CType(dt.Rows(i)("商品名"), String) + " " + txt数量.Text) Next scn.Close() End Sub |