<%@ Page Language="vb" Debug="true" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script language="VB" runat="server">
dim MyConnection As OleDbConnection
Sub Page_Load(s As Object, E As EventArgs)
MyConnection = New OleDbConnection( "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=c:\inetpub\wwwroot\nhonline\datagrid\kk.mdb")
If Not (IsPostBack) then
BindDataGrid()
End If
End Sub
Sub BindDataGrid()
dim dadTitles as OleDbDataAdapter
dim dstTitles as DataSet
dadTitles=new OleDbDataAdapter("select * from [min] order by id desc",MyConnection)
dstTitles=new DataSet
dadTitles.fill(dstTitles)
MyDataGrid.DataSource=dstTitles
MyDataGrid.DataBind()
End Sub
Sub Mydatagrid_PageIndexChanged(s as object,e as DataGridPageChangedEventargs)
MyDataGrid.CurrentPageIndex=e.newPageIndex
BindDataGrid()
End Sub
Sub btnSelect_OnClick(ByVal sender As Object, ByVal e As EventArgs)
Dim myDataGridItem As DataGridItem
Dim chkSelected As System.Web.UI.WebControls.CheckBox
Dim strBoardType As String
Dim strBoardID As String
lblSelect.Text = "<br>You selected the Following items:<br><br>"
lblStatus.Text=""
For Each myDataGridItem In MyDataGrid.Items
chkSelected = myDataGridItem.FindControl("chkSelection")
If chkSelected.Checked Then
lblSelect.visible=true
strBoardType= CType(myDataGridItem.FindControl("lblBoardType"), Label).Text
strBoardID = CType(myDataGridItem.FindControl("hdnBoardid"), Label).Text
lblStatus.Text += "The id is <b>" & strBoardType & "</b>"
lblStatus.Text += " and the id is <b>" & strBoardID & "</b><br>"
else
lblSelect.visible=false
End If
Next
End Sub
</script>
<html>
<head><title>DataGrid_CheckBox.aspx</title></head>
<body>
<link rel="stylesheet" href="css.css" type="text/css">
<form runat="server">
<TABLE style="BORDER-COLLAPSE: collapse" borderColor="WHITE" BgColor="#e4eaf2" cellSpacing="0" cellPadding="0" width="300" align="left" border="1">
<TR>
<TD>
<input type="button" id="btnSelect" OnServerClick="btnSelect_OnClick" value="Selected_ID" runat="server">
</td>
</TR>
<tr><td>
<asp:DataGrid id="MyDataGrid"
width="300"
Runat="server"
AllowPaging="true"
pageSize="5"
OnPageIndexChanged="Mydatagrid_PageIndexChanged"
cellPadding="3"
AutoGenerateColumns="false"
HeaderStyle-BackColor="#ff0000"
HeaderStyle-Font-Bold="True"
HeaderStyle-Font-Name="Verdana"
HeaderStyle-Font-Size="13px"
HeaderStyle-ForeColor="#ffffff"
ItemStyle-BackColor=Beige
ItemStyle-Font-Name="verdana"
ItemStyle-Font-Size="13px"
>
<PagerStyle Mode="NumericPages"
Font-Bold="true"
BackColor="#FFCC99"
HorizontalAlign="right"
Font-Size="Large"
>
</PagerStyle>
<Columns>
<asp:TemplateColumn HeaderStyle-HorizontalAlign=Center HeaderText="X">
<ItemTemplate>
<asp:Checkbox ID="chkSelection" Runat=server />
<asp:Label ID="hdnBoardid" Visible="False" Text='<%# DataBinder.Eval(Container.DataItem, "id") %>' Runat=server />
</ItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText="ID">
<ItemTemplate>
<asp:Label ID="lblBoardType" Text='<%# DataBinder.Eval(Container.DataItem, "id") %>' Runat=server />
</ItemTemplate>
</asp:TemplateColumn>
</Columns>
</asp:DataGrid>
</td></tr>
<tr><td>
<asp:Label ID="lblSelect"
Font-Name="verdana"
Font-Size="12px"
ForeColor="#ff0000"
Runat=server
enableviewstate="false"/>
<asp:Label ID="lblStatus"
Font-Name="verdana"
Font-Size="12px"
ForeColor="#ff0000"
Runat=server
enableviewstate="false"/>
</td></tr>
</table>
</form>
</body>
</html>