Problem with background color of table cell

[Thanks]

I have a routine that is called on Page_Init. It retrieves folder records
from a database which I display as Link Buttons in a table cell. I set the
table cell's bgcolor to a default color (say black for example). I am
dynamically creating the LinkButton controls and adding them into the table
cell and I've also hooked up an event handler for each LinkButton's Click
event. This all works fine.

Now in the Link Button's Click event handler, I set the background of the
LinkButton's parent (which is the table cell I initially color Black) to
white. This too works fine. My problem occurs when I click another
LinkButton. The table cell it resides also turns white, but the previous one
doesn't restore back to black. Can someone help? I've posted the code below.
I figured that the click would cause a trip to the server, which would call
page_init which inturn would call DisplayFolders which would set the table
cell to black.

Imports System.Data
Imports System.Data.Sql Client
Imports System.Web.UI.W ebControls

Public Class StoredProcedure s : Inherits System.Web.UI.P age

#Region " Variable Declarations "

Private SelectedFolder As String = ""
Private designerPlaceho lderDeclaration As System.Object
Protected WithEvents Form1 As System.Web.UI.H tmlControls.Htm lForm
Protected WithEvents TextBox1 As System.Web.UI.W ebControls.Text Box
Protected WithEvents FolderList As
System.Web.UI.H tmlControls.Htm lTableCell
Protected WithEvents FolderContents As
System.Web.UI.H tmlControls.Htm lTableCell

Private ConnectionStrin g As String = "Data Source=localhos t;" & _
"Initial Catalog=Yahoo;" & _
"User Id=sa;" & _
"Password=lvteo peh;" & _
"Connect Timeout=15;" & _
"Network Library=dbmssoc n;"

#End Region

#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 Sub

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Init
InitializeCompo nent()

End Sub

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
DisplayFolders( )
End Sub

#End Region

#Region " Methods / Properties "

Public Sub DisplayFolders( )

' Declarations.
Dim ds As DataSet
Dim cm As SqlCommand
Dim cn As SqlConnection
Dim da As SqlDataAdapter

Dim intFolderCount As Long

' Initialization.
ds = New DataSet
da = New SqlDataAdapter
cn = New SqlConnection(C onnectionString )
cm = New SqlCommand("Get Folders", cn)

' *************** *************** *************** *****
' Setup the command object (Type & Parameters)
' *************** *************** *************** *****
With cm
.CommandType = CommandType.Sto redProcedure
.Parameters.Add ("@UserID", SqlDbType.Int). Direction =
ParameterDirect ion.Input
.Parameters.Add ("@FolderCount" , SqlDbType.Int). Direction =
ParameterDirect ion.Output
.Parameters.Add ("@Return_Value ", SqlDbType.Int). Direction =
ParameterDirect ion.ReturnValue
.Parameters("@U serID").Value = 2
End With

' Set the command to execute to the stored procedure command object.
da.SelectComman d = cm

' Fill our dataset and place the results into a temporary table
namespace, "Results"
da.Fill(ds, "Results")

' *************** *************** *************** *****
' Create the table and display the folders.
' *************** *************** *************** *****
CreateFolderTab le(ds)

cn.Close()
ds.Dispose()
da.Dispose()
cn.Dispose()
cm.Dispose()

End Sub

Public Sub DisplayFolderCo ntents(ByVal FolderID As Integer)

' Declarations.
Dim ds As DataSet
Dim cm As SqlCommand
Dim cn As SqlConnection
Dim da As SqlDataAdapter

Dim intFolderCount As Long

' Initialization.
ds = New DataSet
da = New SqlDataAdapter
cn = New SqlConnection(C onnectionString )
cm = New SqlCommand("Get Notes", cn)

' *************** *************** *************** *****
' Setup the command object (Type & Parameters)
' *************** *************** *************** *****
With cm
.CommandType = CommandType.Sto redProcedure
.Parameters.Add ("@intUser", SqlDbType.Int). Direction =
ParameterDirect ion.Input
.Parameters.Add ("@intFolder ", SqlDbType.Int). Direction =
ParameterDirect ion.Input
.Parameters.Add ("@intNotesCoun t", SqlDbType.Int). Direction =
ParameterDirect ion.Output
.Parameters.Add ("@Return_Value ", SqlDbType.Int). Direction =
ParameterDirect ion.ReturnValue
.Parameters("@i ntUser").Value = 1
.Parameters("@i ntFolder").Valu e = 1
End With

' Set the command to execute to the stored procedure command object.
da.SelectComman d = cm

' Fill our dataset and place the results into a temporary table
namespace, "Results"
da.Fill(ds, "Results")

' *************** *************** *************** *****
' Create the table and display the folder's notes.
' *************** *************** *************** *****
CreateFolderCon tentsTable(ds)

cn.Close()
ds.Dispose()
da.Dispose()
cn.Dispose()
cm.Dispose()

End Sub

Private Sub CreateFolderTab le(ByRef ds As DataSet)

Dim dr As DataRow
Dim dt As DataTable
Dim lnk As LinkButton
Dim tbl As New HtmlTable
Dim intFolderCount As Integer

' Get the number of folders returned.
intFolderCount = ds.Tables(0).Ro ws.Count()

' Setup the table object properties.
With tbl
.Width = "200"
.CellSpacing = "1"
.CellPadding = "1"
End With

' Create an "All" folder for each user.
CreateFolderRow (tbl, -1, "All")

' If there were rows, display the folders.
If intFolderCount > 0 Then

' Get a reference to the results table in the dataset.
dt = ds.Tables(0)

' Loop through each row in the dataset and display it to page.
For Each dr In dt.Rows

CreateFolderRow (tbl, CType(dr(0), Integer), CType(dr(1),
String))

Next

' Now, add this table to the table cell we've designated to hold
the folders table.
FolderList.Cont rols.Add(tbl)

End If

dr = Nothing
dt = Nothing
tbl = Nothing

End Sub

Private Sub CreateFolderCon tentsTable(ByRe f ds As DataSet)

Dim dr As DataRow
Dim dt As DataTable
Dim lnk As LinkButton
Dim tr1 As HtmlTableRow
Dim tc1 As HtmlTableCell
Dim tc2 As HtmlTableCell
Dim tbl As New HtmlTable
Dim intFolderCount As Integer

' Get the number of folders returned.
intFolderCount = ds.Tables(0).Ro ws.Count()

' If there were rows, display the folders.
If intFolderCount > 0 Then

' Get a reference to the results table in the dataset.
dt = ds.Tables(0)

With tbl
.Width = "200"
.CellSpacing = "1"
.CellPadding = "1"
End With

' Loop through each row in the dataset and display it to page.
For Each dr In dt.Rows

tr1 = New HtmlTableRow
tc1 = New HtmlTableCell
tc2 = New HtmlTableCell

' Created a padded cell to give the folder list a padded
feel.
With tc1
.Width = "20"
.Align = "right"
.Controls.Add(N ew LiteralControl( "&nbsp;"))
End With

' Create a new link button.
lnk = New LinkButton

' Add a property to hold the SQL ID of the folder.
lnk.Attributes. Add("fid", Trim(dr(0)))
lnk.ForeColor = Color.Black

' Add a Click event handler.
AddHandler lnk.Click, AddressOf FolderItem_Clic k

' Set the text to be the folder's name.
lnk.Text = Trim(dr(1))

' Display the link.
With tc2
.Width = "180"
.Align = "left"
.Controls.Add(l nk)
.Style.Add("fon t-family", "verdana")
.Style.Add("fon t-size", "10px")
End With

' Add the cell to the table row.
With tr1
.Cells.Add(tc1)
.Cells.Add(tc2)
End With

' Add the table row to the table.
tbl.Rows.Add(tr 1)

Next

' Now, add this table to the table cell we've designated to hold
the folders table.
FolderList.Cont rols.Add(tbl)

Else

tr1 = New HtmlTableRow
tc1 = New HtmlTableCell

' We want to display one row with "No Folders".
With tc1
.InnerHtml = "No Folders"
.Width = 200
End With

' Add the cell to the table row.
tr1.Cells.Add(t c1)

' Add the table row to the table.
tbl.Rows.Add(tr 1)

End If

tr1 = Nothing
tc1 = Nothing
tc2 = Nothing
tbl = Nothing

' Clean up our table iteration objects.
dr = Nothing
dt = Nothing

End Sub

Private Function CreateLinkButto n(ByVal ID As Integer, ByVal Text As
String) As Control

Dim lnk As LinkButton

' Create a new link button.
lnk = New LinkButton

' Add a property to hold the SQL ID of the folder.
lnk.Attributes. Add("fid", ID)

' Set the text for the item black.
lnk.ForeColor = Color.Black

' Set the text to be the folder's name.
lnk.Text = Text

Return lnk

End Function

Private Sub CreateFolderRow (ByRef tbl As HtmlTable, ByVal ID As Integer,
ByVal Text As String)

Dim tr1 As HtmlTableRow
Dim tc1 As HtmlTableCell
Dim tc2 As HtmlTableCell
Dim lnk As LinkButton

tr1 = New HtmlTableRow
tc1 = New HtmlTableCell
tc2 = New HtmlTableCell

' Created a padded cell to give the folder list a padded feel.
With tc1
.Width = "20"
.Align = "right"
.BgColor = "#d5d0cc"
.Controls.Add(N ew LiteralControl( "&nbsp;"))
If ID.ToString = SelectedFolder Then .BgColor = "#FFFFFF"
End With

' Display the link.
With tc2

.Width = "180"
.Align = "left"
.BgColor = "#d5d0cc"
.Style.Add("fon t-size", "10px")
.Style.Add("fon t-family", "verdana")

' Create a link button for this folder.
lnk = CreateLinkButto n(ID, Text)

' Hook up the plumbing so we can handle click events.
AddHandler lnk.Click, AddressOf FolderItem_Clic k

' Add the link button to the table's controls collection.
.Controls.Add(l nk)

' Change the background of the item if this is the selected
folder.
If ID.ToString = SelectedFolder Then .BgColor = "#FFFFFF"

End With

' Add the cell to the table row.
With tr1
.Cells.Add(tc1)
.Cells.Add(tc2)
End With

' Add the table row to the table.
tbl.Rows.Add(tr 1)

tr1 = Nothing
tc1 = Nothing
tc2 = Nothing

End Sub

#End Region
#Region " Events "

Private Sub FolderItem_Clic k(ByVal sender As Object, ByVal e As
System.EventArg s)

Dim strID As String = ""
Dim lb As LinkButton = CType(sender, LinkButton)

' Get the FID attribute of the folder link button.
strID = lb.Attributes.I tem("FID").ToSt ring()

Dim tc As HtmlTableCell
tc = lb.Parent
If Not (tc Is Nothing) Then tc.BgColor = "#ffffff"
' Set the selected folder.
SelectedFolder = strID

' If the ID is numeric, display the folder's contents.
If IsNumeric(strID ) Then DisplayFolderCo ntents(CType(st rID,
Integer))

End Sub

#End Region

End Class

[Thanks]

I hate it when I figure things out after writing a lengthy post!
Setting the table's EnableViewState property to false rectified the problem.
Thanks

------------------------------------------------------------------------

"Thanks" <th****@thanks. com> wrote in message
news:%2******** ********@TK2MSF TNGP11.phx.gbl. ..

I have a routine that is called on Page_Init. It retrieves folder records
from a database which I display as Link Buttons in a table cell. I set the
table cell's bgcolor to a default color (say black for example). I am
dynamically creating the LinkButton controls and adding them into the table cell and I've also hooked up an event handler for each LinkButton's Click
event. This all works fine.

Now in the Link Button's Click event handler, I set the background of the
LinkButton's parent (which is the table cell I initially color Black) to
white. This too works fine. My problem occurs when I click another
LinkButton. The table cell it resides also turns white, but the previous one doesn't restore back to black. Can someone help? I've posted the code below. I figured that the click would cause a trip to the server, which would call page_init which inturn would call DisplayFolders which would set the table
cell to black.

Imports System.Data
Imports System.Data.Sql Client
Imports System.Web.UI.W ebControls

Public Class StoredProcedure s : Inherits System.Web.UI.P age

#Region " Variable Declarations "

Private SelectedFolder As String = ""
Private designerPlaceho lderDeclaration As System.Object
Protected WithEvents Form1 As System.Web.UI.H tmlControls.Htm lForm
Protected WithEvents TextBox1 As System.Web.UI.W ebControls.Text Box
Protected WithEvents FolderList As
System.Web.UI.H tmlControls.Htm lTableCell
Protected WithEvents FolderContents As
System.Web.UI.H tmlControls.Htm lTableCell

Private ConnectionStrin g As String = "Data Source=localhos t;" & _
"Initial Catalog=Yahoo;" & _
"User Id=sa;" & _
"Password=lvteo peh;" & _
"Connect Timeout=15;" & _
"Network Library=dbmssoc n;"

#End Region

#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 Sub

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Init
InitializeCompo nent()

End Sub

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
DisplayFolders( )
End Sub

#End Region

#Region " Methods / Properties "

Public Sub DisplayFolders( )

' Declarations.
Dim ds As DataSet
Dim cm As SqlCommand
Dim cn As SqlConnection
Dim da As SqlDataAdapter

Dim intFolderCount As Long

' Initialization.
ds = New DataSet
da = New SqlDataAdapter
cn = New SqlConnection(C onnectionString )
cm = New SqlCommand("Get Folders", cn)

' *************** *************** *************** *****
' Setup the command object (Type & Parameters)
' *************** *************** *************** *****
With cm
.CommandType = CommandType.Sto redProcedure
.Parameters.Add ("@UserID", SqlDbType.Int). Direction =
ParameterDirect ion.Input
.Parameters.Add ("@FolderCount" , SqlDbType.Int). Direction =
ParameterDirect ion.Output
.Parameters.Add ("@Return_Value ", SqlDbType.Int). Direction =
ParameterDirect ion.ReturnValue
.Parameters("@U serID").Value = 2
End With

' Set the command to execute to the stored procedure command object. da.SelectComman d = cm

' Fill our dataset and place the results into a temporary table
namespace, "Results"
da.Fill(ds, "Results")

' *************** *************** *************** *****
' Create the table and display the folders.
' *************** *************** *************** *****
CreateFolderTab le(ds)

cn.Close()
ds.Dispose()
da.Dispose()
cn.Dispose()
cm.Dispose()

End Sub

Public Sub DisplayFolderCo ntents(ByVal FolderID As Integer)

' Declarations.
Dim ds As DataSet
Dim cm As SqlCommand
Dim cn As SqlConnection
Dim da As SqlDataAdapter

Dim intFolderCount As Long

' Initialization.
ds = New DataSet
da = New SqlDataAdapter
cn = New SqlConnection(C onnectionString )
cm = New SqlCommand("Get Notes", cn)

' *************** *************** *************** *****
' Setup the command object (Type & Parameters)
' *************** *************** *************** *****
With cm
.CommandType = CommandType.Sto redProcedure
.Parameters.Add ("@intUser", SqlDbType.Int). Direction =
ParameterDirect ion.Input
.Parameters.Add ("@intFolder ", SqlDbType.Int). Direction =
ParameterDirect ion.Input
.Parameters.Add ("@intNotesCoun t", SqlDbType.Int). Direction =
ParameterDirect ion.Output
.Parameters.Add ("@Return_Value ", SqlDbType.Int). Direction =
ParameterDirect ion.ReturnValue
.Parameters("@i ntUser").Value = 1
.Parameters("@i ntFolder").Valu e = 1
End With

' Set the command to execute to the stored procedure command object. da.SelectComman d = cm

' Fill our dataset and place the results into a temporary table
namespace, "Results"
da.Fill(ds, "Results")

' *************** *************** *************** *****
' Create the table and display the folder's notes.
' *************** *************** *************** *****
CreateFolderCon tentsTable(ds)

cn.Close()
ds.Dispose()
da.Dispose()
cn.Dispose()
cm.Dispose()

End Sub

Private Sub CreateFolderTab le(ByRef ds As DataSet)

Dim dr As DataRow
Dim dt As DataTable
Dim lnk As LinkButton
Dim tbl As New HtmlTable
Dim intFolderCount As Integer

' Get the number of folders returned.
intFolderCount = ds.Tables(0).Ro ws.Count()

' Setup the table object properties.
With tbl
.Width = "200"
.CellSpacing = "1"
.CellPadding = "1"
End With

' Create an "All" folder for each user.
CreateFolderRow (tbl, -1, "All")

' If there were rows, display the folders.
If intFolderCount > 0 Then

' Get a reference to the results table in the dataset.
dt = ds.Tables(0)

' Loop through each row in the dataset and display it to page.
For Each dr In dt.Rows

CreateFolderRow (tbl, CType(dr(0), Integer), CType(dr(1),
String))

Next

' Now, add this table to the table cell we've designated to hold the folders table.
FolderList.Cont rols.Add(tbl)

End If

dr = Nothing
dt = Nothing
tbl = Nothing

End Sub

Private Sub CreateFolderCon tentsTable(ByRe f ds As DataSet)

Dim dr As DataRow
Dim dt As DataTable
Dim lnk As LinkButton
Dim tr1 As HtmlTableRow
Dim tc1 As HtmlTableCell
Dim tc2 As HtmlTableCell
Dim tbl As New HtmlTable
Dim intFolderCount As Integer

' Get the number of folders returned.
intFolderCount = ds.Tables(0).Ro ws.Count()

' If there were rows, display the folders.
If intFolderCount > 0 Then

' Get a reference to the results table in the dataset.
dt = ds.Tables(0)

With tbl
.Width = "200"
.CellSpacing = "1"
.CellPadding = "1"
End With

' Loop through each row in the dataset and display it to page.
For Each dr In dt.Rows

tr1 = New HtmlTableRow
tc1 = New HtmlTableCell
tc2 = New HtmlTableCell

' Created a padded cell to give the folder list a padded
feel.
With tc1
.Width = "20"
.Align = "right"
.Controls.Add(N ew LiteralControl( "&nbsp;"))
End With

' Create a new link button.
lnk = New LinkButton

' Add a property to hold the SQL ID of the folder.
lnk.Attributes. Add("fid", Trim(dr(0)))
lnk.ForeColor = Color.Black

' Add a Click event handler.
AddHandler lnk.Click, AddressOf FolderItem_Clic k

' Set the text to be the folder's name.
lnk.Text = Trim(dr(1))

' Display the link.
With tc2
.Width = "180"
.Align = "left"
.Controls.Add(l nk)
.Style.Add("fon t-family", "verdana")
.Style.Add("fon t-size", "10px")
End With

' Add the cell to the table row.
With tr1
.Cells.Add(tc1)
.Cells.Add(tc2)
End With

' Add the table row to the table.
tbl.Rows.Add(tr 1)

Next

' Now, add this table to the table cell we've designated to hold the folders table.
FolderList.Cont rols.Add(tbl)

Else

tr1 = New HtmlTableRow
tc1 = New HtmlTableCell

' We want to display one row with "No Folders".
With tc1
.InnerHtml = "No Folders"
.Width = 200
End With

' Add the cell to the table row.
tr1.Cells.Add(t c1)

' Add the table row to the table.
tbl.Rows.Add(tr 1)

End If

tr1 = Nothing
tc1 = Nothing
tc2 = Nothing
tbl = Nothing

' Clean up our table iteration objects.
dr = Nothing
dt = Nothing

End Sub

Private Function CreateLinkButto n(ByVal ID As Integer, ByVal Text As
String) As Control

Dim lnk As LinkButton

' Create a new link button.
lnk = New LinkButton

' Add a property to hold the SQL ID of the folder.
lnk.Attributes. Add("fid", ID)

' Set the text for the item black.
lnk.ForeColor = Color.Black

' Set the text to be the folder's name.
lnk.Text = Text

Return lnk

End Function

Private Sub CreateFolderRow (ByRef tbl As HtmlTable, ByVal ID As Integer, ByVal Text As String)

Dim tr1 As HtmlTableRow
Dim tc1 As HtmlTableCell
Dim tc2 As HtmlTableCell
Dim lnk As LinkButton

tr1 = New HtmlTableRow
tc1 = New HtmlTableCell
tc2 = New HtmlTableCell

' Created a padded cell to give the folder list a padded feel.
With tc1
.Width = "20"
.Align = "right"
.BgColor = "#d5d0cc"
.Controls.Add(N ew LiteralControl( "&nbsp;"))
If ID.ToString = SelectedFolder Then .BgColor = "#FFFFFF"
End With

' Display the link.
With tc2

.Width = "180"
.Align = "left"
.BgColor = "#d5d0cc"
.Style.Add("fon t-size", "10px")
.Style.Add("fon t-family", "verdana")

' Create a link button for this folder.
lnk = CreateLinkButto n(ID, Text)

' Hook up the plumbing so we can handle click events.
AddHandler lnk.Click, AddressOf FolderItem_Clic k

' Add the link button to the table's controls collection.
.Controls.Add(l nk)

' Change the background of the item if this is the selected
folder.
If ID.ToString = SelectedFolder Then .BgColor = "#FFFFFF"

End With

' Add the cell to the table row.
With tr1
.Cells.Add(tc1)
.Cells.Add(tc2)
End With

' Add the table row to the table.
tbl.Rows.Add(tr 1)

tr1 = Nothing
tc1 = Nothing
tc2 = Nothing

End Sub

#End Region
#Region " Events "

Private Sub FolderItem_Clic k(ByVal sender As Object, ByVal e As
System.EventArg s)

Dim strID As String = ""
Dim lb As LinkButton = CType(sender, LinkButton)

' Get the FID attribute of the folder link button.
strID = lb.Attributes.I tem("FID").ToSt ring()

Dim tc As HtmlTableCell
tc = lb.Parent
If Not (tc Is Nothing) Then tc.BgColor = "#ffffff"
' Set the selected folder.
SelectedFolder = strID

' If the ID is numeric, display the folder's contents.
If IsNumeric(strID ) Then DisplayFolderCo ntents(CType(st rID,
Integer))

End Sub

#End Region

End Class