Protected Sub NavigateUrl1_DataBinding(ByVal sender As Object, ByVal e As EventArgs)
            Dim c As HyperLink = TryCast(sender, HyperLink)
            Dim container As GridViewRow = CType(c.NamingContainer, GridViewRow)
            Dim url As String = String.Format("{0}", DataBinder.Eval(container.DataItem, "NavigateURL"))

            c.Text = " Подробнее ..."
            c.NavigateUrl = url
            c.Visible = Not url.Equals("")
        End Sub