ITPub博客

首页 > 数据库 > 数据库开发技术 > 创建固定表头、表格体滚动的DataGrid (转)

创建固定表头、表格体滚动的DataGrid (转)

原创 数据库开发技术 作者:gugu99 时间:2007-12-11 12:37:06 0 删除 编辑
创建固定表头、表格体滚动的DataGrid (转)[@more@]

创建固定表头、表格体滚动的DataGrid

do.NETplayground.com/">孟子E章

在使用DataGrid时,有时候需要表头表头固定、表格体的内容可以滚动,下面的代码就是实现这个功能的代码。

ASPx" target=_blank>查看例子

ShowFixedHeader.aspx

<a href="leibie-11-1.html">web</a></a>.mengxianhui.com.ShowFixedHeader"%> w3c</a>//DTD HTML 4.0 Transitional//EN"> <HTML> <HEAD> <title id="lucky_elove" runat="server"></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 leftmargin="0"> <fo href="tag-415-1.html">RM </a>id="Form1" method="post" runat="server"> <asp id="DataGrid1" width="720px" cellpadding="2" cellspacing="1" bordercolor="#cc9966" font-size="9pt" alternatingitemstyle-backcolor="#6699ff" runat="server" showheader="False" autogeneratecolumns="False"> <Columns> <asp datafield="Title"> <ItemStyle width="360px"></ItemStyle> </asp> <asp datafield="CreateDate"> <ItemStyle width="180px" horizontalalign="Center"></ItemStyle> </asp> <asp datafield="pid"> <ItemStyle width="140px" horizontalalign="Center"></ItemStyle> </asp> <asp datafield="HitCount"> <ItemStyle width="40px" horizontalalign="Center"></ItemStyle> </asp> </Columns> </asp> </form> </body> </HTML>

ShowFixedHeader.aspx.vb

Imports System Imports System.Data Imports System.Data.Ole<a href="tag-57-1.html">db</a> Public Class ShowFixedHeader Inherits System.Web.UI.Page Protected WithEvents Table1 As System.Web.UI.HtmlControls.HtmlTable Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid Protected WithEvents Form1 As System.Web.UI.HtmlControls.HtmlForm Protected WithEvents lucky_elove As HtmlControls.HtmlGenericControl #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 lucky_elove.InnerText = "【孟宪会之精彩世界】 - 跨栏表头的实现" Table1.Rows(0).Cells(0).InnerText = "【孟宪会之精彩世界】.NET版本之最新文章" Table1.Rows(0).Cells(1).InnerText = "文章信息" Table1.Rows(1).Cells(0).InnerText = "文章标题" Table1.Rows(1).Cells(1).InnerText = "发布时间" Table1.Rows(1).Cells(2).InnerText = "所属栏目" Table1.Rows(1).Cells(3).InnerText = "点击率" Table1.Rows(0).Style.Add("color", "white") Table1.Rows(0).Style.Add("font-weight", "bold") Table1.Rows(0).Cells(0).Attributes.Add("onclick",_ "window.open('http://lucky_elove.www1.dotnetplayground.com/')") Table1.Rows(0).Cells(0).Style.Add("cursor", "hand") Try Dim cnString 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") Dim cn As New OleDbConnection(cnString) cn.Open() Dim str<a href="tag-54-1.html">sql</a> As String = "<a href="tag-73-1.html">select</a> TOP 30 D.Title,D.CreateDate,S.Title as pid,D.HitCount "_ + "FROM Document D INNER JOIN Subject S ON D.pid = S.id ORDER BY CreateDate DESC" Dim cmd As New OleDbCommand(strSQL, cn) DataGrid1.DataSource = cmd.ExecuteReader DataGrid1.DataBind() cn.Close() cn = Nothing Catch eOle As OleDbException Response.Write("产生错误:" + eOle.Message) End Try 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 Or e.Item.ItemType = ListItemType.AlternatingItem Then If e.Item.Cells(0).Text.Length > 26 Then e.Item.Cells(0).Attributes.Add("Title", e.Item.Cells(0).Text) e.Item.Cells(0).Text = e.Item.Cells(0).Text.Substring(0, 26) + "…" End If e.Item.Cells(1).Text = Format(System.Convert.ToDateTime(e.Item.Cells(1).Text),_ "yyyy年M月d日 h点m分s秒") End If End Sub End Class

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10748419/viewspace-991314/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    3122
  • 访问量
    2226441