C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[6]: datatableの列属性設定

分類:[VB.NET/VB2005 以降]　

【環境】VisualStudio2017/VB.net

お世話になります。

datatableの列属性にGetType？でColorを設定する事は可能なのでしょうか？
調べてみたのですが見つける事ができませんでした。
設定ができるのであれば、その方法やサイト等教えて頂けると大変うれしいです。

宜しくお願い致します。

■No84318 (ささん) に返信
> datatableの列属性にGetType？でColorを設定する事は可能なのでしょうか？

table1.Columns.Add("BackColor", GetType(Color))

とか。

■No84320 (魔界の仮面弁士さん) に返信
> ■No84318 (ささん) に返信
>>datatableの列属性にGetType？でColorを設定する事は可能なのでしょうか？
>
> table1.Columns.Add("BackColor", GetType(Color))
>
> とか。

うまくいきました！
敗因はStringをマネて「table1.Columns.Add("BackColor", Type.GetType("Color"))」と記述していた事でした。
ありがとうございました！

よっしゃ！と思ったところ
「DGV1.Rows(0).Cells(0).Style.ForeColor = row("BackColor")」と記述したところ、型'DataRow'の値を'Color'に変換できませんと怒られてしまいました。

■No84321 (ささん) に返信
> 「DGV1.Rows(0).Cells(0).Style.ForeColor = row("BackColor")」
> 型'DataRow'の値を'Color'に変換できませんと怒られてしまいました。

(1) "BackColor" フィールドの値を ForeColor プロパティに割り当てるのですか?

(2) DGV1.Rows(0).Cells(0) ではなく、DGV1(0, 0) を使うべきです。

(3) row("BackColor") が DataRow と解釈されたようですが、そもそも
　　row のデータ型は何になっていますか?
　　row As DataRow や As DataRowView では無いのでしょうか?

(4) row が As DataRow だとすれば、右辺の型を明示的変換するべきです。たとえば
　 = row.Field(Of Color)("BackColor") あるいは
　　= DirectCast(row("BackColor"), Color) のように。

■No84322 (魔界の仮面弁士さん) に返信

早速のご回答ありがとうございます。

> (1) "BackColor" フィールドの値を ForeColor プロパティに割り当てるのですか?
backcolorではなく文字色をテーブル列に設定なのでForeColorの凡ミスでした。

> (3) row("BackColor") が DataRow と解釈されたようですが、そもそも
> 　　row のデータ型は何になっていますか?
> 　　row As DataRow や As DataRowView では無いのでしょうか?
まさにその通りDataRowです。

> (4) row が As DataRow だとすれば、右辺の型を明示的変換するべきです。たとえば
> 　 = row.Field(Of Color)("BackColor") あるいは
> 　　= DirectCast(row("BackColor"), Color) のように。

下記のように記述してみたのですが

Dim tbl As DataTable
tbl = New DataTable("ColorTable")
tbl.Columns.Add("ID", Type.GetType("System.String"))
tbl.Columns.Add("Color", GetType(Colors))

Dim row() As DataRow
row = tbl.Select("ID = '1'")

DGV1(0, 0).Style.ForeColor = row.Field(Of Color)("Colors") --①
DGV1(0, 0).Style.ForeColor = DirectCast(row("Colors"), Color) --②

①では「FieldはDataRow()のメンバーではありません」
②ではrow("Colors")で「DataRowの値をColorに変換できません」
のエラーとなりました。

もう少し考えてみます。

>>(3) row("BackColor") が DataRow と解釈されたようですが、そもそも
>>　　row のデータ型は何になっていますか?
>>　　row As DataRow や As DataRowView では無いのでしょうか?
> まさにその通りDataRowです。

> Dim row() As DataRow
> row = tbl.Select("ID = '1'")

rowはDataRow型ではなくDataRow()型になってますよ。
配列なので、その中から一つのDataRowを取り出す必要があります。
Dim r As DataRow = row(0)
みたいに。
// 配列なので、変数名はrowよりもrowsの方がわかりやすいですね。

■No84324 (Hongliang さん) に返信> rowはDataRow型ではなくDataRow()型になってますよ。
> 配列なので、その中から一つのDataRowを取り出す必要があります。
> Dim r As DataRow = row(0)
> みたいに。
> // 配列なので、変数名はrowよりもrowsの方がわかりやすいですね。

DataRow()型になっていたのには全く気が付いていませんでした。
DataRow型する事で解決しました。

魔界の仮面弁士様/Hongliang様ありがとうございました。

C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[6]: datatableの列属性設定

過去ログには書き込み不可