change back color

I would like to change the back color of a cell in a grid to red.  I currently enter row("timein_time") = "No Hours Entered " in the cell but would also like ot change it to red.  How can I do ths please.

Thank you

row("dayofweek")=strnowdate
                  row("timein_date") = dtnow.ToString("MM/dd/yyyy")
                  row("timein_time") = "No Hours Entered "
                  CHANGE BACK COLOR TO READ FOR TIMEIN_TIME
                  ds.Tables(0).Rows.InsertAt(row, j)
                  dtnow = dtnow.adddays(+1)         
                  
                  'Add 1 to j
                  j = j + 1
running32Asked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Wayne Taylor (webtubbs)Commented:
running32,

Can you please provide more information, like what control you are using, which version of VB.Net, etc?

Wayne
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
running32Author Commented:
I am using vs2003 with vb.net on an aspx page.

I am reading a dataset and testing to see if there is no time entered.   If there is a time I need to change the cell behind the wording No Hours Entered to red.  Attached is the code for the page.  thanks


<LINK href="styles.css" rel="stylesheet">
                  <script language="VB" runat="server">
                  

Dim ds As New DataSet
            
dim flag as boolean      
dim flag2 as boolean      
dim tothours            
dim objCmd as New SqlCommand
Dim objRdr as SqlDataReader
Dim objConn as New SqlConnection("Server=bc-gps;uid=sa;pwd=access;Database=TimeClockPlus;")
'Dim objConn as New SqlConnection("Server=jcleary;uid=sa;pwd=bolder;Database=TimeClockPlus;")
Dim strCmd As String
dim count
Private Sub dgAddressBook_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs)
     
  End Sub

      
      
      
Sub Page_Load()
      If Not IsPostBack Then
            BindData()
      End If
End Sub

Sub BindData()
'Declare all variables to use
dim compdate as datetime
dim comdate as string
Dim curdatetime As DateTime
Dim curdate as string
Dim testdatetime As DateTime
Dim testdate as string
Dim dtnow as date
dim getusername as string
Dim j As Integer = 0
Dim k As Integer = 0
Dim l As Integer = 0
Dim h As Integer = 1
Dim nowdate
dim prevdate as datetime
dim strday
dim dayname      
dim strfname, strlname
dim objCmd as New SqlCommand
Dim objRdr as SqlDataReader
Dim objConn as New SqlConnection("Server=bc-gps;uid=sa;pwd=access;Database=TimeClockPlus;")
objCmd.CommandText = "select el.FirstName,el.LastName, el.employeeid  from employeelist as el where el.employeeid = '" & Request.Querystring("lngempid") & "'"

objCmd.Connection = objConn
objCmd.Connection = objConn
objConn.close
objconn.open
objRdr = objCmd.ExecuteReader()

while objRdr.Read
strfname =objRdr("FirstName")
strlname =objRdr("LastName")

end while
Label6.text = strfname & " " & strlname



dim datevar
'Open Connection
'objConn.Open()
'Get date 2 days prior to current date
dim priorweek as datetime = now.adddays(-8)
dim priorweekend as datetime = now.adddays(-2)
dim priorweestart as datetime = now.adddays(-3)
Dim currentdate As DateTime = Now.AddDays(-1)
datevar = 2
dim strdayofweek as string
strdayofweek =  now.dayofweek
if strdayofweek = 1 then
currentdate  = Now
datevar = 1
dgAddressBook2.visible = true
'label8.visible = true
label7.visible = true
end if
if strdayofweek = 2 then
currentdate  = Now.AddDays(-1)
datevar = 2
end if
if strdayofweek = 3 then
currentdate  = Now.AddDays(-2)
datevar = 3
end if
if strdayofweek = 4 then
currentdate  = Now.AddDays(-3)
datevar = 4
end if
if strdayofweek = 5 then
currentdate  = Now.AddDays(-4)
datevar = 5
end if
Dim strCurrentdate As String = currentdate.ToString("MM/dd/yyyy") 'ANSI format the date
strday = now.ToString("dd")
dim strmon
strmon = now.ToString("mm")




dim query, query1
'Dim objConn as New SqlConnection("Server=jcleary;uid=sa;pwd=bolder;Database=TimeClockPlus;")
      'objconn.open      

objConn.close
objconn.open
if flag = true then
query="select eh.recordid, firstname + ' ' +  lastname as name,timein, timeout,  Convert(VARCHAR(5),timeOut - timein,14) as timediff, DATENAME(weekday, timein)as dayofweek, CONVERT(VARCHAR(11), timein, 101) AS timein_date,RIGHT(CONVERT(varchar(19),timein, 100), 7) AS timein_time,(CASE WHEN RIGHT(CONVERT(varchar(19),timeout, 100), 7) is null THEN CONVERT(VARCHAR,'NO TIME ENTERED') ELSE RIGHT(CONVERT(varchar(19),timeout, 100), 7) END) as Timeout_time, description from employeehours as eh inner join employeelist as el on eh.employeeid = el.employeeid inner join masterjobcodelist as mjc on eh.jobcode = mjc.jobcode where eh.employeeid = '" & Request.Querystring("lngempid") & "' AND (DATEDIFF(d, GETDATE(), CONVERT(datetime, RTRIM(eh.TimeIn))) = 0) order by timein "

'query="select eh.recordid, firstname + ' ' +  lastname as name,timein, timeout,  CONVERT(VARCHAR(11), timein, 101) AS timein_date,RIGHT(CONVERT(varchar(19),timein, 100), 7) AS timein_time,RIGHT(CONVERT(varchar(19),timeout, 100), 7) AS timeout_time, description from employeehours as eh inner join employeelist as el on eh.employeeid = el.employeeid inner join masterjobcodelist as mjc on eh.jobcode = mjc.jobcode where eh.employeeid = '" & eid & "' AND (DATEDIFF(d, GETDATE(), CONVERT(datetime, RTRIM(eh.TimeIn))) = 0) order by timein desc"
else if flag2 = true then
'query="select eh.recordid, firstname + ' ' +  lastname as name,timein, timeout,  CONVERT(VARCHAR(11), timein, 101) AS timein_date,RIGHT(CONVERT(varchar(19),timein, 100), 7) AS timein_time,RIGHT(CONVERT(varchar(19),timeout, 100), 7) AS timeout_time, description from employeehours as eh inner join employeelist as el on eh.employeeid = el.employeeid inner join masterjobcodelist as mjc on eh.jobcode = mjc.jobcode where firstname = '" & strfname & "' and lastname = '" & strlname & "'AND (DATEDIFF(d, GETDATE(), CONVERT(datetime, RTRIM(eh.TimeIn))) = 0) order by timein desc"
query="select eh.recordid, firstname + ' ' +  lastname as name,timein, timeout,   Convert(VARCHAR(5),timeOut - timein,14)  as timediff,DATENAME(weekday, timein)as dayofweek, CONVERT(VARCHAR(11), timein, 101) AS timein_date,RIGHT(CONVERT(varchar(19),timein, 100), 7) AS timein_time,(CASE WHEN RIGHT(CONVERT(varchar(19),timeout, 100), 7) is null THEN CONVERT(VARCHAR,'NO TIME ENTERED') ELSE RIGHT(CONVERT(varchar(19),timeout, 100), 7) END) as Timeout_time , description from employeehours as eh inner join employeelist as el on eh.employeeid = el.employeeid inner join masterjobcodelist as mjc on eh.jobcode = mjc.jobcode where eh.employeeid = '" & Request.Querystring("lngempid")& "'AND (DATEDIFF(d, GETDATE(), CONVERT(datetime, RTRIM(eh.TimeIn))) = 0) order by timein"
else
'query="select eh.recordid, firstname + ' ' +  lastname as name,timein, timeout,  CONVERT(VARCHAR(11), timein, 101) AS timein_date,RIGHT(CONVERT(varchar(19),timein, 100), 7) AS timein_time,RIGHT(CONVERT(varchar(19),timeout, 100), 7) AS timeout_time, description from employeehours as eh inner join employeelist as el on eh.employeeid = el.employeeid inner join masterjobcodelist as mjc on eh.jobcode = mjc.jobcode where firstname = '" & strfname & "' and lastname = '" & strlname & "'and timein  > CONVERT(datetime, '" & strCurrentdate & "', 102) order by timein desc"
'query="select eh.recordid, firstname + ' ' +  lastname as name,timein, timeout,  CONVERT(varchar(10),dateadd(second, datediff(second, timein, timeout), 0),108)  as timediff, CONVERT(VARCHAR(11), timein, 101) AS timein_date,RIGHT(CONVERT(varchar(19),timein, 100), 7) AS timein_time,RIGHT(CONVERT(varchar(19),timeout, 100), 7) AS timeout_time, description from employeehours as eh inner join employeelist as el on eh.employeeid = el.employeeid inner join masterjobcodelist as mjc on eh.jobcode = mjc.jobcode where eh.employeeid = '" & eid & "'and timein  > CONVERT(datetime, '" & strCurrentdate & "', 102) order by timein desc"
query="select eh.recordid, firstname + ' ' +  lastname as name,timein, timeout,   Convert(VARCHAR(5),timeOut - timein,14)   as timediff, DATENAME(weekday, timein)as dayofweek, CONVERT(VARCHAR(11), timein, 101) AS timein_date,RIGHT(CONVERT(varchar(19),timein, 100), 7) AS timein_time,(CASE WHEN RIGHT(CONVERT(varchar(19),timeout, 100), 7) is null THEN CONVERT(VARCHAR,'NO TIME ENTERED') ELSE RIGHT(CONVERT(varchar(19),timeout, 100), 7) END) as Timeout_time, description from employeehours as eh inner join employeelist as el on eh.employeeid = el.employeeid inner join masterjobcodelist as mjc on eh.jobcode = mjc.jobcode where eh.employeeid = '" & Request.Querystring("lngempid") & "'and timein  > CONVERT(datetime, '" & strCurrentdate & "', 102) order by timein"

end if

'query1="select eh.recordid, firstname + ' ' +  lastname as name,timein, timeout,   convert(char(8),dateadd(second,DateDiff(second,timein,timeout),0),14)   as timediff, CONVERT(VARCHAR(11), timein, 101) AS timein_date,RIGHT(CONVERT(varchar(19),timein, 100), 7) AS timein_time,RIGHT(CONVERT(varchar(19),timeout, 100), 7) AS timeout_time, description from employeehours as eh inner join employeelist as el on eh.employeeid = el.employeeid inner join masterjobcodelist as mjc on eh.jobcode = mjc.jobcode where eh.employeeid = '" & eid & "'and CONVERT(VARCHAR(11), timein, 101)  < '" & priorweek  & "' order by timein desc"
'query1="select eh.recordid, firstname + ' ' +  lastname as name,timein, timeout,   convert(char(8),dateadd(second,DateDiff(second,timein,timeout),0),14)   as timediff, CONVERT(VARCHAR(11), timein, 101) AS timein_date,RIGHT(CONVERT(varchar(19),timein, 100), 7) AS timein_time,RIGHT(CONVERT(varchar(19),timeout, 100), 7) AS timeout_time, description from employeehours as eh inner join employeelist as el on eh.employeeid = el.employeeid inner join masterjobcodelist as mjc on eh.jobcode = mjc.jobcode where eh.employeeid = '" & eid & "' and CONVERT(VARCHAR(11), timein, 101)  = convert(varchar(11),dateadd(day,-3,getdate()),101) order by timein desc"
query1="select eh.recordid, firstname + ' ' +  lastname as name,timein, timeout,   Convert(VARCHAR(5),timeOut - timein,14)  as timediff, DATENAME(weekday, timein)as dayofweek, CONVERT(VARCHAR(11), timein, 101) AS timein_date,RIGHT(CONVERT(varchar(19),timein, 100), 7) AS timein_time,(CASE WHEN RIGHT(CONVERT(varchar(19),timeout, 100), 7) is null THEN CONVERT(VARCHAR,'NO TIME ENTERED') ELSE RIGHT(CONVERT(varchar(19),timeout, 100), 7) END) as Timeout_time, description from employeehours as eh inner join employeelist as el on eh.employeeid = el.employeeid inner join masterjobcodelist as mjc on eh.jobcode = mjc.jobcode where eh.employeeid = '" & Request.Querystring("lngempid") & "'and timein  between  CONVERT(datetime, '" & priorweek & "', 102) and CONVERT(datetime, '" & priorweekend & "', 102) order by timein "


'Get count of rows returned into dataset
Dim da As SqlDataAdapter = New SqlDataAdapter(query, objconn)
Dim ds As New DataSet
'Fill Dataset
da.Fill(ds)
Dim da1 As SqlDataAdapter = New SqlDataAdapter(query1, objconn)
Dim ds1 As New DataSet
'Fill Dataset
dim count1
count1 = da1.Fill(ds1)

count = ds.Tables(0).Rows.Count

dim numtocount
if flag = true then
numtocount = 1
else if flag2 = true then
numtocount = 2
else
numtocount = 1
end if
dim hr, mins, q, hr1, mins1
if count > 0 then
Do While j <> count
      if Isdbnull(ds.Tables(0).Rows(j).Item(4)) = false then
            dim timeacc = cdate(ds.Tables(0).Rows(j).Item(4))
      
            mins = mins + Minute(timeacc)            
            hr = hr + hour(timeacc)
            
            if hour(timeacc) >= 8 then
                 hr = hr
             ds.Tables(0).Rows(j).Item(4) = "0" &  (hour(timeacc) ) & ":" & Minute(timeacc)
             end if
            if hour(timeacc) >= 6 and  hour(timeacc) < 8  then
                dim lunch
                lunch = (hour(timeacc) )
                Dim ts1 As New TimeSpan(0, (lunch * 60) + Minute(timeacc), 0)
            Dim totalHours1 As Integer = ts1.Hours
            Dim totalMinutes1 As Integer = ts1.Minutes
            ds.Tables(0).Rows(j).Item(4) =  "0" & totalHours1 & ":" & totalMinutes1
                   end if      
 
      end if
      j = j + 1
Loop
       Dim rawHours As Decimal = hr
        Dim rawMinutes As Integer =  mins
        Dim ts As New TimeSpan(0, (rawHours * 60) + rawMinutes, 0)
        Dim totalHours As Integer = ts.Hours
        Dim totalMinutes As Integer = ts.Minutes    
        Label3.text = (ts.Days *24 + totalhours) & ":" & totalminutes
end if
if count1 > 0 then
Do While q <> count1
      if Isdbnull(ds1.Tables(0).Rows(q).Item(4)) = false then
            dim timeacc1 = cdate(ds1.Tables(0).Rows(q).Item(4))
      
            mins1 = mins1 + Minute(timeacc1)            
            hr1 = hr1 + hour(timeacc1)
            
            if hour(timeacc1) >= 8 then
                 hr1 = hr1
             ds1.Tables(0).Rows(q).Item(4) = "0" &  (hour(timeacc1) ) & ":" & Minute(timeacc1)
             end if
            if hour(timeacc1) >= 6 and  hour(timeacc1) < 8  then
                dim lunch1
                lunch1 = (hour(timeacc1) )
                Dim ts11 As New TimeSpan(0, (lunch1 * 60) + Minute(timeacc1), 0)
            Dim totalHours11 As Integer = ts11.Hours
            Dim totalMinutes11 As Integer = ts11.Minutes
            ds1.Tables(0).Rows(q).Item(4) =  "0" & totalHours11 & ":" & totalMinutes11
                   end if      
 
      end if
      q = q + 1
Loop
       Dim rawHours1 As Decimal = hr1
        Dim rawMinutes1 As Integer =  mins1
        Dim ts1 As New TimeSpan(0, (rawHours1 * 60) + rawMinutes1, 0)
        Dim totalHours1 As Integer = ts1.Hours
        Dim totalMinutes1 As Integer = ts1.Minutes    
        Label7.text = (ts1.Days *24 + totalhours1) & ":" & totalminutes1
end if
'If no rows returned....
dtnow = currentdate
if count = 0 then

            ' Write out current weeks information
            Do While j <>  datevar      
                  dim row as datarow = ds.tables(0).NewRow
                  row("recordid") = 0
                  'Extract date from now date and change time to 8:00
                  
                   row("recordid") = 0
                  nowdate = dtnow.ToString("MM/dd/yyyy")
                  dim strnowdate
                                    strnowdate = dtnow.dayofweek
                              if strnowdate = "1" then
                                    strnowdate = "Monday"
                              else if strnowdate = "2" then
                                    strnowdate = "Tuesday"
                              else if strnowdate = "3" then
                                    strnowdate = "Wednesday"
                              else if strnowdate = "4" then
                                    strnowdate = "Thursday"
                              else if strnowdate = "5" then
                                    strnowdate = "Friday"
                              End if
                  'Add row to dataset
                  row("dayofweek")=strnowdate
                  row("timein_date") = dtnow.ToString("MM/dd/yyyy")
                  row("timein_time") = "No Hours Entered "
                   If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem Then
            If e.Item.Cells(2).Text = "No Hours Entered " Then
                e.Item.Cells(2).BackColor = System.Drawing.Color.Red
            End If
        End If
                                    ds.Tables(0).Rows.InsertAt(row, j)
                  dtnow = dtnow.adddays(+1)         
                  
                  'Add 1 to j
                  j = j + 1
            Loop
else
      Do While k <>  datevar      
      dim querydaily
      nowdate = dtnow.ToString("MM/dd/yyyy")
                querydaily="select  timein, timeout,   Convert(VARCHAR(5),timeOut - timein,14)  as timediff, DATENAME(weekday, timein) as dayofweek,CONVERT(VARCHAR(11), timein, 101) AS timein_date,RIGHT(CONVERT(varchar(19),timein, 100), 7) AS timein_time,(CASE WHEN RIGHT(CONVERT(varchar(19),timeout, 100), 7) is null THEN CONVERT(VARCHAR,'NO TIME ENTERED') ELSE RIGHT(CONVERT(varchar(19),timeout, 100), 7) END) as Timeout_time, description from employeehours as eh inner join employeelist as el on eh.employeeid = el.employeeid inner join masterjobcodelist as mjc on eh.jobcode = mjc.jobcode where eh.employeeid = '" & Request.Querystring("lngempid") & "'and CONVERT(varchar(10),timein , 101)  =  '" & nowdate & "' order by timein"


Dim dadaily As SqlDataAdapter = New SqlDataAdapter(querydaily, objconn)
Dim dsdaily As New DataSet
'Fill Dataset
dim countdaily
countdaily = dadaily.Fill(dsdaily)
if countdaily = 0 then
      dim row as datarow = ds.tables(0).NewRow
                  row("recordid") = 0
dim strnowdate

                                    strnowdate = dtnow.dayofweek
                              if strnowdate = "1" then
                                    strnowdate = "Monday"
                              else if strnowdate = "2" then
                                    strnowdate = "Tuesday"
                              else if strnowdate = "3" then
                                    strnowdate = "Wednesday"
                              else if strnowdate = "4" then
                                    strnowdate = "Thursday"
                              else if strnowdate = "5" then
                                    strnowdate = "Friday"
                              End if
                  'Add row to dataset
                  row("dayofweek") =  strnowdate
                  row("timein_date") =  dtnow.ToString("MM/dd/yyyy")
                  row("timein_time") = "NO TIME ENTERED "
                  ds.tables(0).rows.backcolor = system.drawing.color.red
                  ds.Tables(0).Rows.InsertAt(row, k)

end if
'if countdaily > 1 then
'datevar = datevar + 1
      '            else
                  dtnow = dtnow.adddays(+1)
      '            end if      
                  'Add 1 to j
                  if countdaily = 2 then
                  k = k + 1
                  datevar = datevar + 1
                  end if
                  if countdaily = 3 then
                  k = k + 2
                  datevar = datevar + 2
                  end if
                  
                  
                  k = k + 1
            Loop

end if


      dgAddressBook.DataSource =   ds
      dgAddressBook.DataBind()
      'If day = Monday and there is no outtime for Friday then allow this datagrid to show for Friday
      dgAddressBook2.DataSource =   ds1
      dgAddressBook2.DataBind()
      objConn.Close()
      End Sub



                  </script>
      </HEAD>
      <body>
            <form runat="server" ID="Form1">
                  <table cellSpacing="0" cellPadding="0" width="100%" background="Images/header_bg.gif" border="0">
                        <tr>
                        </tr>
                  </table>
                  <table cellSpacing="0" cellPadding="0" width="100%" border="0">
                        <tr>
                              <td width="532" bgColor="#ffffff"></td>
                              <td bgColor="#ffffff"></td>
                        </tr>
                  </table>
                  <table cellSpacing="0" cellPadding="10" width="100%" border="0">
                        <tr>
                              <td vAlign="top" width="8">
                                    <!-- HyperLink Controls for navigation -->
                                    <P>
                                          <BR>
                                          &nbsp;
                                    </P> <!-- End HyperLink Controls -->
                              <td vAlign="top">
                                    <h1>Current weekly hours for
                                          <asp:label id="Label6" runat="server" Font-Bold="True" Width="120px" Font-Names="Arial" Font-Size="X-Small"
                                                BackColor="White">Label</asp:label></h1>
                                    <P><asp:datagrid id="dgAddressBook" runat="server" DataKeyField="recordID" GridLines="None" CellPadding="4"
                                                AutoGenerateColumns="False" OnItemDataBound="dgAddressBook_ItemDataBound">
                                                <AlternatingItemStyle Font-Size="10pt" Font-Names="Arial" BackColor="#CCCCCC"></AlternatingItemStyle>
                                                <ItemStyle Font-Size="10pt" Font-Names="Arial" ForeColor="Black"></ItemStyle>
                                                <HeaderStyle Font-Size="10pt" Font-Names="Arial" Font-Bold="True" ForeColor="White" BackColor="#003366"></HeaderStyle>
                                                <Columns>
                                                      <asp:BoundColumn DataField="dayofweek" ReadOnly="True" HeaderText="Day of Week">
                                                            <HeaderStyle Width="100px"></HeaderStyle>
                                                      </asp:BoundColumn>
                                                      <asp:BoundColumn DataField="timein_date" ReadOnly="True" HeaderText="Date">
                                                            <HeaderStyle Width="100px"></HeaderStyle>
                                                      </asp:BoundColumn>
                                                      <asp:BoundColumn DataField="timein_time" ReadOnly="True" HeaderText="Time In">
                                                            <HeaderStyle Width="110px"></HeaderStyle>
                                                      </asp:BoundColumn>
                                                      <asp:BoundColumn DataField="timeout_time" ReadOnly="True" HeaderText="Time out">
                                                            <HeaderStyle Width="110px"></HeaderStyle>
                                                      </asp:BoundColumn>
                                                      <asp:BoundColumn DataField="description" ReadOnly="True" HeaderText="Description">
                                                            <HeaderStyle Width="105px"></HeaderStyle>
                                                      </asp:BoundColumn>
                                                      <asp:BoundColumn DataField="TimeDiff" ReadOnly="True" HeaderText="Hours">
                                                            <HeaderStyle Width="50px"></HeaderStyle>
                                                      </asp:BoundColumn>
                                                </Columns>
                                          </asp:datagrid>&nbsp;
                                          <TABLE id="Table1" height="36" cellSpacing="0" cellPadding="0" width="640" border="0">
                                                <TR>
                                                      <TD width="100" height="23"></TD>
                                                      <TD width="100" height="23"></TD>
                                                      <TD width="173" height="23"></TD>
                                                      <TD width="28" height="23">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                                                      </TD>
                                                      <TD width="364" height="23"><asp:label id="Label2" runat="server" Font-Bold="True" Width="190px" Font-Size="X-Small"> Total Hours for Current Week!</asp:label></TD>
                                                      <TD width="50" height="23">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                                                            <asp:label id="Label3" runat="server" Font-Bold="True" Width="54px" Font-Names="Arial" Font-Size="X-Small"></asp:label></TD>
                                                </TR>
                                          </TABLE>
                                          <BR>
                                          <BR>
                                          <BR>
                                          <STRONG>
                                                <asp:label id="Label4" runat="server" Visible="False" Font-Bold="True" Width="296px">Edit Prior Weeks Information</asp:label></STRONG></P>
                                    <P><asp:datagrid id="dgAddressBook2" runat="server" Visible="False" DataKeyField="recordID" GridLines="None"
                                                CellPadding="4" AutoGenerateColumns="False" OnItemDataBound="dgAddressBook_ItemDataBound"
                                                Width="632px">
                                                <AlternatingItemStyle Font-Size="10pt" Font-Names="Arial" BackColor="#CCCCCC"></AlternatingItemStyle>
                                                <ItemStyle Font-Size="10pt" Font-Names="Arial" ForeColor="Black"></ItemStyle>
                                                <HeaderStyle Font-Size="10pt" Font-Names="Arial" Font-Bold="True" ForeColor="White" BackColor="#003366"></HeaderStyle>
                                                <Columns>
                                                      <asp:BoundColumn DataField="dayofweek" ReadOnly="True" HeaderText="Day of Week">
                                                            <HeaderStyle Width="100px"></HeaderStyle>
                                                      </asp:BoundColumn>
                                                      <asp:BoundColumn DataField="timein_date" ReadOnly="True" HeaderText="Date">
                                                            <HeaderStyle Width="100px"></HeaderStyle>
                                                      </asp:BoundColumn>
                                                      <asp:BoundColumn DataField="timein_time" ReadOnly="True" HeaderText="Time In">
                                                            <HeaderStyle Width="173px"></HeaderStyle>
                                                      </asp:BoundColumn>
                                                      <asp:BoundColumn DataField="timeout_time" ReadOnly="True" HeaderText="Time out">
                                                            <HeaderStyle Width="173px"></HeaderStyle>
                                                      </asp:BoundColumn>
                                                      <asp:BoundColumn DataField="description" ReadOnly="True" HeaderText="Description">
                                                            <HeaderStyle Width="100px"></HeaderStyle>
                                                      </asp:BoundColumn>
                                                      <asp:BoundColumn DataField="TimeDiff" ReadOnly="True" HeaderText="Hours">
                                                            <HeaderStyle Width="50px"></HeaderStyle>
                                                      </asp:BoundColumn>
                                                </Columns>
                                          </asp:datagrid></P>
                                    <P>
                                          <TABLE id="Table2" height="36" cellSpacing="0" cellPadding="0" width="640" border="0">
                                                <TR>
                                                      <TD width="100" height="23"></TD>
                                                      <TD width="100" height="23"></TD>
                                                      <TD width="173" height="23"></TD>
                                                      <TD width="28" height="23">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                                                      </TD>
                                                      <TD width="364" height="23">
                                                            <asp:label id="Label10" runat="server" Font-Bold="True" Width="190px" Font-Size="X-Small"> Total Hours for Current Week!</asp:label></TD>
                                                      <TD width="50" height="23">&nbsp;&nbsp;&nbsp;&nbsp;
                                                            <asp:label id="Label7" runat="server" Visible="False" Font-Bold="True" Width="64px" Font-Names="Arial"
                                                                  Font-Size="X-Small"></asp:label>
                                                      </TD>
                                                </TR>
                                          </TABLE>
                                    </P>
                                    <P><BR>
                                          <asp:label id="Label5" runat="server" Visible="False" Font-Bold="True" Width="392px" Height="34px">To enter a missed time, please to ClockIn/ClockOut.  You will be given the option for today and the prior working day.</asp:label></P>
                                    <P>&nbsp;
                                          <asp:label id="Label1" runat="server" Visible="False" Font-Bold="True" Width="352px"> Only current pay period dates will be displayed!</asp:label></P>
                              </td>
                        </tr>
                  </table>
            </form>
      </body>
</HTML>
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic.NET

From novice to tech pro — start learning today.