databinding en tiempo de ejecucion

[xknown]

Creo que sería así:

Código:

Public Class ColumnTemplate
    Implements ITemplate

    Dim columnName As String

    'Constructor
    Public Sub New(ByVal colname As String)
        columnName = colname
    End Sub

    Sub OnDataBound(ByVal sender As Object, ByVal e As EventArgs)
        Dim ctrl As HtmlControls.HtmlAnchor = CType(sender, HtmlControls.HtmlAnchor)
        Dim Container As DataGridItem = CType(ctrl.NamingContainer, DataGridItem)
        ctrl.HRef = String.Format("pagina.aspx?dir={0}", Container.DataItem(columnName))
    End Sub

    Public Sub InstantiateIn(ByVal container As Control) Implements System.Web.UI.ITemplate.InstantiateIn
        Dim lnk As New HtmlControls.HtmlAnchor

        AddHandler lnk.DataBinding, AddressOf Me.OnDataBound
        lnk.InnerText = "Vinculo_1"
        Container.Controls.Add(lnk)
    End Sub

Saludos