タイトル : Re^7: ListBoxから選択項目... 投稿日 : 2005/09/17(Sat) 13:57 投稿者 : なおこ(・∀・)
お世話になります。 > Dim dt As DataTable = dSet.Tables("T_商品マスタ") ←ここに、list商品.Items.Clear()を入れましょう。 > For i As Integer = 0 To dt.Rows.Count - 1 > '『""』のスペースは今のListBoxのサイズだと全角スペース21文字分 > list商品.Items.Add(CType(dt.Rows(i)("商品名"), String) + " > > " + txt数量.Text) > Next あと、↓これは list商品.Items.Add(CType(dt.Rows(i)("商品名"), String) _ + StrDup(21, "全角スペース") _ + txt数量.Text) になりますかね。 > list商品.Items.Add(CType(dt.Rows(i)("商品名"), String) + " > > " + txt数量.Text) んで、これは蛇足かもしれませんが、上のソースみると、 txt商品_LostFocusとtxt数量_LostFocusでデータベースから値取り直してますよね。 これって、何も制御していないと 前におっしゃってた、削除ボタン押した時の"画面上での"削除が 意味なくなっちゃうけど、 さすがにその辺はちゃんと考慮されてますよね? |