маленьких нет и не будет.
порядок примерно такой
в include файле ( пусть v.inc)
объявляешь следующую структуру
table struct tmp_db
( sort : string[100],
field1 :string ,
....
)
with index
( tmp_db01 = sort ,
tmp_db02 = field1
) ;
сей файл обязательно добавляешь в проект
#include v.inc
#make "*.frm"
в форме объявляешь ( возможны вариации)
.create view vvv
var wsu:double ;
as select tmp_db.* from tmp_db(tmp_db01) ;
перед циклом
.begin
wsu:=0 ;
vvv.delete all tmp_db ;
end.
в цикле делаешь програмный блок
.begin
wsu :=wsu+summa ;
vvv.tmp_db.sort := filedsort ;
vvv.tmp_db.field1 := .... ;
vvv.insert current tmp_db ;
end.
после цикла выводишь шапку до цикла + wsu
далее поля из tmp_db
.fields
vvv.tmp_db.field1
...
.endfields
.{ table 'vvv.tmp_db'
@@@@ @@@@@@@@@
.}
все в принципе просто если понимать чего ты хочешь и здесь на этом форуме уже вроде обсуждалось.
