VB.NET实现DataList横向数据交替变色[转载]

[复制链接]

美美

49 主题	0 听众	59 积分

初级程序员

Rank: 5

性别: 保密
听众数: 0
买家信用
卖家信用
在线时间: 0 小时
相册: 0

发表于 2006-8-7 16:13:00 |显示全部楼层

<%@ Page Language="VB" AutoEventWireup="false" Codebehind="WebForm15.ASPx.vb" Inherits="WebApplication12.WebForm15"%> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML> <HEAD> <title>WebForm15</title> <meta content="Microsoft Visual Studio .net 7.1" name="GENERATOR"> <meta content="Visual Basic .NET 7.1" name="CODE_LANGUAGE"> <meta content="J avaScrip t" name="vs_defaultClientScrip t"> <meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema"> </HEAD> <body MS_POSITIONING="GridLayout"> <form id="Form1" method="post" runat="server"> <asp:datalist id="DataList1" style="Z-INDEX: 101; LEFT: 111px; POSITION: absolute; TOP: 54px" runat="server" RepeatDirection="Horizontal" RepeatColumns="3" Width="234px"> <ItemTemplate> <asp:Label ID="lblmsg" Runat=server Text='<%# DataBinder.Eval(Container.DataItem,"id").ToString() %>'> </asp:Label> </ItemTemplate> <AlternatingItemTemplate> <asp:Label ID="Label2" Runat=server Text='<%# DataBinder.Eval(Container.DataItem,"id").ToString() %>'> </asp:Label> </AlternatingItemTemplate> </asp:datalist></form> </body> </HTML> Imports System Imports System.Data Imports System.Data.oledb Public Class WebForm15Class WebForm15 Inherits System.Web.UI.Page Web 窗体设计器生成的代码#Region " Web 窗体设计器生成的代码 " '该调用是 Web 窗体设计器所必需的。 <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()Sub InitializeComponent() End Sub Protected WithEvents DataList1 As System.Web.UI.WebControls.DataList '注意: 以下占位符声明是 Web 窗体设计器所必需的。 '不要删除或移动它。 Private designERPlaceholderDeclaration As System.Object Private Sub Page_Init()Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init 'CODEGEN: 此方法调用是 Web 窗体设计器所必需的 '不要使用代码编辑器修改它。 InitializeComponent() End Sub #End Region Dim conn As OleDbConnection Dim i As Integer Private Sub Page_Load()Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '在此处放置初始化页的用户代码 conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("data/link.mdb")) Dim cmd As New OleDbDataAdapter("select top 15 id,jj from link", conn) Dim ds As New DataSet cmd.Fill(ds, "tab") DataList1.DataSource = ds.Tables("tab") DataList1.DataBind() End Sub Private Sub DataList1_ItemDataBound()Sub DataList1_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataListItemEventArgs) Handles DataList1.ItemDataBound i = i + 1 If i > 3 And i <= 6 Then e.Item.BackColor = Color.Blue End If If i >= 6 Then i = 0 End If End Sub End Class 　　在补充一下，这里的i>3 and i<=6这个是每行显示三条数据啦.所以这里是3和6,如果您是5条的话，那么就是5和10了,以此类推!

ASP.NET源码下载专区

ASP.NET CMS源码下载专区

ASP.NET快速开发框架下载专区

Asp.net视频教程,asp.net教程,文档下载

JQuery插件,Jquery教程,Jquery ui

ASP.NET Extjs 系列专区

ASP.NET Entity Framework 系列专区

ASP.NET MVC 系列专区

使用道具举报