Hallo alle...
Ich habe einiges ausprobiert...ohne Ergebnis.
Langsam drängt sich mir der Verdacht auf, das das fehlende Feld LS nicht mit der
Query zusammenhängt sondern mit der Filterung.
Die Filterung erfolgt auf Feld LS. Wenn ich aber QLieferschein aufrufe ist in der Ergebnismenge das Feld LS nicht vorhanden.
Vor der Abfrage setze ich aber die
Query auf Filtered:= False
Delphi-Quellcode:
procedure LSuche;
begin
if FLieferschein.SMatch.Text = '' then
begin
exit;
end
else
begin
ListeComboBox;
Filter;
FLieferschein.SMatch.Enabled:= False;
FLieferschein.ComboBox1.Enabled:= False;
FLieferschein.BitBtn2.Enabled:= False;
FLieferschein.BitBtn1.Enabled:= False;
FLieferschein.BitBtn3.Enabled:= False;
Abfrage;
GridOptionen;
end;
end;
Delphi-Quellcode:
procedure ListeComboBox;
begin
with Flieferschein do
begin
ComboBox2.Enabled:= False;
ComboBox2.Items.Clear;
ComboBox2.Items.Add('alle');
case ComboBox1.ItemIndex of
0: begin // Artikelnummer
ComboBox2.Items.Add('kein Lieferschein');
end;
1: begin // Style Name
ComboBox2.Items.Add('kein Lieferschein');
end;
2: begin // Style Nummer
ComboBox2.Items.Add('kein Lieferschein');
end;
3: begin // Lieferschein
ComboBox2.Items.Add('keine Rechnung');
end;
end;
ComboBox2.ItemIndex:= 0;
end;
end;
Delphi-Quellcode:
procedure Filter;
begin
with Flieferschein do
begin
case ComboBox2.ItemIndex of
0: begin
Query1.Filtered:= False;
end;
1: begin
if ComboBox2.Text = 'kein Lieferschein' then
begin
Query1.Filter:= 'LS = '+ QuotedStr('');
Query1.Filtered:= True;
SMatch.SetFocus;
end
else
begin
Query1.Filter:= 'RE = '+ QuotedStr('');
Query1.Filtered:= True;
SMatch.SetFocus;
end;
end;
end;
end;
end;
...kann trotzdem der Filterstring irgendwie noch aktiv sein ?
