Цитата:
Сообщение от
mefodiy
В Дельфи я бы сделал это так
i := 0;
First;
while not Eof do
begin
s := <Текущее значение поля>;
while (<Текущее значение поля> = s) and (not Eof) do
Next;
i := i + 1;
end;
Может кто переведет код в Navision?
Вам же написали - не изобретайте велосипед. Используйте временную таблицу.
Задача: Посчитать количество строк с уникальным значением поля "VAT Doc No.". Поле "VAT Doc No." имеет тип, к примеру Code.
1. Вводим любую временную таблицу, где поле "VAT Doc No." - первичный ключ (можно выбрать на любой вкус подходящую таблицу) и создаем временную таблицу на ее основе.
3. Копируем в цикле поле "VAT Doc No." во временную таблицу в ключевое поле и записываем
4. Временная таблица.COUNT
{все фильтра, которые нужно}
IF ИСХОДНАЯ ТАБЛИЦА.FIND(-) THEN REPEAT
временная таблица.INIT;
временная таблица.ключевое поле := "VAT Doc No.";
{прочие поля, которые нужны}
IF временная таблица.INSERT THEN;
UNTIL ИСХОДНАЯ ТАБЛИЦА.NEXT=0
Количество строк := временная таблица.COUNT;
И в добавок весь список уникальных значений.
Все просто, быстро и прекрасно работает