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
|
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
lbTotal.Visible = False
lbNbrCartes.Visible = False
Exporter.Enabled = False
' On rend les boutons Valider et Abandonner invisibles
CType(Me.FindControl("niveauOperateur1"), niveauOperateur).btnVisible = False
If Not IsPostBack Then
Dim Critere_Filter As String
'si premiere fois
Create_Dataset()
'on positionne les critères sur Inactives
DpLstCritère.SelectedIndex = 0
' Carte Inactives
tabRow = New Integer(11) {1, 2, 3, 8, 9, 10, 11, 12, 13, 14, 15, 16}
Critere_Filter = "And DATE_ATTRIBUTION is Null"
Me.setVariableSession("tabRow", tabRow)
' Sélection des données et Création du Datagrid
ExtractData(Critere_Filter)
Else
Cartes_DS = CType(Me.getVariableSession("Cartes_DS"), DataSet)
End If
End Sub |
Partager