Morgen ihr Progger,
ich habe wiedermal ein dickes Problem
Also ich habe eine ComboBox mit Typem (z.B Anruf, Email, Treffen)
ich habe auch einen Parameter der die Typen übergeben soll.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
|
procedure TFKundendispo.show_qudates(kind : string);
begin
qudates.SQL.Text:='select userdata.user_name,dates.*,adresses.* from dates, userdata inner join adresses on adresses.adress_id=dates.adress_id where userdata.user_id=adresses.user_id';
if length(kind) > 0 then
qudates.SQL.Add(' and dateskind = ''' + kind + '''');
qudates.SQL.Add(' order by date desc, time desc');
qudates.Open;
end; |
So weit so gut
Dann will ich in der anderen Form den Parameter übergeben.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| procedure TFAdressen.CBActivityChange(Sender: TObject);
begin
if cbactivity.Text='Alle' then
fkundendispo.show_qudates('')
else
fkundendispo.Show_qudates(Cbactivity.Text);
end; |
Ich habe auch schon rausgefunden das er die richtigen Datensätze findet aber er zeigt sie einfach nicht an im DB Grid das DBGrid ist auch mit der Datenbank verbunden.
Zum anfang wenn ich das Fenster aufrufe stehen alle Datensätze drin aber wenn ich dann halt filtern will zeigt er nichts mehr an.
Bitte Bitte helft mir schnell
Danke !
Moderiert von 
Peter Lustig: Code- durch Delphi-Tags ersetzt.
