【VB.NET】DirectCast時のエラーについて

Question

VB.NETでDataGridViewに表示しているデータをEXCEL出力したく、「出力」のようなボタンを押下するイベント内で、DataGridViewのDataSourseをDataTableにキャストする処理を記述しています。具体的には以下のようなコードを記述しています。

Dim dt As DataTable = DirectCast(DataGridView1.DataSource, DataTable)

この箇所で、「型 'System.Data.DataView' のオブジェクトを型 'System.Data.DataTable' にキャストできません。」のエラーが出てしまうのですが、原因がよくわかりませんでした。

申し訳ありませんが、わかる方がいましたら教えてください。

Answer 1

DirectCast(DataGridView1.DataSource, DataTable)

上記のDataSourceプロパティに、DataTable以外のオブジェクトを指定しているからだと思います。
DataSourceオブジェクトは、BindingList/DataSetなど指定できるオブジェクトが他にもあります。

MSDNを参照してみてください。
DataGridView.DataSourceプロパティ

Comments

[programer]

申し訳ありません。MSDNのサイトをを見てもよく理解できなかったのですが、
「DataSouceプロパティにDataTable以外のオブジェクトを指定している」というのはどういうことでしょうか。
DataSouceにバインドする際にDataTable以外のものから行っているということでしょうか。

[koutajero]

>DataSouceにバインドする際にDataTable以外のものから
おそらく デザインで指定しているのであれば BindingSourceが指定されているものだと思います。

[対応案](http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1124114981)

前後の内容・やりたいことがよくわかっていないので こちらを参照してみてください。

[programer]

ありがとうございます。
URLの内容はとても現在の現象に近いものでした。
しかし、紹介されていた方法で行ってみましたが、BindingSourceにキャストする箇所で同じエラーが出てしまいました。
でも、答えには近づいたようなので、もう少しこれを参考に自分で考えてみようと思います。
ありがとうございました。