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
| Public Class frmModification
Private Sub frmModification_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'-----------------------------ComboBOX--------------'
dttclasse = DtsClasse.CLASSE
dtaclasse.Fill(dttclasse)
bdsclasse.DataSource = DtsClasse
bdsclasse.DataMember = dttclasse.ToString
Me.CmbClasse.DataSource = bdsclasse
Me.CmbClasse.DisplayMember = dttclasse.NOMCLASSEColumn.ToString
Me.CmbClasse.ValueMember = dttclasse.NUMCLASSEColumn.ToString
'--------------------------------FinComBo-------------'
'--------------------------------DataGrid--------------'
dttEleve = DtsClasse.ELEVE
dtaEleve.Fill(dttEleve)
bdseleve.DataSource = DtsClasse
bdseleve.DataMember = dttEleve.ToString()
DtgModifELEVE.DataSource = bdseleve
Me.DtgModifELEVE.Columns(1).Visible = True
Me.DtgModifELEVE.Columns(2).Visible = True
Me.DtgModifELEVE.Columns(3).Visible = True
Me.DtgModifELEVE.Columns(4).Visible = True
'-------------------------FinDataGrid--------------'
End Sub
End Class |
Partager