1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Public Sub afficherGroupeEquipementsEPC()
Dim monDataSet As DataSet = New DataSet
monDataSet.Clear()
monDataSet = mesMethodesEquipements.dataSetGroupeEquipements(0)
listeCategorieEPC.DataSource = monDataSet
listeCategorieEPC.DataValueField = "GE_ID"
listeCategorieEPC.DataTextField = "GE_NOM"
listeCategorieEPC.DataBind()
listeCategorieEPC.Items.Insert(0, "---- Sélectionner la catégorie ----")
End Sub
Public Sub afficherGroupeEquipementsEPI()
Dim monDataSet As DataSet = New DataSet
monDataSet.Clear()
monDataSet = mesMethodesEquipements.dataSetGroupeEquipements(1)
listeCategorieEPI.DataSource = monDataSet
listeCategorieEPI.DataValueField = "GE_ID"
listeCategorieEPI.DataTextField = "GE_NOM"
listeCategorieEPI.DataBind()
listeCategorieEPI.Items.Insert(0, "---- Sélectionner la catégorie ----")
End Sub |
Partager