ПОМОГИТЕЕЕ
В меню программы пользователи должны выбрать, с какой базой будут работать(dbf-файл).

У меня сделано так:
For i=1 To Alen(pmData,1)
Define Bar i Of BaseWork Prompt pmData(i,1)
Endfor
...
For i=1 To Alen(pmData,1)
On Selection Bar i Of BaseWork Do Form fGrid With pmData(i,2)
Endfor
но не работает, т.к. i всегда выходит за пределы массива

Как в параметре передать какую БД выбрал пользователь или номер строки?

Ура!!!!!!
Заработала и со скобками, и без.
С П А С И Б О

igorbik - твой вариант не рабочий

Ещё уточняющий вопрос, что бы обновить меню в главном окне _Screen
достаточно _Screen.refresh
или заново запустить гл.процедуру - Do main (в ней описывается меню)?

GermanGM- последний вариант

т.е. в любой момент можно вызвать процедуру примерно такого содержания:

Define Popup Base Margin Font [Arial Cyr],11
Define Bar 1 Of Base Prompt "\<1. Рабочие"
Define Bar 2 Of Base Prompt "\<2. Архив"


On Bar 1 Of Base Activate Popup BaseWork
On Bar 2 Of Base Activate Popup BaseArh

For i=1 To Alen(pmData,1)
Define Bar i Of BaseWork Prompt pmData(i,1)
Endfor
...
For i=1 To Alen(pmData,1)
On Selection Bar i Of BaseWork Do Form fGrid With pmData(i,2)
Endfor

после чего меню переопределится?

сейчас попробую.

извинтиляюсь предпоследняя строска д.б.

On Selection popup BaseWork Do form fGrid With (pmData( bar() ,2))