3
I am new to ASP.NET and am trying to learn it the best that I can. I am trying to add some code in the If IntRowIndex > -1 statement to mark an item SELECTED before adding it to the CheckBoxList. Where I would like the code to go is marked "***** Make ShiftCode SELECTED *****" The code is pasted below. Thanks, in advance, for any assistance.
<%@ Debug = "True" %>
<%@ Import Namespace="Syst em.Data" %>
<%@ Import Namespace="Syst em.Data.OleDb" %>
<Script Runat="Server">
Sub Page_Load( s As Object, e As EventArgs )
Dim NumberOfEmploye es As Integer
Dim EmployeeSelecte d As Integer
Dim DayNumber As Integer = 1
Dim ShiftCode As String
Dim conEmployees As OleDbConnection
Dim cmdSelectCount As OleDbCommand
Dim cmdSelectRubySh ifts As OleDbCommand
Dim dstEmployeeAvai lability As DataSet
Dim dadEmployeeAvai lability As OleDbDataAdapte r
Dim dvwEmployeeAvai lability As DataView
Dim arrValues(1) As Object
Dim IntRowIndex As Integer
Dim cmdSelectEmploy ees as OleDbCommand
Dim dtrEmployees as OleDbDataReader
Dim dtrRubyShifts as OleDbDataReader
conEmployees = New OleDbConnection ( "PROVIDER=Micro soft.Jet.OLEDB. 4.0;DATA Source=C:\Docum ents and Settings\User\D esktop\Code\Rub ys\Rubys.mdb" )
conEmployees.Op en()
cmdSelectRubySh ifts = New OleDbCommand("S elect * From RubysDailyShift s", conEmployees)
dtrRubyShifts = cmdSelectRubySh ifts.ExecuteRea der()
If dtrRubyShifts.H asRows Then
dstEmployeeAvai lability = New DataSet()
dadEmployeeAvai lability = New OleDbDataAdapte r("Select * From FrontEmployeesA vailability where EmployeeID = 1", conEmployees)
dadEmployeeAvai lability.Fill(d stEmployeeAvail ability, "FrontEmployees Availability")
dvwEmployeeAvai lability = dstEmployeeAvai lability.Tables ("FrontEmployee sAvailability") .DefaultView()
dvwEmployeeAvai lability.Sort = "DayNumber, ShiftCode"
While dtrRubyShifts.R ead()
If dtrRubyShifts(" DayNumber") > DayNumber Then
DayNumber += 1
End If
If dtrRubyShifts(" AmountOfShiftCo de") > 0 Then
arrValues(0) = DayNumber
arrValues(1) = dtrRubyShifts(" ShiftCode")
IntRowIndex = dvwEmployeeAvai lability.Find(a rrValues)
ShiftCode = dtrRubyShifts(" ShiftCode")
If IntRowIndex > -1 Then
***** Make ShiftCode SELECTED *****
End If
Select Case DayNumber
Case 1
chklEmployeeAva ilabilityDay1.I tems.Add(ShiftC ode)
Case 2
chklEmployeeAva ilabilityDay2.I tems.Add(ShiftC ode)
Case 3
chklEmployeeAva ilabilityDay3.I tems.Add(ShiftC ode)
Case 4
chklEmployeeAva ilabilityDay4.I tems.Add(ShiftC ode)
Case 5
chklEmployeeAva ilabilityDay5.I tems.Add(ShiftC ode)
Case 6
chklEmployeeAva ilabilityDay6.I tems.Add(ShiftC ode)
Case 7
chklEmployeeAva ilabilityDay7.I tems.Add(ShiftC ode)
Case Else
End Select
End If
End While
Else
Response.Write( "There were no records in the table RubysDailyShift s")
End If
conEmployees.Cl ose()
End Sub
</Script>
<html>
<head><title>Em ployee Availability</title></head>
<body>
<form runat="server">
<table>
<tr><td align=center>We d</td><td align=center>Th urs</td><td align=center>Fr i</td><td align=center>Sa t</td><td align=center>Su n</td><td align=center>Mo n</td><td align=center>Tu es</td></tr>
<td valign="top"><a sp:CheckBoxList ID="chklEmploye eAvailabilityDa y1" runat="server" /></td>
<td valign="top"><a sp:CheckBoxList ID="chklEmploye eAvailabilityDa y2" runat="server" /></td>
<td valign="top"><a sp:CheckBoxList ID="chklEmploye eAvailabilityDa y3" runat="server" /></td>
<td valign="top"><a sp:CheckBoxList ID="chklEmploye eAvailabilityDa y4" runat="server" /></td>
<td valign="top"><a sp:CheckBoxList ID="chklEmploye eAvailabilityDa y5" runat="server" /></td>
<td valign="top"><a sp:CheckBoxList ID="chklEmploye eAvailabilityDa y6" runat="server" /></td>
<td valign="top"><a sp:CheckBoxList ID="chklEmploye eAvailabilityDa y7" runat="server" /></td></tr>
</table>
</form>
</body>
</html>
