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

いつもお世話になってます。
以前、TemplateFieldの特定の単語を強調表示したい件でお世話になった
http://bbs.wankuma.com/index.cgi?mode=all&namber=44353
の続きの質問です。

GridViewのTemplateFieldの特定の単語を強調表示するのに、多数のTemplateField列へ
対応するコードの書き方がわからなくて困っております。
以下の様なテストDBを作りました。
|ID|名前Template|年齢Template|子供名Template|
| 1|鈴木一郎　　|35　　　　　|太郎　　　　　|
| 2|鈴木次郎　　|55　　　　　|一郎　　　　　|
| 3|田中一郎　　|43　　　　　|花子　　　　　|
| 4|田中三郎　　|37　　　　　|一郎　　　　　|

複数のTemplateFieldがあり、GridViewではItemTemplateはLabel1, Label2, Label3で情報
が表示されています。
このデータをGridViewで表示し、中の「一郎」だけを強調表示する以下のコードを書きました。
Protected Sub GridView1_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs)
    If e.Row.RowType = DataControlRowType.DataRow Then
        If e.Row.RowIndex = Me.GridView1.EditIndex Then Return
        For i As Integer = 1 To e.Row.Cells.Count - 1
            Dim dumLabel As Label = e.Row.FindControl("Label" & Asc(i))
            dumLabel.Text = dumLabel.Text.Replace("一郎", "<B Style='background-color:#fff495'>一郎</B>")
        Next
    End If
End Sub

しかし、
dumLabel.Text = dumLabel.Text.Replace("一郎", "<B Style='background-color:#fff495'>一郎</B>")
の行で、「NullReferenceExceptionはユーザーコードによってハンドルされませんでした。
オブジェクト参照がオブジェクト インスタンスに設定されていません。」
のエラーが発生し動きません。
どのあたりに原因があり、解決はどの様に考えればよいでしょうか？よろしくお願いします。

VWD2008, MS Access2003です。

■No44598 (gtk2k さん) に返信
> Asc関数は引数で渡された文字(Char型、String型を渡した場合は先頭の文字)のアスキーコード(数値)を取得する関数。
> つまり、"a"を渡したら97、"1"を渡したら49を返す。
> 数値型を渡した場合は暗黙的にString型に変換され渡されるから、
> For i As Integer = 0 To 99
> e.Row.FindControl("Label" & Asc(i))
> Next
> とした場合、"Label48"から"Label57"を(10回)検索することになる。
> 
> 単に
> e.Row.FindControl("Label" & i)
> でOK

gtk2kさん、いつも早急なアドバイスありがとうございます。
早速
Dim dumLabel As Label = e.Row.FindControl("Label" & i)
に修正し動かしてみましたが、残念ながら
dumLabel.Text = dumLabel.Text.Replace("一郎", "<B Style='background-color:#fff495'>一郎</B>")
の行で、「NullReferenceExceptionはユーザーコードによってハンドルされませんでした。
オブジェクト参照がオブジェクト インスタンスに設定されていません。」
のエラーが発生し動きませんでした。
次に確認してみる事項はどのあたりになりますでしょうか？アドバイス頂けると助かります。

■No44604 (gtk2k さん) に返信
> Dim dumLabel As Label = e.Row.FindControl("Label" & i)
> の次の行に
> If dumLabel Is Nothing Then
>    Console.WriteLine(i)
> End If
> の3行を追加し、
> Console.WriteLine(i)
> の行にブレークポイントを設定してデバッグ実行し、とまったときのiの値はなんになってるのか？

iの値は「4」を示しました。
私は「1」と思ってましたが、4でした。このあたりに解決のヒントが。
私なりに考えてみたのですが・・・（スキル不足だなあ・・・）

gtk2kさん、自己解決しましたので報告します。
For i As Integer = 1 To e.Row.Cells.Count - 2
に変更したところ、エラーの発生がなくなり、４つの「一郎」が強調表示され表示されま
した。ありがとうございました。

↓正常に動いたコード
Protected Sub GridView1_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs)
    If e.Row.RowType = DataControlRowType.DataRow Then
        If e.Row.RowIndex = Me.GridView1.EditIndex Then Return
        For i As Integer = 1 To e.Row.Cells.Count - 2
            Dim dumLabel As Label = e.Row.FindControl("Label" & i)
            dumLabel.Text = dumLabel.Text.Replace("一郎", "<B Style='background-color:#fff495'>一郎</B>")        Next
    End If
End Sub

■No44609 (gtk2k さん) に返信
gtk2kさん、アドバイスありがとうございます。

> (なぜe.Row.Cells.Count - 1としていたのか理由はわからんが)
GridViewの列の数を取得する方法をこれしか知らないので、これを使ってます。

> データ列数でループを行う場合は
> For i As Integer = 1 To CType(GridView1.DataSource, DataTable).Columns.Count
> Next
> というように、DataSourceにバインドしたDataTableの列数でループするほうがいい。
GridViewの表示列の数をこの方法で取得する方法に変更したいのですが、DataTableの所
が波線になりうまく行きません。
DataGridでもダメだし、DataListでもダメでした。
DBにMS Accessを利用し、AccessDataSource1を利用しているのですが、そのあたりが
ことなるのでしょうか？アドバイス頂けると助かります。

■No44612 (gtk2k さん) に返信
> 例が悪かった、これはDataTableオブジェクトをDataSourceに設定している場合はこれでいけるのだが
> SqlDataSourceやAccessDataSourceを使ってデータを取得している場合はできない。
> 
> CType(e.Row.DataItem, DataRowView).Row.Table.Columns.Count
> 
> でやってみてほしい。

gtk2kさん、アドバイスありがとうございます。
VWD2008のインテリセンスでCType(e.Row.DataItem, DataRowView が出てこないですし
DataRowView部に波線が表示されるので、インテリセンスが表示してくれる
CType(e.Row.DataItem, Data.DataRow).Table.Columns.Count
にしてみましたが
CType(e.Row.DataItem, Data.DataRow).Table.Columns.Count
の行で、「型 'System.Data.DataRowView' のオブジェクトを型 'System.Data.DataRow'
 にキャストできません。」のエラーが表示され動きません。
ASP.NETを動かすには、多くの知識を必要としますね。アドバイス頂けると助かります。

■No44615 (gtk2k さん) に返信
> その行にブレークポイントを設定し、e.Row.DataItemの内部の型なんであるかを見てみないとわからん

gtk2kさん、For i As Integer = 1 To CType(e.Row.DataItem, Data.DataRowView).Row.Table.Columns.Count - 1
で、GridViewの列数が取得でき、４つの「一郎」が強調表示されるようになりましたので
報告します。ありがとうございました。
インテリセンスで「すべての候補」を選択することで「DataRowView」が表示されました。
以下、正しく動いたコードです。
Protected Sub GridView1_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs)
    If e.Row.RowType = DataControlRowType.DataRow Then
        If e.Row.RowIndex = Me.GridView1.EditIndex Then Return
        'For i As Integer = 1 To e.Row.Cells.Count - 2
        For i As Integer = 1 To CType(e.Row.DataItem, Data.DataRowView).Row.Table.Columns.Count - 1
            Dim dumLabel As Label = e.Row.FindControl("Label" & i)
            dumLabel.Text = dumLabel.Text.Replace("一郎", "<B Style='background-color:#fff495'>一郎</B>")
        Next
    End If
End Sub