<%@ Page Language="VB" MasterPageFile="masterpage.master" AutoEventWireup="false" CodeFile="tblScheduledelete.aspx.vb" Inherits="tblScheduledelete" CodeFileBaseClass="AspNetMaker7_tfpssnet" %> <% ' Load records for display Rs = tblSchedule_delete.LoadRecordset() If tblSchedule_delete.lTotalRecs <= 0 Then ' No record found, exit Rs.Close() Rs.Dispose() tblSchedule_delete.Page_Terminate("tblSchedulelist.aspx") ' Return to list End If %>

Delete From TABLE: Schedule

Go Back

<% tblSchedule_delete.ShowMessage() %>

<% For i As Integer = 0 to tblSchedule_delete.arRecKeys.GetUpperBound(0) %> <% Next %>
<%= tblSchedule.TableCustomInnerHTML %> <% tblSchedule_delete.lRecCnt = 0 Do While Rs.Read() tblSchedule_delete.lRecCnt = tblSchedule_delete.lRecCnt + 1 ' Set row properties tblSchedule.CssClass = "" tblSchedule.CssStyle = "" tblSchedule.RowType = EW_ROWTYPE_VIEW ' view ' Get the field contents tblSchedule_delete.LoadRowValues(Rs) ' Render row tblSchedule_delete.RenderRow() %> > > ><%= tblSchedule.schDate.ListViewValue %> > ><%= tblSchedule.schEvtID.ListViewValue %> > ><%= tblSchedule.schPartsID.ListViewValue %> > ><%= tblSchedule.schCallTime.ListViewValue %> > ><%= tblSchedule.schStartTime.ListViewValue %> > ><%= tblSchedule.schEndTime.ListViewValue %> > ><%= tblSchedule.schOutTime.ListViewValue %> > ><%= tblSchedule.schLocID.ListViewValue %> > ><%= tblSchedule.schEmpID.ListViewValue %> > ><%= tblSchedule.schPosID.ListViewValue %> > ><%= tblSchedule.schTypID.ListViewValue %> > ><%= tblSchedule.schActualStart.ListViewValue %> > ><%= tblSchedule.schActualEnd.ListViewValue %> > <% If Convert.ToString(tblSchedule.schDoubleBooked.CurrentValue) = "1" Then %> <% Else %> <% End If %> > ><%= tblSchedule.schStatus.ListViewValue %> <% Loop Rs.Close() Rs.Dispose() %>
Date Event Part Call Time Start Time End Time Out Time Location Employee Position Type Actual Start Actual End Dbl Bkd Status