FoxPro/Visual FoxPro - ***PARA MITCHELL*** PONER AÑO DE CAMPO FECHA

YO EXTRAIGO EL AÑO DE UN CAMPO FECHA Y PONGO EL AÑO EN UN COMBO ASI;

AMIGO;
PON ESTE CODIGO EN EL EVENTO INIT DEL COMBO1

****
PUBLIC dFecha

SELECT tuTabla
GO BOTTOM
dFecha= STR(YEAR(campoFecha))

CREATE CURSOR _tempFecha;
(fecha c(20))
SELECT _tempFecha
APPEND BLANK
REPLACE fecha WITH dFecha

thisform.COmbo1.RowSource = "_tempFecha.fecha"
thisform.combo1.RowSourceType= 6
thisform.combo1.Style = 2


****************

SALUDES
ESPERO HABERTE AYUDADO
HELDER MARTINEZ
DESDE HONDURAS. C.A

Amigo Helder mil gracias