Это вопрос на примитивное знание команд FoxPro. Поэтому кода не напишу, но некоторые намеки:

RAND() возвращает значение от 0 до 1. Поэтому, если Вам надо получить случайное значение в некотором заданном диапазоне, то проще исходить из предположения, что RAND() - это процент от интервала. Например:


Для определения имени поля выбранного случайным образом почитайте описание команд

FCOUNT() - количество полей в таблице
FIELD() - возвращает имя поля по его номеру
AFIELDS() - структура таблицы записывается в массив. Одна строка - описание одного поля.

Для привсоения значения полю, если имя этого поля записано в переменной используют макроподстановку. Примерно так:

Формализуем твое ТЗ (техническое задание)

У тебя надо случайным образом выбирать 3 значения:

1) Номер поля
2) Номер записи
3) Значение

При этом комбинация этих 3 значений должна быть уникальна.

Следовательно, необходимо организовать хранение ранее выбранных троек значений, чтобы исключить повторы

Номер поля и номер записи никак не связаны между собой, но "Значение" должно находится в диапазоне, который определяется по выбранным номерам полей и номерам записи.

Тебе дается N попыток выбора случайных комбинаций (например, 30 раз).

Схема решения:

1) Создаем временную таблицу для хранения выбранных троек случайных значений

CREATE CURSOR curSelect (nField I, nRecord I, nValue I)

2) Нам необходимо повторять операцию поиска троек случайных значений, до тех пор, пока не будет набрано 30 наборов случайных значений. В данном случае - 30 записей в курсоре curSelect

=RAND(-1)
DO WHILE Reccount("curSelect")<30
...
ENDDO

3) Внутри этого цикал отдельно определяем каждое из 3 значений (как? уже неоднократно объяснили)

LOCAL lnField, lnRecord, lnValue
lnField = ... RAND() ...
lnRecord = ... RAND() ...
lnValue = ... RAND() ...

4) Перед тем, как записать полученную тройку значений в итоговый курсор проверям, не были ли использована эта комбинация раньше

select curSelect
LOCATE FOR nField = m.lnField AND nRecord = m.lnRecord AND nValue=m.lnValue
IF FOUND("curSelect")=.T.
* Такая комбинация уже была
* Повторяем расчет случайных значений без записи
LOOP
ENDIF

5) Если такой комбинации случайных значений не было, то записываю эту комбинацию в итоговый курсор и выполняю модификацию нужного поля в нужной записи

INSERT INTO curSelect (nField, nRecord, nValue) VALUES (m.lnField, m.lnRecord, m.lnValue)
LOCAL lcField
lcField = FIELD(m.lnField, "MyTab")
select MyTab
GO (m.lnRecord)
REPLACE &lcField WITH m.lnValue


Надеюсь, такого объяснения достаточно?

Вот ведь упорный какой! Пока код не напишут не успокоится

Ладно, если время терпит, то на выходных я тебе напишу код. Надеюсь, саму задачу я понял правильно?

И еще твои дополнительные условия к написанному ранее ТЗ:

-) Можно модифицировать только содержимое полей с 11 по 22 (это поля A1, A2, ... B1, B2), если до модификации в выбранной записи уже было записано какое-то значение отличное от 0.

-) Диапазон допустимых значений для полей определяется по цифре в имени поля. Эта цифра определяет десяток, в пределах которого должно быть значение.

A5 - выделяем 5, значение в диапазоне от (5-1)*10 до 5*10-1

Правильно?

Вот. Посмотри, что получилось.