powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Ранг
6 сообщений из 6, страница 1 из 1
Ранг
    #34838470
*Эля
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Нужно рассчитать ранг по показателю, в Экселе есть очень простая формула, а как в фоксе сделать то же с наименьшими затратами, чтобы при одинаковом значении присваивалось одинаковое место.
...
Рейтинг: 0 / 0
Ранг
    #34838551
MiklS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Извините, но какое значение и в какое место его вствлять?
...
Рейтинг: 0 / 0
Ранг
    #34838640
Fffffff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
В FoxPro есть, например, функция RecNo(), возвращающая номер строки.
Можно сделать выборку, отсортировав по нужному полю, и затем выбрать
из нее, добавив поле Recno().

Select Recno() as Ранг, Поле1 ...
...
Рейтинг: 0 / 0
Ранг
    #34838667
*Эля
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Значение ранг или место по записи, вставить можно в любое поле.
Например тапблица с полями, район, прибыль, ранг, нужно узнать какой район на каком месте по прибыли, но просто индексация сдесь не подойдет, т.к. если 2 района имеют одинаковую прибыль, то и ранг у них дб один
...
Рейтинг: 0 / 0
Ранг
    #34838700
Fffffffff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ну, тогда циклом Do while.
...
Рейтинг: 0 / 0
Ранг
    #34838790
MiklS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Select Таблица
SET ORDER TO Прибыль
lnRang=1
lnSumma=0
SCAN
REPLACE Ранг WIHT lnRang
IF lnSumma#Прибыль
lnRang=lnRang+1
ENDIF
lnSumma=Прибыль
ENDSCAN
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Ранг
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]