在使用DataGrid时，有时候需要表头表头固定、表格体的内容可以滚动，下面的代码就是实现这个功能的代码。
查看例子
ShowFixedHeader.aspx
<![CDATA[<meta http-equiv="Content-Type" content="text/html;charset=UTF-8">
<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">]]>
ShowFixedHeader.aspx.vb
<![CDATA[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.
<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 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
</system.diagnostics.debuggerstepthrough>]]>