• λ我爱Aspx >> VB.Net >> vb.net创建跨多列、多行表头的DataGrid

    • vb.net创建跨多列、多行表头的DataGrid

  • :csdn blog  Դ:csdn blog  :2007-9-26 15:23:57  ؼ:vb.net创建跨多列、多行表头的DataGrid

  • 在使用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
    Web Form Designer Generated Code

          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
    Ҷƪл˵?
  • һƪ没有了!
    һƪvb.net封装组件成com的方法