Mostra valor en un combobox en visual fox

Tengo el siguiente codigo en el init del formulario y quiero que en un combo me muestre los siguientes valores:
*********************************************************************
Init
SELECT di_folio, di_fechai, di_fechaf, di_linea, di_estilo, di_corrida, di_fecorig, di_feclluv, di_fecpull,;
di_fecvirt, di_fecalta, di_fecprot, di_fecsolm, di_fecesc, di_fecrev, di_fecred, di_fecprci, di_feccorr, di_fecprcf,;
di_fecmold, di_fecsuaj;
FROM proyectos ;
UNION all;
SELECT di_folio, di_fechai, di_fechaf, di_linea, di_estilo, di_corrida, di_fecorig, di_feclluv, di_fecpull,;
di_fecvirt, di_fecalta, di_fecprot, di_fecsolm, di_fecesc, di_fecrev, di_fecred, di_fecprci, di_feccorr, di_fecprcf,;
di_fecmold, di_fecsuaj;
FROM proydet ;
INTO CURSOR csr_union
SELECT pp.*, c.descorrid, c.detcorrida, c.cvecorr, l.ap_deslin, l.ap_linprod, o.di_folio, f.ap_desfam, f.ap_famprod,;
pe.di_folio, temp.di_desctem, temp.di_idcvete;
FROM csr_union as pp;
LEFT JOIN corridas as c ON cvecorr = pp.di_corrida;
LEFT JOIN lineasprod as l ON ap_linprod = pp.di_linea;
LEFT JOIN origprod as o ON o.di_folio = pp.di_folio;
LEFT JOIN familiap as f ON ap_famprod = o.di_catego;
LEFT JOIN pulloverenc as pe ON pe.di_folio = pp.di_folio;
LEFT JOIN temporadas as temp ON di_idcvete = pe.di_temp;
GROUP BY pp.di_folio, pp.di_estilo;
ORDER BY pp.di_folio, pp.di_estilo;
INTO CURSOR c_p
**********************************************************************
Combo
en el rowsource del combo tengo la siguiente instruccion
select c_p.ap_famprod + " " + c_p.ap_desfam, c_p.ap_famprod  from c_p group by c_p.ap_famprod order by c_p.ap_famprod into cursor c_cat
***********************************************************************
y quiero que me muestre asi en el fomulario, es uno de la primer opcion y uno de la ultima
IF EMPTY(thisform.cboCategoIni.Value) .and. EMPTY(THISFORM.cboCategoFin.Value)
SELECT c_cat
GO top
thisform.cboEstIni.Value = ap_famprod
GO bott
thisform.cboEstFin.Value = ap_famprod
ENDIF
{"Lat":21.0229825464274,"Lng":-101.854248046875}

1 respuesta

Respuesta
1
Deseo ayudarte, pero como es tan grande el codigo me cuesta trabajo crear un demo, de tal forma que enviame las tablas a mi correo y yo creo el formulario, [email protected], y te escribo.
¿Te voy a ayudar pero me tienes que decir de donde eres?, realmente ese nombre siempre me ha encantado.
En lo que me enviaste no ivael archivo TEMPORADAS, de todas formas no fue un obstaculo, al cargar in combo debes agregar esta linea
thisform. CboEstIni.Additem(ap_famprod)
thisform.cboEstIni.Value = ap_famprod
Y sugiero cambiar la propiedad style de los combobox por 1 DropqownList
Adicionalmente deerias cargar todos los datos en un solo combo, pues no veo para que un combo con un solo dato, Explicame
Avisame.
Pienso que debe quedar así:
SELECT c_cat
GO top
do while !eof()
  Thisform. CboEstIni.additem(ap_famprod)
  Thisform. CboEstFin.addItem(ap_famprod)
  Skip
Enddo
GO Top
thisform.cboEstIni.Value = ap_famprod
Go bott
thisform.cboEstFin.Value = ap_famprod
Hay que ponerle validaciones, pero mirala a ver.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas