procedure TForm1.DBGrid1ColExit(Sender: TObject); begin with DbGrid1 do //passer directement de la première //à la troisième colonne if SelectedIndex = 0then begin SelectedIndex := 2; //si le champ est vide, y inscrire la valeur 1 if SelectedField.IsNull then SelectedField.AsInteger : = 1; end; end;
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
115 internautes nous ont dit merci ce mois-ci
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.