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:
Expand|Select|Wrap|Line Numbers
- 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