昨天群里一个网友在说交替行变色的问题
我一看
这很简单啊
不就是设置一下交替项的背景色不就行了吗?本身DataList他的样式也提供设置啊
不会吗?但是他给我说了
他数据是设置一行显示N条数据的
所以如果说设置了那个交替项的背景色的话根本就没用
这样设置了后
变成对项起作用了
就是说一行有N项
然后那个交替色就变成在这N项当中交替了
啊!看来我把问题看简单了!当时我想好像很少遇到过要不自己试试!倒因为最近心情很压抑心情不太好烦没多少心情认真去思考解决方式用常规自己能想到的几种解决都无法实现解决很晕然后逆就索性不去想了晚上听完广播后才又想起我要考虑这个问题呵呵只用了分钟时间就想到了这个解决方式然后逆又用了分钟时间去考证是否可行今天早上来一摆弄就可以起了呵呵!
废话就不多说了这个方法也是我唯一想到的方法如果您有什么更好的方法您也可以在这里给我提出非常感谢!
<%@ Page Language=vb AutoEventWireup=false Codebehind=WebFormaspxvb Inherits=WebApplicationWebForm%>
<!DOCTYPE HTML PUBLIC //WC//DTD HTML Transitional//EN>
<HTML>
<HEAD>
<title>WebForm</title>
<meta content=Microsoft Visual Studio NET name=GENERATOR>
<meta content=Visual Basic NET name=CODE_LANGUAGE>
<meta content=JavaScript name=vs_defaultClientScript>
<meta content=http://schemasmicrosoftcom/intellisense/ie name=vs_targetSchema>
</HEAD>
<body MS_POSITIONING=GridLayout>
<form id=Form method=post runat=server>
<asp:datalist id=DataList style=ZINDEX: ; LEFT: px; POSITION: absolute; TOP: px
runat=server RepeatDirection=Horizontal RepeatColumns= Width=px>
<ItemTemplate>
<asp:Label ID=lblmsg Runat=server Text=<%# DataBinderEval(ContainerDataItemid)ToString() %>>
</asp:Label>
</ItemTemplate>
<AlternatingItemTemplate>
<asp:Label ID=Label Runat=server Text=<%# DataBinderEval(ContainerDataItemid)ToString() %>>
</asp:Label>
</AlternatingItemTemplate>
</asp:datalist></form>
</body>
</HTML>
Imports System
Imports SystemData
Imports SystemDataoledb
Public Class WebFormClass WebForm
Inherits SystemWebUIPage
Web 窗体设计器生成的代码#Region Web 窗体设计器生成的代码
该调用是 Web 窗体设计器所必需的
<SystemDiagnosticsDebuggerStepThrough()> Private Sub InitializeComponent()Sub InitializeComponent()
End Sub
Protected WithEvents DataList As SystemWebUIWebControlsDataList
注意: 以下占位符声明是 Web 窗体设计器所必需的
不要删除或移动它
Private designerPlaceholderDeclaration As SystemObject
Private Sub Page_Init()Sub Page_Init(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles MyBaseInit
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 SystemObject ByVal e As SystemEventArgs) Handles MyBaseLoad
在此处放置初始化页的用户代码
conn = New OleDbConnection(Provider=MicrosoftJetOLEDB; & Data Source= & ServerMapPath(data/linkmdb))
Dim cmd As New OleDbDataAdapter(select top idjj from link conn)
Dim ds As New DataSet
cmdFill(ds tab)
DataListDataSource = dsTables(tab)
DataListDataBind()
End Sub
Private Sub DataList_ItemDataBound()Sub DataList_ItemDataBound(ByVal sender As Object ByVal e As SystemWebUIWebControlsDataListItemEventArgs) Handles DataListItemDataBound
i = i +
If i > And i <= Then
eItemBackColor = ColorBlue
End If
If i >= Then
i =
End If
End Sub
End Class
再补充一下这里的i> and i<=这个我刚才没讲清楚可能您有点困惑呢!
因为我这里是每行显示三条数据啦所以这里是和如果您是条的话那么就是和了以此类推!
