DataGridViewがクラッシュする

質問

VB2005を使用しています。
DataGridViewコントロールで、以下のようなコードを実行した際に、
DataGridViewコントロール自体が大きな赤い×の表示になることがあります。
（必ず発生するわけではありません。）

'クリア
DataGridView1.Columns.Clear()

'DataSetをDataGridViewに格納
DataGridView1.DataSource = dtData

'空の列を追加する
DataGridView1.Columns.Add("NOP", "")

'最終列の幅をFillにする
DataGridView1.Columns("NOP").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill

'編集不可にする
For i = 0 To DataGridView1.Columns.Count - 1
DataGridView1.Columns(i).ReadOnly = True
Next i

'行幅は変更できないようにする
DataGridView1.AllowUserToResizeRows = False

'行Headerを非表示にする
DataGridView1.RowHeadersVisible = False

'セルの選択方法は行毎にする
DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect

'1行のみ選択にする
DataGridView1.MultiSelect = False

'追加行は表示しない
DataGridView1.AllowUserToAddRows = False

'列幅を自動リサイズさせる
DataGridView1.AutoResizeColumns()

'DataGridViewのフォントサイズを変更する
DataGridView1.Font = New Font(DataGridView1.Font.Name, 11)

'行高さを自動リサイズさせる
DataGridView1.AutoResizeRows()

'Headerのアライメントを中央にする
DataGridView1.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

同時に、次のメッセージボックスが表示されます。
「アプリケーションのコンポーネントで、ハンドルされていない例外が発生しました。
[続行]をクリックすると、アプリケーションはこのエラーを無視し、続行しようとします。
[終了]をクリックすると、アプリケーションは直ちに終了します。
オブジェクト参照がオブジェクトインスタンスに設定されていません。」

どうすればこのような現象を回避することができるのでしょうか？
どうかご教授ください。

回答No.2

noname#221368 · ベストアンサー

＞「オブジェクト参照がオブジェクトインスタンスに設定されていません」
から考えて、DataGridView1.Columns.Clear()の、DataGridView1かColumnsがNothingになっていると思えます。
　DataGridView1が消えるとは思えないので、動的に生成・削除されるColumnsがNothingでしょう。
　コードの冒頭で初期化するために、DataGridView1.Columns.Clear()を使っているので、これは初期化のタイミングの問題と思われます。特にApp起動時にこのような事を行うと、「オブジェクト参照がオブジェクトインスタンスに設定されていません」は良く出ます。DataGridView1はDataを詰め込む前で、Columnsが生成されていないからです。私も良く出します。

お礼

ありがとうございます。
そのあたりを調べてみます。

回答No.3

noname#221368

#2の追伸です。

　DataGridView1.Columns.Clear()の直後に、DataGridView1.DataSource = dtDataとされていますが、DataGridViewは、ある意味非常に良く出来ていて、DataSourceの内容変化に忠実に追随して表示を変化させます。
　dtDataはDataSetとなっていますが、dtDataがBindingSourceの場合なら、これは確実です。その場合、DataGridView1.Columns.Clear()の初期化は要らないと思います。また、DataGridView.Clearなら、ColumnsがNothingでも動くと思います。

お礼

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

今回のケースは、DataBindingSourceではないので、
何らかのクリアは必要な状況です。
クリアをしないと、列が追加されていきます。

また、DataGridView.Clear()メソッドはなかったような。
DataGridView.ClearSelection()はありました。

補足

遅くなりましたが、
DataGridView1.Columns.Clear()
の部分を以下のようにしたら現象が出なくなったようです。
For i = 0 To DataGridView1.Columns.Count - 1
DataGridView1.RemoveAt(0)
Next i
ありがとうございました。

回答No.1

noname#221368

例外発生箇所を特定できないのでしょうか？。

　発生箇所の特定が、解決への早道だと思います。

お礼

ご回答ありがとうございます。
現在特定中ですので、判明したらお知らせします。

補足

調べたところ、
'クリア
DataGridView1.Columns.Clear()
のところで発生しているようです。