為DataGrid新增CheckBox控制元件 (轉)[@more@]

為DataGrid新增CheckBox

playground.com/">

x" target=_blank>檢視例子

CheckBoxDataGrid.

.CheckBoxDataGrid" %> w3c//DTD HTML 4.0 Transitional//EN"> <title>為DataGrid新增CheckBox控制元件的例子</title> <meta name="GENERATOR" content="a href=" tag-126-1.html="">microsoft .NET 7.0"> <meta name="CODE_LANGUAGE" content="a href=" tag-50-1.html=""> 7.0"> <meta name="vs_defaultClientScript" content="a href=" tag-133-1.html="">script"> <meta name="vs_targetSchema" content=" href=" tag-340-1.html="">intellisense/"> <fo href="http://blog.itpub.net/10752019/viewspace-957929/tag-415-1.html">RM id="frmMain" method="post" runat="server"> edItemStyle Font-Size="9pt" Font-Names="宋體"> <edititemstyle font-size="9pt" font-names="宋體" font-bold="True" forecolor="Red" backcolor="Info"> 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 nnectionString As String = "Provr=Microsoft.Jet.OLEDB.4.0;Data ="_ + Server.MapPath("Test.mdb") #Region " Web Form Designer Generated Code " 'This call is required by the Web Form Designer. <system href="http://blog.itpub.net/10752019/viewspace-957929/tag-268-1.html">buggerStepThrough()> Private Sub InitializeComponent() End Sub Private Sub Page_Init(ByVal sender As System., 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 "DataGrid" Private Sub RefreshGrid() Dim oConnection As OleDbConnection Dim oCommand As OleDbDataAdapter Dim oDataSet As New DataSet() Try Dim s 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 </system></edititemstyle></fo>

為DataGrid新增CheckBox控制元件 (轉)

相關文章