controls.add overwrites cell text - boo!

[DaveyP]

I have a user control (called data_dictionary ) which I need to add
into the header text of a datagrid. I'm doing this by adding the
control in the RowCreated event as follows:

dds_description s is an arraylist of strings. data_dictionary is the
user control

Sub gvw_data_RowCreated(ByVal sender As Object, ByVal e As
GridViewRowEventArgs)
 
Dim kount As Integer
Dim dds_item(e.Row.Cells.Count) As
data_dictionary               ' user control
Dim lbl_temp As New Label
 
If Not (e.Row Is Nothing) And e.Row.RowType =
DataControlRowType.Header Then
For Each cell As TableCell In e.Row.Cells
If e.Row.Cells.GetCellIndex(cell) >=
dds_descriptions.Count Then
dds_descriptions.Add("")
End If
kount = e.Row.Cells.GetCellIndex(cell)
dds_item(kount) = New data_dictionary
dds_item(kount).data_description =
dds_descriptions(kount)
If cell.HasControls Then
'  put a directional sort arrow on the header
Dim button As LinkButton =
DirectCast(cell.Controls(0), LinkButton)
If Not (button Is Nothing) Then
Dim image As Image = New Image
If gvw_data.SortExpression <>
button.CommandArgument Then
image.ImageUrl = "http://b4/_style/
noarrow.gif"
Else
If gvw_data.SortDirection =
SortDirection.Ascending Then
image.ImageUrl = "http://b4/_style/
uparrow.gif"
Else
image.ImageUrl = "http://b4/_style/
downarrow.gif"
End If
End If
If dds_item(kount).data_description <"" Then
cell.Controls.Add(dds_item(kount))
cell.Controls.Add(image)
End If
End If
Else
If dds_item(kount).data_description <"" Then
' heres where the problem occurs
lbl_temp.Text = cell.Text
cell.Controls.Add(lbl_temp)
cell.Controls.Add(dds_item(kount))
End If
End If
Next
End If
 
End Sub
 

The problem I have, is that the 'cell.Controls. Add(dds_item(ko unt))'
seems to overwrite the 'cell.Controls. Add(lbl_temp)', and I get left
with no Column header.

Ideas?

Cheers.

[DaveyP]

On 27 May, 16:23, DaveyP <davey.phill... @gmail.comwrote :

I have a user control (called data_dictionary ) which I need to add
into the header text of a datagrid. I'm doing this by adding the
control in the RowCreated event as follows:

dds_description s is an arraylist of strings. data_dictionary is the
user control

* * Sub gvw_data_RowCreated(ByVal sender As Object, ByVal e As
GridViewRowEventArgs)

* * * * Dim kount As Integer
* * * * Dim dds_item(e.Row.Cells.Count) As
data_dictionary * * * * * * * ' user control
* * * * Dim lbl_temp As New Label

* * * * If Not (e.Row Is Nothing) And e.Row.RowType =
DataControlRowType.Header Then
* * * * * * For Each cell As TableCell In e.Row.Cells
* * * * * * * * If e.Row.Cells.GetCellIndex(cell) >=
dds_descriptions.Count Then
* * * * * * * * * * dds_descriptions.Add("")
* * * * * * * * End If
* * * * * * * * kount = e.Row.Cells.GetCellIndex(cell)
* * * * * * * * dds_item(kount) = New data_dictionary
* * * * * * * * dds_item(kount).data_description =
dds_descriptions(kount)
* * * * * * * * If cell.HasControls Then
* * * * * * * * * * ' *put a directional sort arrow on the header
* * * * * * * * * * Dim button As LinkButton =
DirectCast(cell.Controls(0), LinkButton)
* * * * * * * * * * If Not (button Is Nothing) Then
* * * * * * * * * * * * Dim image As Image = NewImage
* * * * * * * * * * * * If gvw_data.SortExpression<>
button.CommandArgument Then
* * * * * * * * * * * * * * image.ImageUrl ="http://b4/_style/
noarrow.gif"
* * * * * * * * * * * * Else
* * * * * * * * * * * * * * If gvw_data.SortDirection =
SortDirection.Ascending Then
* * * * * * * * * * * * * * * * image.ImageUrl = "http://b4/_style/
uparrow.gif"
* * * * * * * * * * * * * * Else
* * * * * * * * * * * * * * * * image.ImageUrl = "http://b4/_style/
downarrow.gif"
* * * * * * * * * * * * * * End If
* * * * * * * * * * * * End If
* * * * * * * * * * * * If dds_item(kount).data_description <"" Then
* * * * * * * * * * * * * * cell.Controls.Add(dds_item(kount))
* * * * * * * * * * * * * * cell.Controls.Add(image)
* * * * * * * * * * * * End If
* * * * * * * * * * End If
* * * * * * * * Else
* * * * * * * * * * If dds_item(kount).data_description <"" Then
* * * * *' heres where the problem occurs
* * * * * * * * * * * * lbl_temp.Text = cell.Text
* * * * * * * * * * * * cell.Controls.Add(lbl_temp)
* * * * * * * * * * * * cell.Controls.Add(dds_item(kount))
* * * * * * * * * * End If
* * * * * * * * End If
* * * * * * Next
* * * * End If

* * End Sub
 

The problem I have, is that the 'cell.Controls. Add(dds_item(ko unt))'
seems to overwrite the 'cell.Controls. Add(lbl_temp)', and I get left
with no Column header.

Ideas?

Cheers.

bump.