How to call a function on the onclick of a DevExpress pivot grid cell click

Public Sub New(text As String, strEpisodes As String, values As List(Of Object))

        Dim tagURL As String

        If text <> String.Empty Then
            Me.NavigateUrl = "#"
            tagURL = "window.open('SessionTagNotes.aspx?tag=" & text & "&episodes=" & strEpisodes & "', 'winTagNotes', 'directories=no,location=no,menubar=no,resizable=yes,scrollbars=yes,status=no,titlebar=no,toolbar=no,top=5,left=0,height=500,width=800', true);"
            Attributes("onclick") = tagURL
        End If

End Sub

Select allOpen in new window

Public Sub New(text As String, strEpisodes As String, values As List(Of Object))

       Dim tagURL As String

        If text <> String.Empty Then
            tagURL = TWSLibrary.TagGridNotes(text, strEpisodes)
            Attributes("onclick") = tagURL
        End If


End Sub

Select allOpen in new window

Imports DevExpress.Web.ASPxPivotGrid
Imports DevExpress.XtraPivotGrid.Data

Public Class FieldValueTemplate
    Implements ITemplate

    Public Sub InstantiateIn(control As System.Web.UI.Control) Implements System.Web.UI.ITemplate.InstantiateIn

        Dim c As PivotGridFieldValueTemplateContainer = DirectCast(control, PivotGridFieldValueTemplateContainer)
        Dim cell As PivotGridFieldValueHtmlCell = c.CreateFieldValue()
        Dim valueItem As PivotFieldValueItem = c.ValueItem
        Dim helperArgs As PivotFieldValueEventArgs = New PivotFieldValueEventArgs(valueItem)
        Dim fields() As PivotGridField = helperArgs.GetHigherLevelFields()

        For Each field As PivotGridField In fields

            Dim currentValue As Object = helperArgs.GetHigherLevelFieldValue(field)

            If cell.TextControl.Text = "" Then
                cell.Controls.AddAt(cell.Controls.IndexOf(cell.TextControl), New LiteralControl(c.Text))
                cell.Controls.Remove(cell.TextControl)
            End If

            c.Controls.Add(cell)

        Next

    End Sub

End Class

Public Class CellTemplate
    Implements ITemplate
    Dim strEpisodes As String

    Sub New(Episodes As String)
        strEpisodes = Episodes
    End Sub

    Public Sub InstantiateIn(container As Control) Implements ITemplate.InstantiateIn
        Dim c As PivotGridCellTemplateContainer = DirectCast(container, PivotGridCellTemplateContainer)
        Dim fieldValues As List(Of Object) = New List(Of Object)

        If Not IsNothing(c.ColumnField) Then
            fieldValues.Add(c.GetFieldValue(c.ColumnField))
        End If

        If Not IsNothing(c.RowField) Then
            fieldValues.Add(c.GetFieldValue(c.RowField))
        End If

        If c.Text.Contains(",") Then
            Dim strTagArr() As String = c.Text.Split(",")
            For Each strTag As String In strTagArr
                c.Controls.Add(New MyLink(strTag, strEpisodes, fieldValues))
            Next
        Else
            c.Controls.Add(New MyLink(c.Text, strEpisodes, fieldValues))
        End If

    End Sub
End Class

Public Class MyLink
    Inherits HyperLink

    Public Sub New(text As String, strEpisodes As String, values As List(Of Object))

        Dim tagURL As String

        If text <> String.Empty Then
            tagURL = TWSLibrary.TagGridNotes(text, strEpisodes)
            Attributes("onclick") = tagURL
            text = String.Empty
        End If


    End Sub
End Class

Select allOpen in new window