I am trying use a repeater to process through the results of a sql query and produce a table that may or may not have multiple rows per record in the query, depending upon whether the technicians have added notes to their work. I can not get the OnItemDataBound event to fire for the repeater control. I have created a scaled-down version of what it is that I am trying to accomplish just to make it easier to read. This does not work either. The code was based on MSKB article 317429. The trimmed down code should do nothing more that list the first data item in each record down the page
Just to eliminate potential problems, I did write the sql command out to the screen as well. I then cut and paste the code into the Query Analyzer to make sure that it was not an issue with the query itself
TestRepeater.as p
--------------------
<%@ Page Language="vb" AutoEventWireup ="false" Codebehind="Tes tRepeater.aspx. vb" Inherits="MM200 3.TestRepeater" %><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><HTML><HEAD ><title>TestRep eater</title><meta name="GENERATOR " content="Micros oft Visual Studio .NET 7.1"><meta name="CODE_LANG UAGE" content="Visual Basic .NET 7.1"><meta name="vs_defaul tClientScript" content="JavaSc ript"><meta name="vs_target Schema" content="http://schemas.microso ft.com/intellisense/ie5"></HEAD><body><for m id="Form1" method="post" runat="server"> <P><asp:Label id="lblMessage " runat="server"> </asp:Label></P><asp:Repeate r id="rptWOTime" runat="server" OnItemDataBound ="rptWOTime_Ite mDataBound"><It emTemplate><asp :Literal ID="litWOTime" Runat=server></asp:Literal></ItemTemplate></asp:Repeater></form></body></HTML
TestRepeater.as px.v
------------------------
Imports System.Dat
Imports System.Data.Com mo
Imports System.Data.Sql Clien
Public Class TestRepeate
Inherits System.Web.UI.P ag
#Region " Web Form Designer Generated Code
'This call is required by the Web Form Designer
<System.Diagnos tics.DebuggerSt epThrough()> Private Sub InitializeCompo nent(
End Su
Protected WithEvents rptWOTime As System.Web.UI.W ebControls.Repe ate
Protected WithEvents lblMessage As System.Web.UI.W ebControls.Labe
'NOTE: The following placeholder declaration is required by the Web Form Designer
'Do not delete or move it
Private designerPlaceho lderDeclaration As System.Objec
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArg s) Handles MyBase.Ini
'CODEGEN: This method call is required by the Web Form Designe
'Do not modify it using the code editor
InitializeCompo nent(
End Su
#End Regio
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArg s) Handles MyBase.Loa
Dim conMM As SqlConnectio
Dim cmdMM As SqlComman
Dim dtrMM As SqlDataReade
Dim strWork As Strin
Dim strWONum As String = "6958
Dim strAccountID As String = "SAMP
conMM = New SqlConnection(S ession("MMWACon nStr")
strWork = "select convert(char,Da teOfService,101 ) as DateOfService, " &
"TimeIn, HoursWorked, " &
"isnull(LastNam e,'') as LastName, isnull(FirstNam e,'') as FirstName, " &
"isnull(WorkPer formedName,'') as WorkPerformedNa me, " &
"isnull(LaborNo tes,'') as LaborNotes " &
"from " & Session("MMWADB Name") & "..tblWOHou rs hours " &
"left outer join " & Session("MMWADB Name") & "..tblTechnicia ns techs " &
"on techs.TechID = hours.TechID " &
"left outer join " & Session("MMWADB Name") & "..tblCBO_WorkP erformed wp " &
"on wp.WorkPerforme dID = hours.WorkPerfo rmedID " &
"where WONum = " & strWONum & " and " &
"PatriotAccount ID = '" & strAccountID & "' " &
"order by DateOfService, TimeIn
conMM.Open(
cmdMM = New SqlCommand(strW ork, conMM
dtrMM = cmdMM.ExecuteRe ader(
lblMessage.Text = strWor
If Not dtrMM.Read The
lblMessage.Text &= "<br><br>No records found"
Else
lblMessage.Text &= "<br><br>Record s were found"
rptWOTime.DataS ource = dtrMM
rptWOTime.DataB ind()
End If
dtrMM.Close()
conMM.Close()
End Sub
Sub rptWOTime_ItemD ataBound(ByVal sender As Object, ByVal e As RepeaterItemEve ntArgs)
If e.Item.ItemType = ListItemType.It em Or _
e.Item.ItemType = ListItemType.Al ternatingItem Then
Dim dbr As DbDataRecord = CType(e.Item.Da taItem, DbDataRecord)
Dim litWOTime As Literal = e.Item.FindCont rol("litWOTime" )
litWOTime.Text = dbr("DateOfServ ice") & "<BR>"
End If
End Sub
End Class
