在 table 中向后循环,重复

backwards looping in table, with repeat

我尝试在 table 中向后循环。

我这样试:

KlantContact.SETFILTER("No.", "<Contact>"."No.");
   FOR i := 0 TO KlantContact.COUNT  DO BEGIN
      IF KlantContact.FINDSET THEN BEGIN REPEAT //  KlantContact.FINDSET  THEN BEGIN REPEAT
        //KlantContact.CALCFIELDS(KlantContact."No.");
          MESSAGE(KlantContact.Name);
      UNTIL  KlantContact.NEXT -1 = 0;
        //MESSAGE(KlantContact.COUNT);
      END;
     END;

谢谢

设置密钥,设置降序并使用 REPEAT..UNTIL:

循环 table
Record.RESET;
Record.SETCURRENTKEY("Field1","Field2");
Records.ASCENDING(FALSE);
IF Record.FINDSET(FALSE,FALSE) THEN BEGIN
  REPEAT
  // do something
  UNTIL Record.NEXT = 0;
END;

如果要修改 table,请相应地使用 FINDSET 中的参数。

干杯!