为DataGrid添加CheckBox控件 (转)[@more@]<a href="leibie-11-1.html">web</a></a>.CheckBoxDataGrid" %>
w3c</a>//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>为DataGrid添加CheckBox控件的例子</title>
<meta name="GENERATOR" content="a href="tag-126-1.html""">microsoft</a> <a href="tag-39-1.html">Visual Studio</a>.NET 7.0">
<meta name="CODE_LANGUAGE" content="a href="tag-50-1.html"""><a href="leibie-7-1.html">Visual Basic</a></a> 7.0">
<meta name="vs_defaultClientScript" content="a href="tag-133-1.html"""><a href="tag-10-1.html"><a href="leibie-1-1.html">Java</a></a>script</a>">
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/a href="tag-340-1.html""">intel</a>lisense/<a href="tag-393-1.html">IE5</a>">
</HEAD>
<body>
<fo href="tag-415-1.html">RM </a>id="frmMain" method="post" runat="server">
<asp id="dgMain" runat="server" width="98%" autogeneratecolumns="False">
select</a>edItemStyle Font-Size="9pt" Font-Names="宋体"></SelectedItemStyle>
<EditItemStyle font-size="9pt" font-names="宋体" font-bold="True" forecolor="Red" backcolor="Info"/"">
<AlternatingItemStyle font-size="9pt" font-names="宋体" forecolor="ControlText" backcolor="White"/"">
<ItemStyle font-size="9pt" font-names="宋体" forecolor="ControlText" backcolor="WhiteSmoke"/"">
<HeaderStyle font-bold="True" horizontalalign="Center" forecolor="Black" verticalalign="Middle" backcolor="Control">
</HeaderStyle>
<Columns>
<asp headertext="操作">
<HeaderStyle horizontalalign="Center" width="50px"></HeaderStyle>
<ItemTemplate>
<asp id="chkExport" runat="server" />
</ItemTemplate>
<EditItemTemplate>
<asp id="chkExportON" runat="server" enabled="true" />
</EditItemTemplate>
</asp>
<asp datafield="id" readonly="True" headertext="序号">
<HeaderStyle width="50px"></HeaderStyle>
</asp>
<asp sortexpression="demo" headertext="标题">
<ItemTemplate>
<asp>'
runat="server"Width="80%" ID="lblColumn"/>
</ItemTemplate>
</asp>
</Columns>
</asp>
<asp id="cmdSelectAll" runat="server" text="全部选中"></asp>
<asp id="cmdFindSelected" runat="server" text="查看选中的项目"></asp>
<br />
<asp id="Label1" runat="server"></asp>
</form>
</body>
</HTML>
Imports System.Data
Imports System.Data.Ole<a href="tag-57-1.html">db</a>
Public Class CheckBoxDataGrid
Inherits System.Web.UI.Page
Protected WithEvents cmdSelectAll As System.Web.UI.WebControls.Button
Protected WithEvents dgMain As System.Web.UI.WebControls.DataGrid
Protected WithEvents cmdFindSelected As System.Web.UI.WebControls.Button
Dim oDataView As DataView
Protected WithEvents Label1 As System.Web.UI.WebControls.Label
Dim <a href="tag-302-1.html">SCO</a>nnectionString As String = "Prov<a href="tag-351-1.html">ide</a>r=Microsoft.Jet.OLEDB.4.0;Data <a href="tag-162-1.html">source</a>="_
+ Server.MapPath("Test.mdb")
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System href="tag-268-1.html">bug</a>gerStepThrough()> Private Sub InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As System.<a href="tag-252-1.html">object</a>, ByVal e As System.EventArgs)_
Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)_
Handles MyBase.Load
'Put user code to initialize the page here
dgMain.Columns(0).HeaderText = "选项"
dgMain.Columns(1).HeaderText = "序号"
dgMain.Columns(2).HeaderText = "标题"
cmdFindSelected.Text = "查看选中的项目"
RefreshGrid()
If Not Page.IsPostBack Then
cmdSelectAll.Text = "全部选中"
dgMain.DataBind()
End If
End Sub
#Region "处理多选"
Private Sub cmdSelectAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)_
Handles cmdSelectAll.Click
selectAll()
End Sub
Private Sub selectAll()
Dim oDataGridItem As DataGridItem
Dim chkExport As System.Web.UI.WebControls.CheckBox
If cmdSelectAll.Text = "全部选中" Then
For Each oDataGridItem In dgMain.Items
chkExport = oDataGridItem.FindControl("chkExport")
chkExport.Checked = True
Next
cmdSelectAll.Text = "全部不选"
Else
For Each oDataGridItem In dgMain.Items
chkExport = oDataGridItem.FindControl("chkExport")
chkExport.Checked = False
Next
cmdSelectAll.Text = "全部选中"
End If
End Sub
#End Region
#Region "<a href="tag-229-1.html">更新</a>DataGrid"
Private Sub RefreshGrid()
Dim oConnection As OleDbConnection
Dim oCommand As OleDbDataAdapter
Dim oDataSet As New DataSet()
Try
Dim s<a href="tag-54-1.html">sql</a> As String = "Select top 5 * from TestTable order by id"
oConnection = New OleDbConnection(sConnectionString)
oCommand = New OleDbDataAdapter(sSQL.ToString, oConnection)
oCommand.Fill(oDataSet, "TestTable")
oDataView = New DataView(oDataSet.Tables("TestTable"))
dgMain.DataSource = oDataView
oConnection.Close()
Catch ex As Exception
'// Place Error Handling here
End Try
End Sub
#End Region
Private Sub cmdFindSelected_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)_
Handles cmdFindSelected.Click
Dim oDataGridItem As DataGridItem
Dim chkExport As System.Web.UI.WebControls.CheckBox
Dim oExArgs As New System.Collections.ArrayList()
Dim sID As String
Label1.Text = ""
For Each oDataGridItem In dgMain.Items
chkExport = oDataGridItem.FindControl("chkExport")
If chkExport.Checked Then
Label1.Text = ""
sID = CType(oDataGridItem.FindControl("lblColumn"), Label).Text
oExArgs.Add(sID)
Dim i As Integer = 0
For i = 0 To oExArgs.Count - 1
Label1.Text += oExArgs(i) + ","
Next
End If
Next
End Sub
End Class
为DataGrid添加CheckBox控件
do.NETplayground.com/">http://lucky_elove.www1.dotnetplayground.com/
ASPx" target=_blank>查看例子
CheckBoxDataGrid.aspx
后代码 CheckBoxDataGrid.aspx.vb
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/10752019/viewspace-957929/ ，如需转载，请注明出处，否则将追究法律责任。
下一篇：
在ASP.NET中实现多文件上传 (转)
请登录后发表评论
登录
全部评论
