FoxPro/Visual FoxPro - Grid interactiva

Estoy utilizando una grid cuando realizo el paso a paso me funciona utilizando el evento interactiveChage me funciona pero cuando le quito el paso ha paso la grid no se activa.

Envio como realice el procedimiento para que por favor alguien me pueda ayudar en que estoy fallando

IF LEN(ALLTRIM(THIS.VALUE)) > 1
SELECT * ;
FROM prdref ;
WHERE refmina = THISFORM.txtarti.VALUE ;
INTO CURSOR prdref READWRITE

codigo11 = LEFT(codi_arti,12)
SELECT prdref.refmina AS codigo, prdref.existencia AS cantidad, prdref.codi_arti ;
FROM prdref ;
WHERE prdref.refmina = THISFORM.txtarti.VALUE ;
INTO CURSOR tmprd READWRITE
IF _TALLY >0

THISFORM.grid1.RECORDSOURCE = "tmprd"
THISFORM.img1.VISIBLE = .T.
THISFORM.grid1.VISIBLE = .T.
THISFORM.grdrollos.RECORDSOURCE = ""

SELECT rolm.arti, rolm.rollo, rolm.tramo, ROUND(rolm.exisr,2) AS Mts, ;
rolm.bod_rol, rolm.stn_rol, rolm.niv_rol, rolm.sniv_rol, rolm.ubi_rol, tmprd.codi_arti ;
FROM rolm, tmprd ;
WHERE rolm.arti = tmprd.codi_arti AND rolm.exisr > 0 AND rolm.niv_rol <> "*" ;
ORDER BY rolm.arti, rolm.rollo, rolm.tramo ;
INTO CURSOR xrollo
LEFT(prodm.codi_arti,1) = THISFORM.cmbbodega.VALUE
THISFORM.grdrollos.RECORDSOURCE = "xrollo"
GO TOP

ELSE

THISFORM.grid1.RECORDSOURCE = ""
THISFORM.img1.VISIBLE = .F.
THISFORM.grid1.VISIBLE = .F.
codigo11 = ""

ENDIF
ENDIF