ASP.Net/Data Binding/CheckBoxList

Материал из .Net Framework эксперт
Версия от 11:52, 26 мая 2010; Admin (обсуждение | вклад) (1 версия)
(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

Bind DataTable to asp:CheckBoxList

<%@ Page Language=VB Debug=true %>
<%@ Import Namespace="System.Data" %>
<script runat=server>
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)
        cbl2.DataSource = MyDT
        cbl2.DataBind()
    End If
End Sub
Sub cbl1_Clicked(sender As Object, e As EventArgs)
    Dim i As Integer
    lblMessage.Text = "Preferred office color(s):<BR>"
    For i = 0 To cbl1.Items.Count - 1
        If cbl1.Items(i).Selected Then
            lblMessage.Text = lblMessage.Text _
                & cbl1.Items(i).Text & "<BR>"
        End If
    Next
End Sub
Sub cbl2_Clicked(sender As Object, e As EventArgs)
    Dim i As Integer
    lblMessage2.Text = "ID of Department(s) you work in:<BR>"
    For i = 0 To cbl2.Items.Count - 1
        If cbl2.Items(i).Selected Then
            lblMessage2.Text = lblMessage2.Text _
                & cbl2.Items(i).Value & "<BR>"
        End If
    Next
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>CheckBoxList Control Sample Page</TITLE>
</HEAD>
<BODY  >
<form runat="server">
<Font Face="Tahoma">
<asp:Label
    id="lblMessage"
    runat="server"
    Font-Bold="True"
    Text="Preferred office color(s):"
/>
<asp:CheckBoxList 
    id="cbl1" 
    runat="server"
    CellPadding="5"
    CellSpacing="5"
    RepeatColumns="3"
    RepeatDirection="Vertical"
    RepeatLayout="Table"
    TextAlign="Right"
    AutoPostBack="True"
    OnSelectedIndexChanged="cbl1_Clicked"
>
    <asp:ListItem>Blue</asp:ListItem>
    <asp:ListItem>Red</asp:ListItem>
    <asp:ListItem>Green</asp:ListItem>
    <asp:ListItem>Purple</asp:ListItem>
    <asp:ListItem>Black</asp:ListItem>
    <asp:ListItem>Gold</asp:ListItem>
</asp:CheckBoxList>
<HR>
<asp:Label
    id="lblMessage2"
    runat="server"
    Font-Bold="True"
    Text="ID of Department(s) you work in:<BR>"
/>
<BR>
<asp:CheckBoxList 
    id="cbl2" 
    runat="server"
    AutoPostBack="True"
    OnSelectedIndexChanged="cbl2_Clicked"
    DataTextField="DepartmentName"
    DataValueField="DepartmentID"
    BackColor = "LightYellow"
    ForeColor = "DarkRed"
    BorderColor = "DarkBlue"
    BorderStyle = 8
    TextAlign="Left"
    RepeatLayout="Table"
>
</asp:CheckBoxList>
</Font>
</Form>
</BODY>
</HTML>
Источник — «http://nfex.ru/index.php?title=ASP.Net/Data_Binding/CheckBoxList&oldid=2077»