1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| Private Sub CreateBindingContext()
cboSexe.DataBindings.Add("Text", XXXDataset, "Clients.Sexe")
txtNom.DataBindings.Add("Text", XXXDataset, "Clients.Nom")
txtPrenom.DataBindings.Add("Text", XXXDataset, "Clients.Prenom")
txtAdd1.DataBindings.Add("Text", XXXDataset, "Clients.Adresse1")
txtAdd2.DataBindings.Add("Text", XXXDataset, "Clients.Adresse2")
txtCodePostal.DataBindings.Add("Text", XXXXDataset, "Clients.CodePostal")
txtVille.DataBindings.Add("Text", XXXDataset, "Clients.Ville")
txtPays.DataBindings.Add("Text", XXXDataset, "Clients.Pays")
txtTelephone.DataBindings.Add("Text", XXXDataset, "Clients.Telephone")
txtEmail.DataBindings.Add("Text", XXXDataset, "Clients.eMail")
txtDivers.DataBindings.Add("Text", XXXDataset, "Clients.Misc")
chkCourrier.DataBindings.Add("Checked", XXXDataset, "Clients.ListingCourrier")
chkProspect.DataBindings.Add("Checked", XXXDataset, "Clients.Prospect")
End Sub |
Partager