Цитата
Помогите составить программу для вывода фамилий, имен, должности сотрудников с указанным годом рождения.Исполользовть быстрей поиск.
seek dt - неужели нельзя искать по дате?
Код
set color to w+/n,GR+/b
use sved
if .not. file("sved_i.idx")
index on Date_r to sved_i
endif
set index to sved_i
do while .T.
clear
dt=space(10)
@ 0,0 say "gama noucka = " get dt
read
if dt=space(10)
exit
endif
seek dt
?
do while Date_r=dt
? Fam,im,dolzn
skip
enddo
wait "Search finished..."
enddo
use