1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
Private Function Init_Ddl() As Boolean
Dim MyDtCtx As InscriptionsDataContext = New InscriptionsDataContext
ddlModule.DataValueField = "Code"
ddlModule.DataTextField = "Libelle"
Dim Myreq = From MB In MyDtCtx.MODULE_BASE Join MAO In MyDtCtx.MODULE_AO On MB.ID_MOD_BASE Equals MAO.IDMODBASE Join Session In MyDtCtx.SESSION On MAO.ID_MOD_AO Equals Session.ID_MOD_AO _
Select New With { _
.Code = Session.ID_SESSION, _
.Libelle = String.Format("{0} - Du {1:dd MMMM yyyy} au {2:dd MMMM yyyy}", MB.LIB_MOD_BASE, Session.DATE_DEB_SESS, Session.DATE_FIN_SESS) _
}
ddlModule.DataSource = Myreq
ddlModule.DataBind()
End Function |