向後循環表中，並重復

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中的參數。

乾杯！