vb.net_asp.net跨栏表头_滚动表体的DataGrid的实现

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

ShowFixHeader.aspx
<%@ Page Language="vb" EnableViewState="False" AutoEventWireup="false" Codebehind="ShowFixHeader.aspx.vb" Inherits="vb1.ShowFixHeader"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
  <HEAD>
    <title id="northsnow_title" 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">
    <table align="center">
      <tr>
        <td>
          <form id="Form1" method="post" runat="server">
            <TABLE id="Table1" runat="server" cellSpacing="1" cellPadding="2" width="720" border="1"
             bgcolor="#cc6633" bordercolor="#cc9966" style="FONT-SIZE:9pt;BORDER-BOTTOM:0px">
              <TR align="center">
                <TD colspan="2" width="430"></TD>
                <TD width="190" colspan="2"></TD>
              </TR>
              <TR align="center">
                <TD width="360" bgcolor="#66cc99"></TD>
                <TD width="180" bgcolor="white"></TD>
                <TD width="140" bgcolor="#99cccc"></TD>
                <TD width="40" bgcolor="#009999"></TD>
              </TR>
            </TABLE>
            <div style="BORDER:0px;PADDING:0px;MARGIN:0px;OVERFLOW:auto;WIDTH:736px;HEIGHT:200px">
              <asp:DataGrid id="DataGrid1" width="720px" CellPadding="2" CellSpacing="1"
               BorderColor="#cc9966" Font-Size="9pt" AlternatingItemStyle-BackColor="#6699ff"
               runat="server" ShowHeader="False" AutoGenerateColumns="False">
                <Columns>
                  <asp:BoundColumn DataField="Title">
                    <ItemStyle Width="360px"></ItemStyle>
                  </asp:BoundColumn>
                  <asp:BoundColumn DataField="CreateDate">
                    <ItemStyle Width="180px" HorizontalAlign="Center"></ItemStyle>
                  </asp:BoundColumn>
                  <asp:BoundColumn DataField="Author">
                    <ItemStyle Width="140px" HorizontalAlign="Center"></ItemStyle>
                  </asp:BoundColumn>
                  <asp:BoundColumn DataField="HitCount">
                    <ItemStyle Width="40px" HorizontalAlign="Center"></ItemStyle>
                  </asp:BoundColumn>
                </Columns>
              </asp:DataGrid>
            </div>
          </form>
        </td>
      </tr>
    </table>
  </body>
</HTML>
ShowFixHeader.aspx.vb
Imports System
Imports System.Data
Imports System.Data.OleDb
Public Class ShowFixHeader
    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 northsnow_title 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
        northsnow_title.InnerText = "NorthSnow Home - 跨栏表头,滚动表体的DataGrid的实现"
        Table1.Rows(0).Cells(0).InnerText = "NorthSnow Home Article"
        Table1.Rows(0).Cells(1).InnerText = "VB.net + Asp.Net"
        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://blog.csdn.net/precipitant/')")
        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 Title,CreateDate,Author,HitCount " + "FROM Document  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 > 20 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, 20) + "…"
            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/it41549.htm