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

こんにちは。かのかのと申します。

ASP+.Net VBでプログラムを組んでいるのですが、リピートタグで
かつTD(セル)の中にラジオボタンを埋め込むたいと思っています。

＜表示としてはこんなかんじです＞
※・はラジオボタンにしたいです。(1個しか選択できない) 
　■はボタンです。選択ボタンをクリックしたときに選択されている
　　ラジオボタンの値を取得してテーブルに内容を確認しに行きたいです。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
｜選択｜　　名前　　｜　　所属　　｜　性別　｜
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
｜ ・ ｜かのかの　　｜   大学生   ｜　 女 　｜
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
｜ ・ ｜たろう　　　｜   中学生   ｜　 男 　｜
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
｜ ・ ｜次郎　　　　｜   高校生   ｜　 男 　｜
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
　　　　　　■選択　　　　■戻る

列数はデータベースから引っ張ってくるのでテーブル全体をリピートで囲い、
trタグの中身をItemTemplateでくくっていけばよいのでは！
と思ったのですが、ラジオボタンが正常に表示されません。

☆ASP側
<asp:repeater id="rptList" runat="server">
 <HeaderTemplate>
  <table border="1" width="600" cellpadding="1" cellspacing="0">
   <tr>
    <td align =center  width="50">選択</td>
    <td align =center  width="150">名前</td>
    <td align =center  width="100">所属</td>
    <td align =center  width="100">性別</td>
   </tr>
 </HeaderTemplate>
 <ItemTemplate>
  <tr>
   <td class="STANDARD_C">
    <asp:RadioButtonList id="optList" runat="server" >
     <asp:ListItem Value ='<%# DataBinder.Eval(Container.DataItem, "strUserID") %>'></asp:ListItem>
    </asp:RadioButtonList>
   </td>
   <td class="STANDARD_L">
    <%# DataBinder.Eval(Container.DataItem, "strName") %>
   </td>
   <td>
    <%# DataBinder.Eval(Container.DataItem, "strBelong") %>
   </td>
   <td>
    <%# DataBinder.Eval(Container.DataItem, "strSex") %>
   </td>
  </tr>
 </ItemTemplate>
 <FooterTemplate>
  </table>
 </FooterTemplate>
</asp:repeater >

☆VB側のロードイベントに記述したソース
Dim values As New ArrayList

values.Add(New PositionData("00001", "かのかの", "大学生", "女"))
values.Add(New PositionData("00002", "たろう", "中学生", "男"))
values.Add(New PositionData("00003", "次郎", "高校生", "男"))

rptList.DataSource = values
rptList.DataBind()

☆PositionDataのなかみ
Public Class PositionData

  Private s_strUserID As String
  Private s_strName As String
  Private s_strBelong As String
  Private s_strSex As String

  Public Sub New(ByVal newStrUserID As String, ByVal newStrName As String, _
                ByVal newStrBelong As String, ByVal newStrSex As String)

      Me.s_strUserID = newStrUserID
      Me.s_strName = newStrName
      Me.s_strBelong = newStrBelong
      Me.s_strSex = newstrSex
  End Sub


  Public ReadOnly Property strUserID() As String
    Get
    Return s_strUserID
  End Get
  End Property

  Public ReadOnly Property strName() As String
    Get
    Return s_strName
  End Get
  End Property

  Public ReadOnly Property strBelong() As String
    Get
    Return s_strBelong
  End Get
  End Property

  Public ReadOnly Property strSex() As String
    Get
    Return s_strSex
  End Get
  End Property
End Class

として実行したところ
BC30676: 'DataBinding' は 'System.Web.UI.WebControls.ListItem' のイベントではありません。
というエラーが帰ってきました。

どうやったら正常にできるかいろいろ調べたのですが、探し方が悪いのか
発見できませんでした。
ご存知の方がいらっしゃいましたらよろしくお願いします。

ぼのぼのさん＞
　ItemDataBoundにコンテナをうめこんで表示をすることはできました！
　でも、何番目のデータが選択されたかを取得するにはどうしたらよいのでしょうか？
　質問ばかりで恐縮です。よろしくお願いします。

■ASP.VBのソース
Imports System
Imports System.IO
Public Class WebForm8
    Inherits System.Web.UI.Page

#Region " Web フォーム デザイナで生成されたコード "

    'この呼び出しは Web フォーム デザイナで必要です。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
  Protected WithEvents Repeater1 As System.Web.UI.WebControls.Repeater
  Protected WithEvents btnData As System.Web.UI.WebControls.Button
  Protected WithEvents Label1 As System.Web.UI.WebControls.Label

    'メモ : 次のプレースホルダ宣言は Web フォーム デザイナで必要です。
    '削除および移動しないでください。
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        ' CODEGEN: このメソッド呼び出しは Web フォーム デザイナで必要です。
        ' コード エディタを使って変更しないでください。
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' ページを初期化するユーザー コードをここに挿入します。

        Dim values As New ArrayList

        values.Add(New setData("00001", "かのかの"))
        values.Add(New setData("00002", "たろう"))
        values.Add(New setData("00003", "次郎"))

        Repeater1.DataSource = values
        Repeater1.DataBind()
    End Sub

  Private Sub btnData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnData.Click
      '’誰が選択されたをラベルに表示する


  End Sub
End Class
Public Class setData
  Private s_intValue As String
  Private s_strName As String

  Public Sub New(ByVal newIntValue As String, ByVal newStrName As String)

      Me.s_intValue = newIntValue
      Me.s_strName = newStrName
  End Sub

  Public ReadOnly Property intValue() As String
    Get
    Return s_intValue
  End Get
  End Property

  Public ReadOnly Property strName() As String
    Get
    Return s_strName
  End Get
  End Property
End Class

■ASPXのソース
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="WebForm8.aspx.vb" Inherits="WebApplication2.WebForm8"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
 <HEAD>
  <title>WebForm8</title>
  <meta content="Microsoft Visual Studio .NET 7.1" name="GENERATOR">
  <meta content="Visual Basic .NET 7.1" name="CODE_LANGUAGE">
  <meta content="JavaScript" name="vs_defaultClientScript">
  <meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
 </HEAD>
 <body MS_POSITIONING="GridLayout">
  <form id="Form1" method="post" runat="server">
   <asp:repeater id="Repeater1" runat="server">
    <HeaderTemplate>
     <table border="1">
      <tr>
       <td>
        選択
       </td>
       <td>
        データ
       </td>
      </tr>
    </HeaderTemplate>
    <ItemTemplate>
     <tr>
      <td>
       <asp:Literal ID="ltlSelect">
        <input runat="server" type=radio name = "select"  value ='<%# DataBinder.Eval(Container.DataItem, "intValue") %>'/>
       </asp:Literal>
      </td>
      <td>
       <%# DataBinder.Eval(Container.DataItem, "strName") %>
      </td>
     </tr>
    </ItemTemplate>
    <FooterTemplate>
     </table>
    </FooterTemplate>
   </asp:repeater>
   <asp:Button id="btnData" Text="何番目？" runat="server"></asp:Button><br>
   <asp:Label id="Label1" runat="server">が選択されました</asp:Label>
  </form>
 </body>
</HTML>

THREE-ONEさん＞
　必ず1件のみの選択としたいのでぼのぼのさん方式！でいきたいと思います。

■No1954 (THREE-ONE さん) に返信
> PostBack 時に、Request["select"] で選択された値が取得できると思いますよ。
細かいですが、VBなのでRequest("select")ですね。

■No1946 (かのかの さん) に返信
> ぼのぼのさん＞
> 　ItemDataBoundにコンテナをうめこんで表示をすることはできました！

おめでとうございます（＾＾
でも私が当初想定してた方法と微妙に違いますね。
＃勿論違うことに問題はありません。正解はひとつじゃないですから。
当初想定してたのは、aspxには

  <asp:Literal ID="ltlSelect" runat="server"></asp:Literal>

とだけ書いておいて、サーバ側(aspx.vb)のRepeater1_ItemDataBoundで

  DirectCast(e.Item.FindControl("ltlSelect"), Literal).Text = "<input type=radio ... />"

みたく書く、というものでした。

かのかのさんの方法ならLiteralは必要ありません。
あとラジオボタンにrunat="server"つけちゃダメです。

>        <asp:Literal ID="ltlSelect">
>         <input runat="server" type=radio name = "select"  value ='<%# DataBinder.Eval(Container.DataItem, "intValue") %>'/>
>        </asp:Literal>

この部分は、

          <input type=radio name = "select"  value ='<%# DataBinder.Eval(Container.DataItem, "intValue") %>'/>

これだけでおｋ。
ただしこれだけだとPostBack後にチェックが消えちゃうと思います。
そこで、こうゆうふうにしてみてください。

         <input type=radio name = "select"  value ='<%# DataBinder.Eval(Container.DataItem, "intValue") %>'
          <%# IIf(Request("select") = DataBinder.Eval(Container.DataItem, "intValue"), "checked", "") %> />

なぜこれでうまくいくかは、じっくり考えればわかると思います。