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

VisualStudio 2008 で、VBでのAsp.netの開発をしています。

※これまでVisualBasic6時代のフォームアプリケーションの開発経験しかなく、
　.net的な考え方に慣れておらず初歩的な質問かもしれませんがよろしくお願いします

テーブルコントロールに、動的に行・セルを追加していきたいのですが、
MSDNによると下のようなコードがありました。

   For rowCtr = 1 To rowCnt
      Dim tRow As New TableRow()
      For cellCtr = 1 To cellCnt
         Dim tCell As New TableCell()
         tCell.Text = "Row " & rowCtr & ", Cell " & cellCtr
         tRow.Cells.Add(tCell)
      Next
      Table1.Rows.Add(tRow)
   Next

この例は横方向への繰り返し内容が同じような内容なのでこれでよいのでしょうが、
例えばセルが3つあり、1セル目に3月1日からの日付、2セル目に曜日、3セル目に
休みかどうかの区分を表示したい、と考え以下のようにしました。

        For rowCtr = 1 To rowCnt
            Dim tRow As New TableRow()
            For cellCtr = 1 To cellCnt
                Dim tCell As New TableCell()
                Select Case cellCtr
                    Case 1
                        tCell.Text = DateAdd("d", rowCnt - 1, "2015/3/1")
                    Case 2
                        tCell.Text = Choose(Weekday(DateAdd("d", rowCnt - 1, "2015/3/1")), "日", "月", "火", "水", "木", "金", "土")
                    Case 3
                        If Weekday(DateAdd("d", rowCnt - 1, "2015/3/1")) = 1 Or Weekday(DateAdd("d", rowCnt - 1, "2015/3/1")) = 7 Then
                            tCell.Text = "休み"
                        Else
                            tCell.Text = "平日"
                        End If
                End Select
                tRow.Cells.Add(tCell)
            Next
            Table1.Rows.Add(tRow)
        Next

しかしこの方法では、セルが増えたらCaseを追加しなければなりませんし、また
途中に別なセルを挿入したくなった場合など、「Case XX」の部分を直さなければ
ならず、効率がよくありません。
そこで、内側のForやSelectを使わずに書きたいのですが、うまくいきません。
理想としては下のような感じです。

        Dim datHiduke As Date
        Dim intWeekDay As Integer

        For rowCtr = 1 To rowCnt
            Dim tRow As New TableRow()
            Dim tCell As New TableCell()

            '日付
            datHiduke = DateAdd("d", rowCnt - 1, "2015/3/1")
            tCell.Text = Format$(datHiduke, "yyyy/MM/dd")
            tRow.Cells.Add(tCell)
            '曜日
            intWeekDay = Weekday(datHiduke)
            tCell.Text = Choose(intWeekDay, "日", "月", "火", "水", "木", "金", "土")
            tRow.Cells.Add(tCell)
            '休み区分
            If intWeekDay = 1 Or intWeekDay = 7 Then
                tCell.Text = "休み"
            Else
                tCell.Text = "平日"
            End If
            tRow.Cells.Add(tCell)
        Next
        Table1.Rows.Add(tRow)

しかし、この方法では最後のセル（平日）しか追加されません。
tCellが１個しかないからなのか？と思い以下のようにしたところ、

            '日付
            Dim tCell As New TableCell()
            datHiduke = DateAdd("d", rowCnt - 1, "2015/3/1")
            tCell.Text = Format$(datHiduke, "yyyy/MM/dd")
            tRow.Cells.Add(tCell)
            '曜日
            Dim tCell As New TableCell()
            intWeekDay = Weekday(datHiduke)
            tCell.Text = Choose(intWeekDay, "日", "月", "火", "水", "木", "金", "土")
            tRow.Cells.Add(tCell)
            '休み区分
            Dim tCell As New TableCell()
            If intWeekDay = 1 Or intWeekDay = 7 Then
                tCell.Text = "休み"
            Else
                tCell.Text = "平日"
            End If
            tRow.Cells.Add(tCell)

「tCellはすでに存在しています」と怒られてしまいます。
For〜Nextで回すのだと何度Dimしてもいいのに、なぜこれではダメなのかというのも疑問点です。

Cellの追加をForで回さずに行うとしたら、どのような方法が一番いいのでしょうか。
よろしくお願いします。

■No75201 (mura さん) に返信
> WebSurfer様
> 
> 早速の返信ありがとうございます。前回もお世話になりました。
> 今回も、教えていただいた方法でうまくいきました。
> 度々ありがとうございます。
> 
> 今回実現したいことですが、データベースからデータを読み込んで
> 一覧に表示するというものです。
> 
> イメージとしては、下の例のように見出し（タイトル行）が複数行にわたっています。
> ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
> |　　　　|　　　　　　勤務時間　　　　　|　　　休憩時間　　|　　残業時間　　　　・・・
> |        |--------------------------------------------------------------------
> |　日付　| 開始 | 終了 |　　　警告　　　| 開始 | 終了 |時間| 開始 | 終了 |
> |        |      |      |----------------|      |      |    |      |      |
> |　　　　|      |      |区分|   内容    |      |      |    |      |      |　　　←ここまで見出し
> ------------------------------------------------------------------------------
> |  3/1   | 9:30 |18:00 |  1 |遅刻       |12:00 |13:00 |60m |      |      |　　　←ここからがデータ
> |  3/2   | 9:00 |18:00 |    |           |12:00 |13:00 |60m |      |      |
> 
> 
> そこで、tableの見出しの部分だけを予めaspページに設定しておき、コード内で
> データベースを読んで行を追加していくということで考えました。
> また、表示するデータ内容も、データベースの中身をそのまま表示するのでなく、
> 他の設定や項目によって変わる可能性があります。
> （60mでなく"1時間"だったり"1H"になったりするなど）。
> コードでデータベースを読み込んで追加していけば、表示する内容もいろいろ対応できる
> のでこの方法で考えました。
> 
> ただし、この方法もあまりうまくいかないことがわかりました
> （画面を初期化するためにtable.rows.clearとすると、見出しまで消えてしまう。）
> 
> 
> データグリッドというのもあるようですが、タイトルが１行分しかなく、またデータソースや
> バインドといった仕組みもなんだかよく飲み込めなかったので、自分の分かりやすい方法でやってみました。
> この方法であれば、レコードを読みながらコードで判定したり編集したりといった柔軟性もあって
> 良いと思ったのですが…。
> 

たびたびありがとうございます。

今回は、「時間数」表示枠として２セル持っており、例えばデータベース上で「130」（1時間30分）
というデータを読み込んだ場合に、他のマスタで管理している「表示方法区分」により、

２つのセルにそれぞれ
  1 | 30　　（1時間30分）
1.5 | H 　　（1.5時間）
 90 | M 　　（90分）
などというように表示内容が変わったりします。

また、レコード上に「摘要コード」「摘要入力欄」があり、
摘要コードに数値が入っている場合は、摘要マスタを検索してマスタから摘要内容を表示するが、
摘要コードに特定の数値（オール9など）が入っている場合は、摘要入力欄の内容を表示する
などといった、面倒な処理があります。

そのため、DBを読み込んでプログラムコードで判定しながら表示内容を変えていこうと考えたものです。

恥ずかしながら自分はVB6人間のため、.netの機能があまりよく理解できておらず、
もっとスマートなやり方はいろいろとあるのでしょうが、ついていけていないというのが
正直なところです。