熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> .NET編程 >> 正文

VB.NET實現DataList橫向數據交替變色

2013-11-13 11:05:33  來源: .NET編程 
  昨天群裡一個網友在說交替行變色的問題我一看這很簡單啊不就是設置一下交替項的背景色不就行了嗎?本身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<=這個我剛才沒講清楚可能您有點困惑呢!

  因為我這裡是每行顯示三條數據啦所以這裡是如果您是條的話那麼就是以此類推!


From:http://tw.wingwit.com/Article/program/net/201311/15144.html
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.