'this event fires once for every row "item" being displayed in a data bound datagrid
        'perda de sessão => novo login
        If Session("cod_fun") Is Nothing Then
            Response.Write("<Script language='Javascript'> alert('A sua sessão terminou, por favor faça novamente o Login !'); window.parent.location.href='http://netserver/Index_AcessoReservado.htm' </Script>")
            Exit Sub
        End If

        'se o item for válido...
        If e.Item.ItemType = ListItemType.AlternatingItem Or e.Item.ItemType = ListItemType.Item Then
            Dim btnDelete As LinkButton = CType(e.Item.Cells(7).Controls(0), LinkButton)
            btnDelete.Attributes("onclick") = "javascript:return confirm('Tem a certeza de que querer apagar esta linha???')"

            'vou ler a FK da tabela...
            Dim intFKconv As Integer = e.Item.Cells(4).Text
            'Dim intFkconv As Integer = CInt(intFK)
            'VOU PROCURAR A DDL QUE TEM A OPÇÃO QUE QUERO...
            Dim ddl As DropDownList = CType(e.Item.FindControl("ddlE_S"), DropDownList)
            'vou selecionar a entrada correcta na DDL...
            ddl.SelectedIndex = ddl.Items.IndexOf(ddl.Items.FindByValue(intFKconv))
        End If

        If e.Item.ItemType = ListItemType.EditItem Then
            Dim intFKconv As String = e.Item.Cells(4).Text
            Dim ddl2 As DropDownList = CType(e.Item.FindControl("ddlE_S2"), DropDownList)
            '    'vou selecionar a entrada correcta na DDL...
            If intFKconv = "" Then
                ddl2.SelectedIndex = ddl2.Items.IndexOf(ddl2.Items.FindByText("E"))

            Else
                ddl2.SelectedIndex = ddl2.Items.IndexOf(ddl2.Items.FindByText(intFKconv))

            End If

            e.Item.Cells(5).Width = New Unit("10px")
            e.Item.Cells(6).Width = New Unit("10px") 
       End If