<%@ Page Language=VB Debug=true %> <%@ Import Namespace="System.Data" %> Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs) If Not IsPostBack Then Dim MyDT As New DataTable Dim MyRow As DataRow MyDT.Columns.Add(New DataColumn("DepartmentID", _ GetType(Int32))) MyDT.Columns.Add(New DataColumn("DepartmentName", _ GetType(String))) MyRow = MyDT.NewRow() MyRow(0) = 1 MyRow(1) = "Marketing" MyDT.Rows.Add(MyRow) MyRow = MyDT.NewRow() MyRow(0) = 2 MyRow(1) = "Sales" MyDT.Rows.Add(MyRow) MyRow = MyDT.NewRow() MyRow(0) = 3 MyRow(1) = "Support" MyDT.Rows.Add(MyRow) MyRow = MyDT.NewRow() MyRow(0) = 4 MyRow(1) = "Customer Service" MyDT.Rows.Add(MyRow) rbl2.DataSource = MyDT rbl2.DataBind() rbl2.Items(3).Selected=True End If End Sub Sub rbl1_Clicked(sender As Object, e As EventArgs) lblMessage.Text = "Preferred office color: " _ & rbl1.SelectedItem.Text & " " End Sub Sub rbl2_Clicked(sender As Object, e As EventArgs) lblMessage2.Text = "ID of Department you work in: " _ & rbl2.SelectedItem.Value & " " End Sub
RadioButtonList Control Sample Page
id="lblMessage" runat="server" Font-Bold="True" Text="Preferred office color:" /> id="rbl1" runat="server" CellPadding="5" CellSpacing="5" RepeatColumns="3" RepeatDirection="Vertical" RepeatLayout="Table" TextAlign="Right" AutoPostBack="True" OnSelectedIndexChanged="rbl1_Clicked" > Blue Red Green Purple Black Gold