<

telerik:RadToolTipManager ID="ttManager" runat="server" HideEvent="ManualClose" Width="250" Height="250" EnableShadow="true" OnAjaxUpdate="ttManager_AjaxUpdate" RelativeTo="Element">

</telerik:RadToolTipManager>

------Grid Link Btn-----

</telerik:GridTemplateColumn>

<telerik:GridTemplateColumn HeaderText="NOTES" UniqueName="NoteID">

<ItemTemplate>

<asp:LinkButton ID="lnkNote" runat="server" CommandArgument='<%#Bind("intRSPID")%>' CommandName="Notes">Notes</asp:LinkButton>

</ItemTemplate>

</telerik:GridTemplateColumn>

<telerik:GridBoundColumn DataField="strRSPSiteLocation" HeaderText="RSP SITE" />

<

telerik

:

GridBoundColumn

DataField

="strUIC"

HeaderText

="UIC"

/>

------Code Behind--------

Protected Sub ttManager_AjaxUpdate(ByVal sender As Object, ByVal args As ToolTipUpdateEventArgs)

Me.UpdateToolTip(args.Value, args.UpdatePanel)

End Sub

Private Sub UpdateToolTip(ByVal elementID As String, ByVal panel As UpdatePanel)

Dim ctrl As Control = Page.LoadControl("~/Notes.ascx")

panel.ContentTemplateContainer.Controls.Add(ctrl)

'Dim details As ProductDetails = DirectCast(ctrl, ProductDetails)

panel.ContentTemplateContainer.Controls.Add(ctrl)

End Sub

Protected Sub myRadGrid_ItemDataBound(sender As Object, e As GridItemEventArgs) Handles myRadGrid.ItemDataBound

If e.Item.ItemType = GridItemType.Item OrElse e.Item.ItemType = GridItemType.AlternatingItem Then

Dim RSPID As Integer = e.Item.OwnerTableView.DataKeyValues(e.Item.ItemIndex)("intRSPID")

Dim target As Control = e.Item.FindControl("lnkNote")

Session(

"NotesID") = RSPID

Dim ctrl As Control = Page.LoadControl("~/Notes.ascx")

ctrl.ID = target.ID

If Not [Object].Equals(target, Nothing) Then

If Not [Object].Equals(Me.ttManager, Nothing) Then

'Add the button (target) id to the tooltip manager

Me.ttManager.TargetControls.Add(target.ClientID, (TryCast(e.Item, GridDataItem)).GetDataKeyValue("intRSPID").ToString(), True)

End If

End If

End If

End Sub