FoxPro Опции

[NTL]

Имеется таблица SVED, содержащая инф-ю о сотрудниках:имя, фам, дата рождения, табельный номер, оклад и т.д.

Помогите составить программу для вывода фамилий, имен, должности сотрудников с указанным годом рождения.Исполользовть быстрей поиск.

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