创建跨多列、多行表头的DataGrid

类别:.NET开发 点击:0 评论:0 推荐:

创建跨多列、多行表头的DataGrid

孟子E章

在使用DataGrid时,有时候需要表头跨列、多行,下面的代码就是实现这个功能的代码。

查看例子

ShowColSpanHeader.aspx

<%@ Page Language="vb" AutoEventWireup="false" Codebehind="ShowColSpanHeader.aspx.vb" Inherits="aspxWeb.mengxianhui.com.ShowColSpanHeader"%> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML> <HEAD> <title id="lucky_elove" runat=server></title> <meta name="GENERATOR" content="Microsoft Visual Studio.NET 7.0"> <meta name="CODE_LANGUAGE" content="Visual Basic 7.0"> <meta name="vs_defaultClientScript" content="JavaScript"> <meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5"> </HEAD> <body MS_POSITIONING="GridLayout" leftmargin="0"> <form id="Form1" method="post" runat="server"> <TABLE id="Table1" runat="server" cellSpacing="1" cellPadding="2" width="780" border="1" bgcolor="#cc6633" bordercolor="#cc9966" style="FONT-SIZE:9pt;BORDER-BOTTOM:0px"> <TR align="center"> <TD colspan="2" width="580"></TD> <TD width="200" colspan="2"></TD> </TR> <TR align="center"> <TD width="400" bgcolor="#66cc99"></TD> <TD width="180" bgcolor="white"></TD> <TD width="160" bgcolor="#99cccc"></TD> <TD width="40" bgcolor="#009999"></TD> </TR> </TABLE> <asp:DataGrid id="DataGrid1" width="780px" AlternatingItemStyle-BackColor="#6699ff" CellPadding="2" CellSpacing="1" BorderWidth="1" BorderColor="#cc9966" Font-Size="9pt" runat="server" ShowHeader="False" AutoGenerateColumns="False"> <Columns> <asp:BoundColumn DataField="Title"> <ItemStyle Width="400px"></ItemStyle> </asp:BoundColumn> <asp:BoundColumn DataField="CreateDate"> <ItemStyle Width="180px"></ItemStyle> </asp:BoundColumn> <asp:BoundColumn DataField="pid"> <ItemStyle Width="160px"></ItemStyle> </asp:BoundColumn> <asp:BoundColumn DataField="HitCount"> <ItemStyle Width="40px"></ItemStyle> </asp:BoundColumn> </Columns> </asp:DataGrid> </form> </body> </HTML>

ShowColSpanHeader.aspx.vb

Imports System Imports System.Data Imports System.Data.OleDb Public Class ShowColSpanHeader 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 lucky_elove As HtmlControls.HtmlGenericControl #Region " Web Form Designer Generated Code " 'This call is required by the Web Form Designer. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() End Sub 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() 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 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _ + Server.MapPath("Test.mdb") Dim cn As New OleDbConnection(cnString) cn.Open() Dim strSQL As String = "SELECT TOP 20 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

本文地址:http://com.8s8s.com/it/it45592.htm