實現DataGrid 我分頁的多條記錄的選擇....

原创 2005年03月01日 21:24:00

本文參見孟子e章的<<跨頁實現多選>>C#版http://dotnet.aspx.cc/ShowDetail.aspx?id=F43AF9A5-2C2E-4AA6-E976-21E9569F5A8A

下面是我采用vb.net寫的...

前台頁面部分 : DataGrid_1.aspx

<%@ Page Language="vb" AutoEventWireup="false" Codebehind="DataGrid_1.aspx.vb" Inherits="OA.DataGrid_1" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
 <HEAD>
  <title>DataGrid_1</title>
  <script language="javascript">
 function AddRemoveValues(oChk)
 {
  if(oChk.checked)
  Form1.HdnSelectedValues.value += "," + oChk.value;
  else
  Form1.HdnSelectedValues.value = Form1.HdnSelectedValues.value.replace("," + oChk.value,"");
 }
  </script>
  <meta content="Microsoft Visual Studio .NET 7.1" name="GENERATOR">
  <meta content="Visual Basic .NET 7.1" name="CODE_LANGUAGE">
  <meta content="JavaScript" name="vs_defaultClientScript">
  <meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
 </HEAD>
 <body MS_POSITIONING="GridLayout">
  <form id="Form1" method="post" runat="server">
   <asp:datagrid id="DataGrid1" AllowPaging="True" Runat="server" Visible="true" Width="600px" AutoGenerateColumns="False"
    HorizontalAlign="Center">
    <AlternatingItemStyle BackColor="#EEEEEE"></AlternatingItemStyle>
    <HeaderStyle BackColor="#AAAADDD" Font-Bold="True" HorizontalAlign="Center"></HeaderStyle>
    <PagerStyle HorizontalAlign="Right" Mode="NumericPages"></PagerStyle>
    <Columns>
     <asp:TemplateColumn HeaderText="選擇">
      <ItemTemplate>
       <input type="checkbox" runat=server id="chkSelect" onclick="AddRemoveValues(this)"
     value='<%#DataBinder.Eval(Container.DataItem,"Title")%>'/>
      </ItemTemplate>
     </asp:TemplateColumn>
     <asp:TemplateColumn HeaderText="文章標題">
      <ItemTemplate>
       <asp:Literal Text='<%#DataBinder.Eval(Container.DataItem,"Title")%>' Runat=server ID="Title_show">
       </asp:Literal>
      </ItemTemplate>
     </asp:TemplateColumn>
     <asp:TemplateColumn HeaderText="發布日期">
      <ItemTemplate>
       <asp:Literal Text='<%#DataBinder.Eval(Container.DataItem,"CreateDate").tostring()%>' Runat=server>
       </asp:Literal>
      </ItemTemplate>
     </asp:TemplateColumn>
    </Columns>
   </asp:datagrid>
   <div align="center"><asp:button id="Button1" runat="server" Text="得到所選的值"></asp:button>
    <div id="Status"><asp:label id="Label1" runat="server"></asp:label></div>
    <INPUT id="HdnSelectedValues" type="hidden" name="HdnSelectedValues" runat="server">
   </div>
  </form>
 </body>
</HTML>


後台代碼部分:DataGrid_1.aspx.vb

Public Class DataGrid_1

   Inherits System.Web.UI.Page

 

 

#Region " Web Form Designer Generated Code "

     'This call is required by the Web Form Designer.

     'This call is required by the Web Form Designer.

    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

     End Sub

     End Sub

    Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid

    Protected WithEvents Button1 As System.Web.UI.WebControls.Button

    Protected WithEvents Label1 As System.Web.UI.WebControls.Label

    Protected WithEvents HdnSelectedValues As System.Web.UI.HtmlControls.HtmlInputHidden

 

 

    'NOTE: The following placeholder declaration is required by the Web Form Designer.

    'Do not delete or move it.

    Private designerPlaceholderDeclaration As System.Object

 

 

    Private Sub Page_Init(ByVal sender As System.Object, 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()

        Me.EnableViewState = True

    End Sub

 #End Region

 #End Region

    Private idtb_temp As New DataTable

    Private idtb_temp As New DataTable

    Private idrw_row As DataRow

     Private Sub IntializeDataTable()

     Private Sub IntializeDataTable()

 

 

        For i As Integer = 0 To 60

            idrw_row = idtb_temp.NewRow

            idrw_row.Item("Title") = "AAAA" & i

            idrw_row.Item("CreateDate") = System.DateTime.Now

            idtb_temp.Rows.Add(idrw_row)

        Next

        Me.DataGrid1.DataSource = idtb_temp

        Me.DataGrid1.DataBind()

    End Sub

    End Sub

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    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

        If Not Me.Page.IsPostBack Then

            idtb_temp.Columns.Add("Title")

            idtb_temp.Columns.Add("CreateDate")

            IntializeDataTable()

        End If

     End Sub

     End Sub

      Private Sub DataGrid1_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles DataGrid1.PageIndexChanged

      Private Sub DataGrid1_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles DataGrid1.PageIndexChanged

        Me.DataGrid1.CurrentPageIndex = e.NewPageIndex

        idtb_temp.Columns.Add("Title")

        idtb_temp.Columns.Add("CreateDate")

        IntializeDataTable()

    End Sub

 

 

    Private Sub DataGrid1_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles DataGrid1.ItemDataBound

        If e.Item.ItemType = ListItemType.Item And e.Item.ItemType = ListItemType.AlternatingItem Then

            If Me.HdnSelectedValues.Value.IndexOf(CType(e.Item.Cells(1).FindControl("TitleShow"), Literal).Text) >= 0 Then

                Dim ChkSelected As HtmlInputCheckBox = CType(e.Item.Cells(0).FindControl("chkSelect"), HtmlInputCheckBox)

                ChkSelected.Checked = True

            End If

        End If

    End Sub

 

 

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

        Me.Label1.Text = Me.HdnSelectedValues.Value.Replace(",", "<li>")

        Me.Label1.Text = Me.HdnSelectedValues.Value.Replace(",", "<li>")

     End Sub

     End Sub

End Class

 

效果圖:

  DataGrid 記錄的多頁選擇...  

Hibernate(六)实现一对多、多对一映射关联关系

一对多、多对一这种关系在现实生活中很多,例如部门与员工的关系,学校里班级与学生的关系... 那么在具体的系统实现中如果i实现这种关联关系呢?这里以部门和员工的关系为例。 部门实体类 package t...
  • u011731233
  • u011731233
  • 2015年07月16日 09:12
  • 3417

修改hosts文件实现网页的屏蔽

servlet中的GetremoteAddr是获取远程主机ip的api,可以用来获取请求方的ip地址   ①当访问本机的web应用时GetremoteAddr获取到的是0:0:0:0:0:0:0:...
  • blacktone
  • blacktone
  • 2015年04月09日 21:15
  • 490

Java实现多线程经典问题:使用三个线程实现输出ABCABC循环

使用三个线程实现ABCABC……循环。 代码如下://标记类,用来让三个线程共享,同时也是三个线程中同步代码快的标记对象。 //之前这个标记我设置成Integer,但是发现Integer进行加法运算...
  • LeoSha
  • LeoSha
  • 2015年08月08日 16:05
  • 755

MVC2 Area實現網站多級目錄

Areas是ASP.NET Mvc 2.0版本中引入的众多新特性之一,它可以帮你把一个较大型的Web项目分成若干组成部分,即Area。实现Area的功能可以有两个组织形式: 在1个ASP.NET M...
  • sven_xu
  • sven_xu
  • 2015年06月02日 09:18
  • 233

Jquery選擇器

轉載自:http://www.cnblogs.com/hulang/archive/2011/01/12/1933771.html Query 的选择器可谓之强大无比,这里简单地总结一下常用的元素查...
  • lxl_family
  • lxl_family
  • 2014年12月11日 13:07
  • 375

Java编程基础之多形性

“对于面向对象的程序设计语言,多型性是第三种最基本的特征(前两种是数据抽象和继承。” “多形性”(Polymorphism)从另一个角度将接口从具体的实施细节中分离出来,亦即实现了“是什么”与“怎样...
  • u013189665
  • u013189665
  • 2014年03月17日 21:10
  • 1084

opencv3.10 +LDA线性判别分析举例

opencv3.10 +LDA线性判别分析举例
  • kekong0713
  • kekong0713
  • 2016年12月13日 10:24
  • 352

微信网页版扫码登录原理

微信网页版登陆原理、ajax长轮询、网页聊天
  • zhangnero
  • zhangnero
  • 2017年12月20日 20:18
  • 718

简单日程表的实现

使用了BeautyEye优化界面 简单的日历查询功能 简单的提醒功能(倒计时向)查询界面的实现 package CalendarExp;import org.jb2011.lnf.beautyeye....
  • Len_master
  • Len_master
  • 2016年12月28日 22:05
  • 594

WPF datagrid 全选全不选

前端:         xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"         xmlns:...
  • u011296732
  • u011296732
  • 2016年07月21日 17:08
  • 621
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:實現DataGrid 我分頁的多條記錄的選擇....
举报原因:
原因补充:

(最多只允许输入30个字)