Hej Jeppe,
Hvis du kan bruge en datalist i stedet kan du gøre noget i den her dur. Jeg har anvendt northwind databasen fra sql server i eksemplet.
Der her er min første post til eksperten og jeg er ikke helt sikker på hvad der sker med formateringen når jeg trykker på \"udfør\" ;-)
Jeg anvender \"onitemdatabound\" til at checke om datoen ændret i forhold til den sidste dato og hvis den er det, så viser jeg en label med den nye dato.
Anyway her er lidt kode :-)
med venlig hilsen
Tony Fabian
--- aspx ----
<form id=\"Form1\" method=\"post\" runat=\"server\">
<asp:DataList id=\"DataList1\" runat=\"server\" onitemdatabound=\"DataList1_ItemDataBound\" borderwidth=\"1\" enableviewstate=\"False\" style=\"Z-INDEX: 101; LEFT: 0px; POSITION: absolute; TOP: 0px\">
<itemtemplate>
<asp:label id=\"TitleLabel\" visible=\"False\" runat=\"server\"></asp:label>
OrderID:
<%# container.DataItem(\"OrderID\") %>
</itemtemplate>
</asp:DataList>
</form>
---- code behind aspx.vb ----
Imports System.data
Imports System.Data.SqlClient
Public Class WebForm2
Inherits System.Web.UI.Page
Protected WithEvents DataList1 As System.Web.UI.WebControls.DataList
Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
#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
Dim MyCurrentDate As DateTime = #1/1/1900#
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not Page.IsPostBack Then
Dim myConnection As SqlConnection
Dim myCommand As SqlCommand
Dim myReader As SqlDataReader
Dim mySQL As String
Dim myConnectionString As String
mySQL = \"Select OrderID, OrderDate from Orders order by orderdate\"
myConnectionString = \"server=localhost;uid=sa;pwd=;database=NorthWind\"
myConnection = New SqlConnection(myConnectionString)
myCommand = New SqlCommand(mySQL, myConnection)
myConnection.Open()
myReader = myCommand.ExecuteReader()
DataList1.DataSource = myReader
DataList1.DataBind()
End If
End Sub
Public Sub DataList1_ItemDataBound(ByVal sender As System.Object, ByVal e As DataListItemEventArgs)
If (e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem) Then
Dim OrderDate As DateTime
OrderDate = e.Item.DataItem(\"OrderDate\")
If (DateDiff(DateInterval.Day, OrderDate, MyCurrentDate) <> 0) Then
Dim SeperatorLabel As Label = CType(e.Item.FindControl(\"TitleLabel\"), Label)
SeperatorLabel.Text = \"<span style=\'color:red\'>Ordre for: \" & OrderDate & \"</span><br>\"
SeperatorLabel.Visible = True
MyCurrentDate = OrderDate
End If
End If
End Sub
End Class
