Click here to Skip to main content
12,818,489 members (33,070 online)
Rate this:
Please Sign up or sign in to vote.
See more: VB VB.NET
I have created a Dynamic linkbutton at run time in girdview that shows Group total using Row_Created event of Gridview and i want to get Click event of this linkbutton.when we click this linkbutton a method called

Protected Sub GrdAllDist_RowCreated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GrdAllDist.RowCreated

       Dim IsSubTotalRowNeedToAdd As Boolean = False

       If (strPreviousRowID <> String.Empty) AndAlso (DataBinder.Eval(e.Row.DataItem, "DistCode") IsNot Nothing) Then
           If strPreviousRowID <> DataBinder.Eval(e.Row.DataItem, "DistCode").ToString() Then
               IsSubTotalRowNeedToAdd = True
           End If
       End If

       If (strPreviousRowID <> String.Empty) AndAlso (DataBinder.Eval(e.Row.DataItem, "DistCode") Is Nothing) Then
           IsSubTotalRowNeedToAdd = True
           intSubTotalIndex = 0
       End If

       If IsSubTotalRowNeedToAdd Then
           Dim grdViewProducts As GridView = DirectCast(sender, GridView)

           Creating a Row
           Dim SubTotalRow As New GridViewRow(0, 0, DataControlRowType.DataRow, DataControlRowState.Insert)

           HeaderCell = New TableCell()
          Dim TotalRec_sub_link As New LinkButton()
         TotalRec_sub_link.Text = String.Format("{0}", TotalRec_sub)
         HeaderCell.HorizontalAlign = HorizontalAlign.Center
End If
 End Sub

this is the method

Private Sub TotalRec_sub_link_click(ByVal sender As System.Object, ByVal e As System.EventArgs)

            status = "ALL"
            Dim DtSubList As DataTable
            Dim objcrl As New Circle()

            Dim gvRow As GridViewRow = CType(CType(sender, Control).Parent.Parent, GridViewRow)
            Dim index As Integer = gvRow.RowIndex

            hfdistSubID = gvRow.FindControl("SubtotHiddnDistID")

            distSubID = CType(hfdistSubID.Value, Integer)
            If deptsubID <> 0 And distSubID <> 0 Then
                DtSubList = objcrl.ListSubAllDistDeprtRpt(deptsubID, status, distSubID, CType(Session("fdt"), String), CType(Session("tdt"), String))
                dvSub = New DataView(DtSubList, "", "DistName,DeptName", DataViewRowState.CurrentRows)
                ViewState("DtSubList") = dvSub.ToTable()
                GrdSubGrid.Visible = True
                GrdSubGrid.DataSource = dvSub
                Session("reporSubtList") = dvSub.ToTable()
                GrdAllDist.DataSource = CType(Session("reportList"), DataTable)
            End If
        Catch ex As Exception

        End Try

    End Sub

Please Help me and Thanks in advance.
Posted 6-Feb-13 21:16pm
Updated 6-Feb-13 21:20pm

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

    Print Answers RSS
Top Experts
Last 24hrsThis month

Advertise | Privacy | Mobile
Web02 | 2.8.170308.1 | Last Updated 7 Feb 2013
Copyright © CodeProject, 1999-2017
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100