タイトル : Re: ListBoxに1つづつ追加表示させるには? 投稿日 : 2005/09/16(Fri) 17:59 投稿者 : なおこ(・∀・)
お世話になります。 さっきの質問からだと 商品名と商品コードは一緒に表示させる必要がありそうなんで… 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) + ":" + Ctype(dt.Rows(i)("商品 名"),String)) それで、選択された行からコードを取得するやりかたは Dim selectedItem As String = CType(Me.ListBox1.SelectedItem, String) Dim itemcode As String = selectedItem.Substring(0, selectedItem.IndexOf(":")) Dim itemname As String = selectedItem.Substring(selectedItem.IndexOf(":") + 1) |