CREATE CURSOR NewTest (C i, A i, B V( 20 ))

SELECT Day.dayid, Day.day;
 FROM data!Day INTO CURSOR test && выборка из БД
&&заполняю курсор данными, которые потом лягут как ресурс для грида
FOR i= 1  TO RECCOUNT("test")
	SELECT test
	SCAN RECORD i
		INSERT INTO NewTest (C, A, B) VALUES ( 0 , test.dayid, test.day)
	ENDSCAN
ENDFOR

THISFORM.Grid1.RecordSource = "NewTest"
THISFORM.Grid1.Column1.Header1.Caption ="выберите"
THISFORM.Grid1.Column2.Header1.Caption ="№"
THISFORM.Grid1.Column3.Header1.Caption ="Вариант ответа"