创建跨多列、多行表头的DataGrid
点击次数：21 次 发布日期：2008-11-26 14:32:30 作者：源代码网
|
源代码网推荐 源代码网推荐 查看例子 源代码网推荐 源代码网推荐 ShowColSpanHeader.ASPx 源代码网推荐 源代码网推荐 <%@ Page Language="<a href="http://dev.21tx.com/language/vb/" target="_blank">VB</a>" AutoEventWireup="false" Codebehind="ShowColSpanHeader.aspx.vb" 源代码网推荐 Inherits="aspx<a href="http://dev.21tx.com/web/" target="_blank">Web</a>.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<a href="http://dev.21tx.com/dotnet/" target="_blank">.net</a> 7.0"> 源代码网推荐 <meta name="CODE_LANGUAGE" content="Visual Basic 7.0"> 源代码网推荐 <meta name="vs_defaultClientScript" content="<a href="http://dev.21tx.com/web/javascript/" target="_blank">JavaScript</a>"> 源代码网推荐 <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 源代码网推荐 源代码网推荐 源代码网推荐 做人要厚道，请注明转自酷网动力(www.ASPCOOL.COM)。 源代码网推荐 源代码网供稿. |
