在 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 中的参数。
干杯!
我尝试在 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:
循环 tableRecord.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 中的参数。
干杯!