VB.NET で ComboBox のﾘｽﾄ項目を編集[ﾌﾟﾛｸﾞﾗﾐﾝｸﾞ]
(2015-03-05 12:55:26) by shinoda
VB.NET で ComboBox のﾌﾟﾙﾀﾞｳﾝﾘｽﾄに項目をｾｯﾄする方法｡
DB のﾏｽﾀからﾃﾞｰﾀ読み込んできて､そのｺｰﾄﾞと名前をｾｯﾄしようとすると､
Me.CodeComboBox.SetBinding(ds.address, "address_code", "address_name")
みたいにﾊﾞｲﾝﾃﾞｨﾝｸﾞしてしまうのが一番楽だが(これで､ﾌﾟﾙﾀﾞｳﾝのところに "ｺｰﾄﾞ|名前"のように表示される)､ﾏｽﾀの中身そのままではなく､後ろに｢まとめｺｰﾄﾞ｣だったり｢その他ｺｰﾄﾞ｣だったり､ﾏｽﾀにないｺｰﾄﾞを追加したい時がある｡
ﾏｽﾀを読み込んだﾃﾞｰﾀｾｯﾄの最後にﾚｺｰﾄﾞを追加してやってから SetBinding するという裏技的なことも可能だが､Null が許されてない項目にﾀﾞﾐｰの値をｾｯﾄしたり面倒くさい｡
そんな時は､素直にﾊﾞｲﾝﾃﾞｨﾝｸﾞ用の新しいﾃｰﾌﾞﾙｾｯﾄを作って処理する方が結果的に簡単｡
Dim codeTbl As New DataTable()
codeTbl.Columns.Add("address_code", GetType(Integer))
codeTbl.Columns.Add("address_name", GetType(String))
Dim row As DataRow = Nothing
For Each dr In ds.address
row = codeTbl.NewRow()
row("address_code") = dr.address_code
row("address_name") = dr.address_name
codeTbl.Rows.Add(row)
Next
' 合計ｺｰﾄﾞ(0)の追加
row = codeTbl.NewRow()
row("address_code") = 0
row("address_name") = "合計"
codeTbl.Rows.Add(row)
codeTbl.AcceptChanges()
Me.CodeComboBox.SetBinding(codeTbl, "address_code", "address_name")
これで､無事一番下に 0 の項目が追加される｡(FormatString="000" で)
随分行数は増えるが､ｺｰﾄﾞとして美しい｡うっとり｡
ｺﾒﾝﾄ投稿
次の記事へ >
< 前の記事へ
TOPへ戻る
Powered by
MT4i 3.0.8