how to apply hyperlink to GridBoundColumn ?

[Madhu Palakurthi]

Hi,

I have a grid with auto generated columns like this .

<telerik:RadGrid ID="RadGrid1" runat="server" CellSpacing="0" ShowFooter="True"
               DataSourceID="SqlDataSource1" GridLines="None">
               <headercontextmenu>
               </headercontextmenu>
               <clientsettings>
                   <Scrolling AllowScroll="True" UseStaticHeaders="True" />
               </clientsettings>
               <mastertableview datasourceid="SqlDataSource1">
                   <CommandItemSettings ExportToPdfText="Export to PDF" />
                   <RowIndicatorColumn FilterControlAltText="Filter RowIndicator column">
                       <HeaderStyle Width="20px" />
                   </RowIndicatorColumn>
                   <ExpandCollapseColumn FilterControlAltText="Filter ExpandColumn column">
                       <HeaderStyle Width="20px" />
                   </ExpandCollapseColumn>
                   <EditFormSettings>
                       <EditColumn FilterControlAltText="Filter EditCommandColumn column">
                       </EditColumn>
                   </EditFormSettings>
               </mastertableview>
               <filtermenu enableimagesprites="False">
               </filtermenu>
           </telerik:RadGrid>

I have total 20 columns in display. I would like to change 18  boundcolumns to hyperlink columns ..


I know how to change one boundcolumn  to hyperlink column like this ..

Protected Sub RadGrid1_ItemDataBound(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridItemEventArgs) Handles RadGrid1.ItemDataBound
        Try
             If TypeOf e.Item Is GridDataItem Then
                Dim item As GridDataItem = DirectCast(e.Item, GridDataItem)
                Dim hl As New HyperLink()
                hl.NavigateUrl = "Default.aspx?id=1"
                hl.Text = item("TaskReasonCategory").Text
                item("TaskReasonCategory").Controls.Add(hl)
            End If

        Catch ex As Exception
            Throw ex
        End Try
    End Sub

From above code is only for one column "TaskReasonCategory",i,.e hard coded.. But how to change 18 columns without mentioning item("ColumnName").

Please help me on this ...

Thank you in advance..

[Princy]

Hi,

Try the following code to achieve your scenario.
VB:

Protected Sub RadGrid1_ItemCreated(sender As Object, e As GridItemEventArgs)
    If TypeOf e.Item Is GridDataItem Then
        Dim item As GridDataItem = DirectCast(e.Item, GridDataItem)
        For Each col As GridColumn In RadGrid1.MasterTableView.RenderColumns
                     Dim link As New HyperLink()
            link.NavigateUrl = "Page.aspx"
                 link.Text = item[col.UniqueName].Text;
                  item(col.UniqueName).Controls.Add(link)
        Next
    End If
End Sub
Protected Sub RadGrid1_ItemDataBound(sender As Object, e As GridItemEventArgs)
    If TypeOf e.Item Is GridDataItem Then
        Dim item As GridDataItem = DirectCast(e.Item, GridDataItem)
        For Each col As GridColumn In RadGrid1.MasterTableView.RenderColumns
                    Dim link As New HyperLink()
            link.NavigateUrl = "Page.aspx"
                   link.Text = item[col.UniqueName].Text;
                     item(col.UniqueName).Controls.Add(link)
        Next
    End If
End Sub

Thanks,
Princy

[Madhu Palakurthi]

Thank you for quick reply..