Filtrer avec datatimepicker
Résolu
fifisoum5
Messages postés
19
Date d'inscription
Statut
Membre
Dernière intervention
-
nabil-bago Messages postés 255 Date d'inscription Statut Membre Dernière intervention -
nabil-bago Messages postés 255 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Filtrer avec datatimepicker
- Comment filtrer sur excel - Guide
- Trier avec Excel : toutes les méthodes de tri de données - Guide
- Comment créer un filtre avec une liste déroulante sur excel - Guide
- Excel filtrer à partir d'une liste - Forum Excel
- Filtrer par couleur excel - Guide
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;
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;
peut être elle va t'aider
procedure TArchive.DateTimePicker1Change(Sender: TObject);
begin
datamodule2.ADOpatient.Filtered:=true;
datamodule2.ADOpatient.Filter:='DateExamPatient='+ QuotedStr(datetostr(DateTimePicker1.Date));
end;
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
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
:(