Problem viewing text of hyperlink column in datagrid

[jeguillo]

I am trying to retrieve the text within each cell in a datagrid in
order to change the color of each cell, depending on the value within
that cell.

This works fine on the cells that are bound columns, but returns an
empty string for the cells that are hyperlink columns.

Here is the code to retrive the text:

Private Sub DataGrid1_ItemD ataBound(ByVal sender As Object, ByVal e As
System.Web.UI.W ebControls.Data GridItemEventAr gs) Handles
DataGrid1.ItemD ataBound
Dim x As Integer
For x = 0 To e.Item.Cells.Co unt - 1
Response.Write( e.Item.Cells(x) .Text)
Next
End Sub

I have also tried, which gives me the error:

"Specified argument was out of the range of valid values. Parameter
name: index

Description: An unhandled exception occurred during the execution of
the current web request. Please review the stack trace for more
information about the error and where it originated in the code.

Exception Details: System.Argument OutOfRangeExcep tion: Specified
argument was out of the range of valid values. Parameter name: index

Source Error:
Line 144: Dim H1 As HyperLink
Line 145: For x = 0 To e.Item.Cells.Co unt - 1
Line 146: H1 = e.Item.Cells(8) .Controls(1)
Line 147: Response.Write( H1.Text)
Line 148: Next"

Private Sub DataGrid1_ItemD ataBound(ByVal sender As Object, ByVal e As
System.Web.UI.W ebControls.Data GridItemEventAr gs) Handles
DataGrid1.ItemD ataBound
Dim x As Integer
Dim H1 As HyperLink
For x = 0 To e.Item.Cells.Co unt - 1
H1 = e.Item.Cells(8) .Controls(1)
Response.Write( H1.Text)
Next
End Sub

This is how I am creating the datagrid:

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeCompo nent()
Dim strSql As String = "exec dbo.uspSummaryM atrix"
Dim strCnn As String = "data source=xxxx;int egrated
security=false; initial catalog=COPS;ui d=xxxx;pwd=xxxx "
objCnn = New SqlConnection(s trCnn)
objCmd = New SqlCommand
objCmd.CommandT ext = "dbo.uspSummary Matrix"
objCmd.CommandT ype = CommandType.Sto redProcedure
objCmd.Connecti on = objCnn
objCmd.Paramete rs.Add(New SqlParameter("@ ItemID",
System.Data.Sql DbType.VarChar, 255))

objCmd.Paramete rs("@ItemID").V alue = Request.QuerySt ring("ID")

objCnn.Open()

Dim dReader As SqlDataReader
dReader = Nothing
dReader = objCmd.ExecuteR eader()

Dim i As Integer
Dim count As Integer
count = 0

DataGrid1.GridL ines = GridLines.Both
DataGrid1.Allow Sorting = True
DataGrid1.Borde rColor = Color.SlateGray
DataGrid1.Borde rStyle = BorderStyle.Sol id
DataGrid1.ShowH eader = True
DataGrid1.AutoG enerateColumns = False
DataGrid1.BackC olor = Color.White
DataGrid1.Alter natingItemStyle .BackColor = Color.LightGray
DataGrid1.ItemS tyle.ForeColor = Color.DarkSlate Blue
DataGrid1.ItemS tyle.BackColor = Color.White
DataGrid1.Heade rStyle.Font.Bol d = True
DataGrid1.Heade rStyle.ForeColo r = Color.White
DataGrid1.Heade rStyle.BackColo r = Color.DarkSlate Blue
DataGrid1.Width = Unit.Percentage (100)
DataGrid1.CellP adding = 2
Dim datagridcol
Dim strcolor As String

Do While dReader.Read
If count = 0 Then
For i = 0 To dReader.FieldCo unt - 1
If InStr(dReader.G etName(i), "container" ) Then
datagridcol = New BoundColumn
datagridcol.hea dertext =
Replace(dReader .GetName(i), "c", "C")
datagridcol.dat afield = dReader.GetName (i)
DataGrid1.Colum ns.Add(datagrid col)
End If
If InStr(dReader.G etName(i), "Word") Then
datagridcol = New HyperLinkColumn
datagridcol.Hea derText =
Replace(dReader .GetName(i), "Word", "")
datagridcol.Dat atextField = dReader.GetName (i)
End If
If InStr(dReader.G etName(i), "Link") Then
datagridcol.dat anavigateurlfie ld =
dReader.GetName (i)
datagridcol.dat anavigateurlfor matstring =
"UsageDocuments 2.aspx?ID={0}"
datagridcol.tar get = "iframedocument "
DataGrid1.Colum ns.Add(datagrid col)
End If
Next
End If
count = count + 1
Loop

dReader.Close()

objDataAdapter = New SqlDataAdapter( objCmd)
objDataSet = New DataSet
objDataView = New DataView
objDataAdapter. Fill(objDataSet )
objDataView.Tab le = objDataSet.Tabl es(0)

DataGrid1.DataS ource = objDataView
DataGrid1.DataB ind()

objCnn.Close()
End Sub


I have also considered creating a template column with a hyperlink
inside the template, but I'm not too sure how to do this or access the
text value within the template column.
Any advice or help is greatly appreciated!

Thank you in advance!
Jill

[JGeorge]

I was able to fix my problem by doing the following. I kept my code
for creating the datagrid the same. Since I know the first column is
always a bound column and the rest are always hypelink columns (and I
don't care what is in the bound column), I am disregarding the first
column all together and starting at 1 in my loop instead of 0.

Private Sub DataGrid1_ItemD ataBound(ByVal sender As Object, ByVal e As
System.Web.UI.W ebControls.Data GridItemEventAr gs) Handles
DataGrid1.ItemD ataBound
Dim x As Integer
Dim h1 As HyperLink
For x = 1 To e.Item.Cells.Co unt - 1
If e.Item.ItemType = ListItemType.It em Or e.Item.ItemType =
ListItemType.Al ternatingItem Then
Select Case CType(e.Item.Ce lls(x).Controls (0),
HyperLink).Text
Case Is = "Approved"
e.Item.Cells(x) .BackColor = Color.Lime
Case Is = "Denied"
e.Item.Cells(x) .BackColor = Color.Red
Case Is = "Identified "
e.Item.Cells(x) .BackColor = Color.Cyan
Case Is = "In Work"
e.Item.Cells(x) .BackColor = Color.Cyan
Case Is = "Restricted "
e.Item.Cells(x) .BackColor = Color.Orange
Case Is = "Retired"
e.Item.Cells(x) .BackColor = Color.Orange
Case Is = "Revoked"
e.Item.Cells(x) .BackColor = Color.Red
Case Is = "Submitted"
e.Item.Cells(x) .BackColor = Color.Yellow
End Select
End If
Next
End Sub