1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37
|
Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
sdsPageListe.SelectCommand = "SELECT Id_Page, Titre, txtLien, NomPage, OrdrePage, PresentNav, StatutConnection FROM Pages WHERE Appl_Name = '" & Request.Url.Host & "' ORDER BY StatutConnection, PresentNav DESC, OrdrePAge"
sdsPageListe.UpdateCommand = "UPDATE Pages SET Titre = @Titre, txtLien = @txtLien, NomPage = @NomPage, OrdrePage = @OrdrePage, PresentNav = @PresentNav, StatutConnection = @StatutConnection WHERE Id_Page = @Id_Page"
gvPageListe.DataKeyNames = New String() {"Id_Page"}
gvPageListe.ShowFooter = True
Dim bfTitre, bfLien, bfNomPage, bfOrdre, bfPresentNav, bfStatutCon As New BoundField
bfTitre.HeaderText = "Titre de la page"
bfLien.HeaderText = "Lien"
bfNomPage.HeaderText = "Nom"
bfOrdre.HeaderText = "Ordre"
bfPresentNav.HeaderText = "Navi"
bfStatutCon.HeaderText = "Conn"
bfTitre.DataField = "Titre"
bfLien.DataField = "txtLien"
bfNomPage.DataField = "NomPage"
bfOrdre.DataField = "OrdrePage"
bfPresentNav.DataField = "PresentNav"
bfStatutCon.DataField = "StatutConnection"
Dim cfModif As New CommandField
cfModif.UpdateText = "Modifier"
cfModif.ButtonType = ButtonType.Button
cfModif.ShowEditButton = True
With gvPageListe
.Columns.Add(bfTitre)
.Columns.Add(bfLien)
.Columns.Add(bfNomPage)
.Columns.Add(bfOrdre)
.Columns.Add(bfPresentNav)
.Columns.Add(bfStatutCon)
.Columns.Add(cfModif)
End With
End Sub |
Partager