Protected Sub GridView_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles GridView.PageIndexChanging
GridView.PageIndex = e.NewPageIndex
CaricaDati()
End Sub

Protected Sub GridView_RowCreated(ByVal sender As Object, ByVal e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then

Dim _placeHolder As PlaceHolder = TryCast(e.Row.FindControl("MyPlaceHolder"), PlaceHolder)
If _placeHolder IsNot Nothing Then
Dim strStato As Integer = CInt(GridView.DataKeys(e.Row.DataItemIndex)("Stato"))

[...]

end if

if e.Row.RowType = DataControlRowType.DataRow then 

 

e.Row.RowType = 1 
DataControlRowType.DataRow =2
e.Row.DataItemIndex =-1

#Region " paginazione GridView "

    Protected Sub gv_PermessiUtenti_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles gv_PermessiUtenti.PageIndexChanging
        gv_PermessiUtenti.PageIndex = e.NewPageIndex
        Carica(Request("IdUtente"))
    End Sub

#End Region

#Region " comandi GridView "

    Protected Sub gv_PermessiUtenti_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs)
        If e.CommandName = "AssegnaValoreFlag" Then
            Dim parametri As String() = New String(3) {}
            Dim id As Integer = 0
            parametri = e.CommandArgument.Split("#")
            AssegnaValoreFlag(parametri(0), parametri(1), parametri(2))
            gv_PermessiUtenti.PageIndex = 0
            Carica(Request("IdUtente"))
        End If
    End Sub

    Protected Sub gv_PermessiUtenti_RowCreated(ByVal sender As Object, ByVal e As GridViewRowEventArgs)
        Try
            If e.Row.RowType = DataControlRowType.DataRow Then
                Dim _placeHolder As PlaceHolder = TryCast(e.Row.FindControl("MyPlaceHolder"), PlaceHolder)
                If _placeHolder IsNot Nothing Then
                    Dim strAbilitato As Boolean = CInt(gv_PermessiUtenti.DataKeys(e.Row.DataItemIndex)("Abilitato"))
                    Select Case strAbilitato
                        Case "0"
                            Dim _imgButton2 As New ImageButton()
                            _imgButton2.ImageUrl = ConfigurationManager.AppSettings("webApp") & "Immagini/checkbox_vuoto.png"
                            _imgButton2.Style.Value = "border:0; height:15px; width:15px;"
                            _imgButton2.CommandArgument = gv_PermessiUtenti.DataKeys(e.Row.DataItemIndex)("IdUtente").ToString() & "#" & gv_PermessiUtenti.DataKeys(e.Row.DataItemIndex)("IdPermesso").ToString() & "#1"
                            _imgButton2.CommandName = "AssegnaValoreFlag"
                            _placeHolder.Controls.Add(_imgButton2)
                        Case "1"
                            Dim _imgButton As New ImageButton()
                            _imgButton.ImageUrl = ConfigurationManager.AppSettings("webApp") & "Immagini/checkbox_ceccato.png"
                            _imgButton.Style.Value = "border:0; height:15px; width:15px;"
                            _imgButton.CommandArgument = gv_PermessiUtenti.DataKeys(e.Row.DataItemIndex)("IdUtente").ToString() & "#" & gv_PermessiUtenti.DataKeys(e.Row.DataItemIndex)("IdPermesso").ToString() & "#0"
                            _imgButton.CommandName = "AssegnaValoreFlag"
                            _placeHolder.Controls.Add(_imgButton)
                    End Select
                Else
                    Trace.Warn(" ERRORE ")
                End If
            End If
        Catch ex As Exception
            Dim strErr As String = ""
            strErr = "Errore nella creazione righe - PermessiUtente.aspx"
            Funzioni.redirectPageError(strErr, "")
            strErr = strErr & " - RowCreated -" & ex.ToString()
            Log.scriviLog(strErr)
        End Try
    End Sub

#End Region