How to add an anchor in ASP.NET using VB?

[benfly08]

Hi, guys.
I'm using VB.NET to write an ASP page. I use a datagrid to display data from database. I have two types of items: Dry and Frozen. I want to put anchor to these two headers so that whenever I click a hyperlink in the page, I will go to their positions. Here is my partial code:

 
    Sub dtgCustomers_ItemDataBound(ByVal sender As Object, ByVal e As DataGridItemEventArgs)
 
        If (e.Item.ItemType <> ListItemType.Header And e.Item.ItemType <> ListItemType.Footer) AndAlso (CType(CType(e.Item, TableRow).Cells(0).Controls(0), DataBoundLiteralControl).Text.Trim = ("DRY ITEMS") Or CType(CType(e.Item, TableRow).Cells(0).Controls(0), DataBoundLiteralControl).Text.Trim Like ("FROZEN ITEMS")) Then
            '' CType(CType(e.Item, TableRow).Cells(0).Controls(0), DataBoundLiteralControl).Text.Equals("DRY ITEMS")
            e.Item.Cells(0).ColumnSpan = 9
            e.Item.Cells(0).Font.Bold = True
 
            'e.Item.BackColor = Color.Wheat
            e.Item.BackColor = Color.Goldenrod
            e.Item.Cells(0).Font.Size = FontUnit.Medium
 
 
 
 
            e.Item.Cells.RemoveAt(8)
            e.Item.Cells.RemoveAt(7)
            e.Item.Cells.RemoveAt(6)
            e.Item.Cells.RemoveAt(5)
            e.Item.Cells.RemoveAt(4)
            e.Item.Cells.RemoveAt(3)
            e.Item.Cells.RemoveAt(2)
            e.Item.Cells.RemoveAt(1)
        ElseIf (e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem) And e.Item.ItemType <> ListItemType.Header Then
            e.Item.Attributes.Add("onmouseover", "this.style.backgroundColor= 'LightSteelBlue'") '' CORAL LAVENDER SlateBlue
 
        End If
        ''  If Not (e.Item.Cells(0).Text.Equals("DRY ITEMS") Or e.Item.Cells(0).Text.Equals("FROZEN ITEMS")) Then
 
        If Not (e.Item.ItemType = ListItemType.Header OrElse e.Item.ItemType = ListItemType.Footer OrElse (CType(CType(e.Item, TableRow).Cells(0).Controls(0), DataBoundLiteralControl).Text.Trim = ("DRY ITEMS")) OrElse (CType(CType(e.Item, TableRow).Cells(0).Controls(0), DataBoundLiteralControl).Text.Trim = ("FROZEN ITEMS"))) Then
            If e.Item.ItemType = ListItemType.Item And e.Item.ItemType <> ListItemType.Header Then
                e.Item.Attributes.Add("onmouseout", "this.style.backgroundColor='White'")
            ElseIf e.Item.ItemType = ListItemType.AlternatingItem And e.Item.ItemType <> ListItemType.Header Then
                e.Item.Attributes.Add("onmouseout", "this.style.backgroundColor='#CCCCCC'")
            End If
 
        End If
    End Sub
 
 
 

Anyone got an idea? I know how to do it in html, but i want to do it in VB. So if someone got an idea, please tell me, thanks.



Ben