Query... Feld nicht gefunden

[haentschman]

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 ?