or
Protected Sub gvLaneDBStatus_ItemDatabound(ByVal sender As Object, ByVal e As GridItemEventArgs) Handles gvLaneDBStatus.ItemDataBound
If TypeOf e.Item Is GridDataItem Then
Dim dataItem As GridDataItem = DirectCast(e.Item, GridDataItem)
Dim hl As GridHyperLinkColumn = CType(gvLaneDBStatus.MasterTableView.Columns.FindByUniqueName("LnStatus"), GridHyperLinkColumn)
hl.ImageUrl = "../../images/" + CStr(hl.DataTextField) + ".gif"
End If
End Sub