FoxPro - это все-таки СУБД. Т.е. "заточена" под работу с таблицами. Работа с массивами поставлена хуже. В идеале, лучше бы оставить данные в таблице и там и выполнять поиск. Но, поскольку речь идет о FP2.x, где количество рабочих областей сильно ограничено, то придется выкрчиваться.
Для работы с массивами в FoxPro есть ряд команд, начинающихся с буквы A...
ASCAN() - поиск в массиве по значению одного элемента. На способ поиска символьных данных влияет настройка SET EXACT
Эта функция возвращает номер элемента массива. "Перевести" найденный номер элемент в номер строки или столбца можно при помощи функции ASUBSCRIPT()
Чтобы понять, что такое "элемент" следует учитывать тот факт, что хотя к двумерному массиву можно обращаться с указанием номера строки и столбца, но физически, где-то там у себя, FoxPro все равно хранит
любой массив как
одномерный . Вот этот самый "внутренний" номер элемента массива и вернет функция ASCAN().
Кстати, к элементам двумерного массива можно обращаться как к элементам одномерного массива по их внутренним номерам.
В твоем случае все осложняется тем, что искать надо не по значению одного элемента, а по значению двух элементов:
Per=88 AND Nai=...
Функции по работе с массивами в FoxPro этого делать не умеют. Надо будет либо последовательно использовать ASCAN() - там можно задать номер элемента с которого надо начинать поиск - либо создать отдельные массивы, каждый для своего значения Per, что тоже не есть хорошо
Для примера
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
publ array norma_arr( 1 )
publ norma_len
sele per, nai, norm from s_norma where type= 1 order by per into array norma_arr
norma_len=_TALLY && Системная переменная _TALLY - количество строк, обработанных Select-SQL
*norma_len=alen(norma_arr, 1 ) && количество строк в массиве
*norma_len=alen(norma_arr)/ 3
* Ищем в массиве значение
* Per= 88 AND Nai="brl"
* Первый поиск с самого начала массива
pos = ASCAN(norma_arr,"brl")
DO WHILE pos > 0
aRow = ASUBSCRIPT(norma_arr,pos, 1 ) && номер строки массива
IF norma_arr(aRow, 1 )<> 88
* если в найденной строке первый элемент отличен от 88 повторяем поиск
* но начиная со следующего элемента
pos = ASCAN(norma_arr,"brl",pos+ 1 )
ENDIF
ENDDO
* Если в результате pos> 0 , значит нашли нужный элемент
IF pos> 0
aRow = ASUBSCRIPT(norma_arr,pos, 1 ) && номер строки массива
?norma_arr(aRow, 3 ) && смотрим значение из 3 столбца найденной строки
ENDIF
Разумеется, можно решит задачу поиска "в лоб", просто перебирая в цикле все элементы массива
1.
2.
3.
4.
5.
6.
7.
8.
9.
FOR aRow= 1 TO norma_len
IF norma_arr(aRow, 1 )= 88 AND norma_arr(aRow, 2 ) = "brl"
EXIT
ENDIF
ENDFOR
IF aRow<=norma_len
?norma_arr(aRow, 3 ) && смотрим значение из 3 столбца найденной строки
ENDIF
