Filtrer avec datatimepicker
Résolu
fifisoum5
Messages postés
19
Date d'inscription
Statut
Membre
Dernière intervention
-
nabil-bago Messages postés 289 Statut Membre -
nabil-bago Messages postés 289 Statut Membre -
Bonjour,
comment filtrer avec le datetimepicker
exp je choisis une date et il m'affiche tous les patients arrivés de cette date
merci d'avance
comment filtrer avec le datetimepicker
exp je choisis une date et il m'affiche tous les patients arrivés de cette date
merci d'avance
1 réponse
-
j'ai déjà cassé ma tete avec ce filtre, mais bon j'ai pas trouver une solution direct, mais j'ai trouvé une solution indirect LOL
donc je place un edit ( caché + readonly)
un datetimepicker ( dans l'evenement OnChange : edit1.text:=datetostr(datetimepicker1.date);
//donc l'edit reçoit automatiquement la date choisir dans le datetimepicker//
et puis je filtre avec le edit qui contient la date
Tpatients:= 'date_arrive='''+edit1.text+'''';
tpatients.filtred:=true;-
-
Merci fifisoum5
par contre je pense que y'a une petite erreur dans l'ordre des instruction, ça doit etre :
begin
datamodule2.ADOpatient.Filter:='DateExamPatient='+ QuotedStr(datetostr(DateTimePicker1.Date));
datamodule2.ADOpatient.Filtered:=true;
end;
puisque on active le filtrage de table apres avoir donné la valeur de filtre- ouiiii c vrai mais svp j'ai besoin d'un autre aide
ben comme j'avais fais le filtrage je voulais que tous les patients arrivés de la date choisie soient tous archivés
mon code :
with datamodule2.ADOArchive do
begin
insert;
Fieldbyname('NPatient').AsString := datamodule2.ADOPatient.Fieldbyname('NPatient').AsString;
Fieldbyname('NomPatient').AsString :=datamodule2. ADOPatient.Fieldbyname('NomPatient').AsString;
Fieldbyname('PrenomPatient').asstring :=datamodule2. ADOPatient.Fieldbyname('PrenomPatient').AsString;
Fieldbyname('DateExamPatient').AsString := datamodule2.ADOPatient.Fieldbyname('DateExamPatient').AsString;
Fieldbyname('PrixTotalPatient').AsString := datamodule2.ADOPatient.Fieldbyname('PrixTotalPatient').AsString;
Fieldbyname('TauxTotalSS').AsString := datamodule2.ADOPatient.Fieldbyname('TauxTotalSS').AsString;
Fieldbyname('CompteRendu').AsString := datamodule2.ADOPatient.Fieldbyname('CompteRendu').AsString;
post;
end;
archive un par un un mais moi je souhaiterai archiver des dizaines au mm temps
:(
-
-
