По 2 вопросу тоже можно изловчиться :)
(работающего примера нет но когда - то так делал)
Пускай у тебя есть класс ProgressBar, у которого имеется метод Update (piRecno as Integer) , который и выполняет всю работу по визуальному представлению прогресса операции.
Пишеш пользовательскую функцию,
1.
2.
3.
4.
5.
6.
Function UpdateProgress
lparam pcAlias, poProgressBar
if vartype(poProgressBar) = "O" and ! IsNull (poProgressBar)
poProgressBar.Update (Recno (pcAlias))
endif
return True
endfunc
И добавляеш ее в Select :
1.
2.
Select Field1, Field2 from table1 ;
where SomeCondition AND UpdateProgress ("table1", goProgressBar)
здесь goProgressBar - ссылка на объект
Суть в том, что выполняя Select, Fox делает проход по записям таблицы проверяя соответствие условию WHERE.
