авторБлаговолите, пожалуйста, примерчик!
Хорошо, давайте разберемся.
Мы не можем в качестве параметра в окно передать массив. Что бы это обойти необходимо определить структуру в качестве элемента которой может быть массив.
Допустим такую
1.
2.
3.
4.
5.
$PBExportHeader$str_arg.srs
$PBExportComments$ Массив аргументов
global type str_arg from structure
any arg[]
end type
Предположим нам необходимо передать в окно массив таких структур.
Тогда нам необходимо определить стркуктуру элементом которой будт
какая-нибудь структура.
Допустим это будет выше приведенная структура
str_arg
1.
2.
3.
4.
5.
$PBExportHeader$str_array_of_arg.srs
$PBExportComments$Собственно массив структур str_arg суть многомерный массив
global type str_array_of_arg from structure
str_arg item[]
end type
Когда Вы определяете структуру, то Вы видите DW с двумя полями:
- Type
- Variable Name
Поле Type - это выподающий список. Но это поле
редактируемое . Если в нём отсутствует Необходимый тип переменной, то Вы можите ввести свой - пользовательский тип вручную.
После этого осталость заполнить все наши структуры данными
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
//Var
str_arg lstr_arg //Структура, которая является эл. массива
str_array_of_arg lstr_array //Структура содержащая в себе массив структур
//endVar
//Заполинть lstr_arg
lstr_arg.arg[ 1 ] = "1 "
lstr_arg.arg[ 2 ] = "2 "
lstr_array.item[ 1 ] = lstr_arg
//Заполинть lstr_arg
lstr_arg.arg[ 1 ] = "3 "
lstr_arg.arg[ 2 ] = "4 "
lstr_array.item[ 2 ] = lstr_arg
//Открыть окно и передать в него массив структур
openWithParm(w_test2, lstr_array)
В вызываемом окне в событии open() принимаем переданный массив структур
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.
28.
29.
30.
31.
//Var
str_arg lstr_arg //Структура, которая является эл. массива
str_array_of_arg lstr_array //Структура содержащая в себе массив структур
Integer li_arrCount //Количество структур
Integer li_argCount //Количество аргументов в текущей структуре
Integer i, j //Переменные цикла
String ls_retVal //Переменная результата
//endVar
TRY
if not isValid(message.PowerObjectParm) then
messageBox( "Ошибка параметра" , "параметр не был передан в окно" )
Return
end if
//Получить переданный параметр
lstr_array = message.PowerObjectParm
//Получить размерность массива структур
li_ArrCount = UpperBound(lstr_array.Item)
//Поочередно выбираем структуру из массива
for i = 1 to li_ArrCount
//Выбрать очередную структуру
lstr_arg = lstr_array.Item[i]
//Получить размерность массива аргументов в структуре
li_argCount = upperBound(lstr_arg.arg)
//поочередно выбираем аргументы из структуры
for j = 1 to li_argCount
ls_retVal = String(lstr_arg.arg[j])
messageBox( "Результат" , ls_retVal)
next
next
CATCH (Throwable t)
messageBox( "Ошибка выборки параметров" , t.text)
END TRY
Вот, я проверил, у меня работает PB 9.0.1 Build 7066
Удачи!
