ник: kot_k_k
временная табла - tabla с полями
ID
FIO
set dbs=currentdb
dbs.execute ("delete * from tabla")
set rs=dbs.Openrecordset("FIO")
set rs_1=dbs.Openrecordset("tabla")
do while rs.EOF=False
For j=1 to 2
For i=1 to 3
rs_1.AddNew
select case j
case 1
rs_1!FIO=rs!FIO_Russa
case 2
rs_1!FIO=rs!FIO_Latinica
end select
rs_1.Update
rs.MoveNext
next
rs.Move -4
next
rs.MoveNext
loop
|
где-то так и выводим на печать сортируя по ID