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
| ' initialisation de la fenêtre selon l opération courante
Select Case OperationCourante
Case Creation
If Lv_ConditionExpl.ListItems.Count > 0 Then
tableau = Split(Lv_ConditionExpl.ListItems(Lv_ConditionExpl.SelectedItem.Index).SubItems(3), " ")
chp_raf.Text = tableau(0)
CB_MAJPeriode.Text = tableau(1)
tableau = Split(Lv_ConditionExpl.ListItems(Lv_ConditionExpl.SelectedItem.Index).SubItems(4), " ")
chp_histo.Text = tableau(0)
SpinButton1.Value = Val(chp_histo.Text)
CB_histoPeriode.Text = tableau(1)
chp_raf.Enabled = True
SpinButton1.Enabled = True
CB_MAJPeriode.Enabled = True
SpinButton4.Value = Val(chp_histo.Text)
Cmd_Inserer.Enabled = True
If Sous_DomaineM(Lv_ConditionExpl.SelectedItem.Index).Mode_Rafraichisse <> "AJ" Then
' Impossible de modifier le nombre de mois d'historique pour les domaine en Annule et remplace
SpinButton4.Enabled = False
chp_histo.Enabled = False
CB_histoPeriode.Enabled = False
Else
SpinButton4.Enabled = True
chp_histo.Enabled = True
CB_histoPeriode.Enabled = True
End If
End If |
Partager