Filter auf Tabelle Field greift nicht

Hallo zusammen

Ich möchte über die Tabelle 'Field' einen Filter legen auf eine bestimmte Tabelle, damit ich einen String daraus zusammenbauen kann. Das habe ich so gelöst:

Code:

Fields.SETRANGE(TableNo, _TableNo);
IF Fields.FINDSET THEN BEGIN
  cnt := 1;
  REPEAT
    IF Fields.TableNo = _TableNo THEN BEGIN                // Workaround, da der SETRANGE-Befehl auf Tabelle Field nicht greift
      RetVal := RetVal + '[%' + FORMAT(cnt) +'], ';
      cnt += 1;
    END;
  UNTIL Fields.NEXT = 0;
  RetVal := COPYSTR(RetVal, 1, STRLEN(RetVal)-2);
  RetVal := RetVal + ')';
END;


Komischerweise greift der Filter nicht (darum temporär die Abfrage auch die TableNo in der Schleife. Das hat aber schon funktioniert. Erst als die Tabelle neue Felder bekam, trat dieser Effekt auf.

Hat jemand vielleicht eine Idee? Besten Dank schon mal im Voraus.

Erst als die Tabelle neue Felder bekam, trat dieser Effekt auf.

Was meinst du damit? Welche Tabelle, was für neue Felder?

Was meinst du damit? Welche Tabelle, was für neue Felder?

In Variable _TableNo steht die ID einer beliebigen Tabelle (die wurde indiv. erstellt). Und in dieser Tabelle sind neue Felder dazugekommen.

Hallo,

das kannst du aber auch ein wenig einfacher haben

Code:

RecRef.Open(3); // Payment Terms
for i:= 1 to RecRef.FieldCount do begin
   if txt <>'' then
     txt +=', ';
   Txt +=Strsubstno('[%%1]',i);
end;
Message(txt);


Oder falls du das hier erreichen wolltest

Code:

RecRef.Open(3);
for i:= 1 to RecRef.FieldCount do begin
   if txt <>'' then
     txt +=', \';
//   Txt +='['+RecRef.FIELDINDEX(i).Name+']';
   Txt +='['+RecRef.FIELDINDEX(i).Caption+']';
end;
Message(txt);

Gruß, Fiddi

das kannst du aber auch ein wenig einfacher haben

Hallo, Fiddi, danke für den Code. Das ist einfacher, da hast du recht

Das Problem mit dem Filter auf Tabelle Field ist damit nicht gelöst, aber so habe ich eine gute Alternative.

Das Problem mit dem Filter auf Tabelle Field ist damit nicht gelöst, aber so habe ich eine gute Alternative.

Hast du nach der Tabellenänderung mal den Servicetier neu gestartet, um zu testen, ob evtl. die Daten nur nicht aktuell sind, die du dort siehst?

Gruß Fiddi