[VB.NET] DataGridViewのコンボボックスに文字列を格納したい

Question

VB.NETのWindowsフォームにDataGridView1を配置し、次のようなデータテーブルを用意しました。

Dim typeTable As New DataTable("typeTable")
typeTable.Columns.Add("Display", GetType(String))
typeTable.Columns.Add("Value", GetType(Integer))
typeTable.Rows.Add("uint8_t", 0)
typeTable.Rows.Add("uint16_t", 1)
typeTable.Rows.Add("uint32_t", 2)
typeTable.Rows.Add("uint64_t", 3)

これにより、コンボボックスのデータは0～3までの数値でテキストファイルに保存できました。

保存したテキストファイルからコンボボックスに再現しようとすると、以下のコードではデバッグ開始時に「DataGridViewの既定のエラー」ダイアログが表示され、無理に進めるとコンボボックスにValue値が入ります。

rdata = srIniFile.ReadLine()
DataGridView1.Rows(i).Cells(0).Value = rdata

ダイアログの内容は次の通りです。

DataGridViewで次の例外が発生しました:
System.FormatException: DataGridViewComboBoxCellの値が有効ではありません
この既定のダイアログを置き換えるには、DataErrorイベントをハンドルしてください。

元通りDisplay値を格納するにはどうすれば良いでしょうか。

Comments

[退会済みユーザー]

DataGrid のタグは外してください。前のスレッドでも言いましたが無視ですか？

これも前のスレッドで言いましたが、そもそも何がしたいのかを書きましょう。DataGridView を直接操作して何らかの値を代入ということには普通何の意味もないはず。たぶん XY 問題になってます。

XY 問題とは、X という課題があって、Y という解決策を考えついて Y について質問したが（質問には X は書かないで）、Y は X の解決策とはなっておらず、回答者と質問者間で話がかみ合わず、一向に解決にならないということです。

X も書いてください。

[tyro]

DataGridのタグは外しました。
DataGridView1の内容はユーザーがテキストファイルにセーブでき、後日、アプリを起動した時にテキストファイルを読み込み、当時の状況を再現したいと思います。

データテーブルを引用したコンボボックスは内部的にValue値で管理しているはずなので、TypeセルにValueを代入すれば良いと考えて質問冒頭のコードを書きました。

しかしエラーダイアログによるとCellの値がおかしいということで、型変換がうまくいっていないと推測して情報を探しています。

Answer 1

DataGridView1の内容はユーザーがテキストファイルにセーブでき、後日、アプリを起動した時にテキストファイルを読み込み、当時の状況を再現したいと思います。

その目的に ComboBox がどうつながるのか分かりませんが・・・

データソースに CSV ファイル（CSV ファイルもテキストファイル）を使って、以下のような構成にすることを考えてはいかが？

CSV ⇔ DataTable ⇔ BindingSource ⇔ DataGridView

具体例は以下の記事を見てください。

CSV ファイルを DataGridView に表示
http://surferonwww.info/BlogEngine/post/2020/09/11/show-date-in-csv-file-on-datagridview.aspx

Comments

[tyro]

ありがとうございます。参考にさせていただきます。DataGridViewに定型の文字列を確実に入力させようと一部の列にコンボボックスを使用したため、型変換がうまくいかなかったものです。

[退会済みユーザー]

Display も Value も String 型にして両方に "uint8_t" ... を入れれば良いのでは？

Answer 2

申し訳ありません、自己解決しました。以下の通りString型をInteger型に変換し、正しく動作しました。

rdata = srIniFile.ReadLine()
DataGridView1.Rows(i).Cells(0).Value = Integer.Parse(rdata)

お騒がせしました。