向后循环表，重复

Question

我试着在桌子上向后循环。

我这样试试：

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;

谢谢

Answer 1

设置密钥，设置降序并使用REPEAT..UNTIL：

循环遍历表

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

如果要修改表，请相应使用FINDSET中的参数。

干杯！