创建固定表头、表格体滚动的DataGrid
作者：孟宪会 出自：【孟宪会之精彩世界】 发布日期：2003年6月11日 7点49分48秒
在使用DataGrid时，有时候需要表头表头固定、表格体的内容可以滚动，下面的代码就是实现这个功能的代码。
ShowFixedHeader.aspx
ShowFixedHeader.aspx.vb
Imports System
Imports System.Data
Imports System.Data.OleDb
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.
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 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
结果如下：
