VB.NETでポップアップで画面を出す際にラジオボタンの値を初期化されないようにするには

初心者.Net 2006-10-11 07:26:19 No: 133643

VB.NETでWEBアプリケーションを作成しています。
あるラジオボタンのある画面で、ポップアップ画面を表示すると、チェックした値が初期化されてしまいます。
Page_Loadでも、ポップアップ画面を表示する処理でも得に初期化する処理は行っていません。

ただ、ラジオボタンはデザインではなく、VBの方で作っています。
これが関係しているんでしょうか？

説明が上手くなく、申し訳ありませんが、ご教授お願い致します。
説明不足の点はご指摘下さい。

環境はVB.NET2005、WINDOWS2000です。

※以下ラジオボタンを生成しているソースです
        '*********************************************************************************
        '   テーブル用HTML作成
        '*********************************************************************************
        Dim TableData As String = ""
        Dim ChkSts As String = ""
        Dim Ct As String = JudgeCount
        Dim RcCt As Integer = 0
        Dim ChkNg As String        'NG
        Dim ChkOk As String        'OK
        Dim ChkTai As String       '対象外
        Dim RadioChk01 As String
        Dim RadioChk02 As String
        Dim RadioChk03 As String

While (GetChkItem_SqlCmdResult.Read())

            RadioChk01 = ""
            RadioChk02 = ""
            RadioChk03 = ""

            If (Ct Mod JudgeCount) = 0 Then
                RcCt += 1
                TableData += "<tr><td>   " & GetChkItem_SqlCmdResult(0) & "   </td>"
            End If

Ct += 1

If (Ct Mod JudgeCount) = 0 And GetAnkenJudgeStatus_SqlCmdResult <> "E" Then

                Select Case GetChkItem_SqlCmdResult(2)
                    Case "0", "1"
                        RadioChk01 = "checked"
                    Case "2"
                        RadioChk02 = "checked"
                    Case "3"
                        RadioChk03 = "checked"
                    Case Else
                        RadioChk01 = "checked"
                End Select

ChkNg = "<input type=""radio"" name = ""JudgeCd" & RcCt _
& """ value = ""1"" runat= ""server"" " & RadioChk01 & ">NG</input>"

ChkOk = "<input type=""radio"" name = ""JudgeCd" & RcCt _
& """ value = ""2"" runat= ""server"" " & RadioChk02 & ">OK</input>"

ChkTai = "<input type=""radio"" name = ""JudgeCd" & RcCt _
& """ value = ""3"" runat= ""server"" " & RadioChk03 & ">対象外</input>"

TableData += "<td>" & ChkNg & ChkOk & ChkTai & "</td>"
TableData += "</tr>"

Else

                Select Case GetChkItem_SqlCmdResult(2)
                    Case "0"
                        ChkSts = "未審査"
                    Case "1"
                        ChkSts = "ＮＧ"
                    Case "2"
                        ChkSts = "ＯＫ"
                    Case "3"
                        ChkSts = "対象外"
                    Case Else
                        ChkSts = "−"
                End Select

TableData += "<td>" & ChkSts & "</td>"

End If

End While

Session("RcCd") = RcCt
GetChkItem_SqlCmdResult.Close()

'テーブル用HTML作成
TableData_Literal.Text = TableData

        'DB接続中の場合
        If previousConnectionState = ConnectionState.Open Then
            'DB切断
            conn.Close()
        End If