1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| Private Sub nudPercent_ValueChanged(sender As Object, e As EventArgs) Handles nudPercent.ValueChanged
If nudPercent.Value = 0 Then
tsbImportExc.Enabled = False
Else
'déclaration de l'objet métier
NewDetails = New PROMO_BLL.PromoDetailsDemo
'déclaration de l'objet DTO
Dim pdd As New PROMO_DTO.PromoDetailDemo(0, CurrentUser.DTO.BuyDept, "", "", nudPercent.Value, "", Step2.SelectedConcessions.DTO(0), PROMO_BLL.PercentType.GetById(frmStep3Demo.ActionType.List).DTO, True)
'ajout du dto dans l'objet métier
NewDetails.DTO.Add(pdd)
'binding des propriétés Text des textboxes avec les propriétés Description et Note de mon objet DTO
tbDesc.DataBindings.Clear()
tbDesc.DataBindings.Add("Text", NewDetails.DTO(0), "Description")
tbNote.DataBindings.Clear()
tbNote.DataBindings.Add("Text", NewDetails.DTO(0), "Note")
End If
End Sub |
Partager