Hallo
ich habe eine Tabelle die ich nach verschieden kriterien sotieren will.
Jetzt habe ich dies mit SQL.Add gemacht. Mein Code sieht so aus.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
| procedure TForm6.ArbeiterClick(Sender: TObject);
begin
Nummer.Checked := False;
Geber.Checked := False;
DeviceName.Checked := False;
Aufloesung.Checked := False;
Seriennummer.Checked := False;
Datum.Checked := False;
// Arbeiter.Checked := False;
Abteilung.Checked := False;
if Arbeiter.Checked = true then begin
unit1.Form1.qrSuchen.Active := False;
unit1.Form1.qrSuchen.SQL.Add('ORDER BY Arbeiter ASC');
unit1.Form1.qrSuchen.Active := True;
end;
end;
procedure TForm6.AbteilungClick(Sender: TObject);
begin
Nummer.Checked := False;
Geber.Checked := False;
DeviceName.Checked := False;
Aufloesung.Checked := False;
Seriennummer.Checked := False;
Datum.Checked := False;
Arbeiter.Checked := False;
// Abteilung.Checked := False;
if Abteilung.Checked = true then begin
unit1.Form1.qrSuchen.Active := False;
unit1.Form1.qrSuchen.SQL.Add('ORDER BY Abteilung ASC');
unit1.Form1.qrSuchen.Active := True;
end;
end; |
Jetzt ist mein Problem das ich ja nicht meine SQL Text zwischen drin lösche.
Wenn ich jetzt also beim zweiten mal sotieren will, dann bekomme ich eine Fehlermeldung.
Ist es möglich nur die letzte Zeile zulöschen oder kann ich nur alles löschen.
Danke.
abi
