Hola Grupo:
Tengo un combo que tiene escrito los 12 mese de año, la
idea es que cuando se seleccione un mes se llene con el InteractiveChange los
textos del formulario.
El problema se complica por que cada mes es una tabla, pero
lo bueno que con los mismos campos. ¿Como puedo hacer para pasar a una
variable la tabla, si las tablas tienen distintos nombre(enero, febrero,
marzo, etc.).? la idea es que quede activa la tabla seleccionada en el combo
y despues pueda ser ocupada en otros formularios y grillas...Ej.
Combo= mMes
CLOSE tables
DO CASE
CASE THIS.LISTINDEX = 1
THISFORM.mMes.Value="Enero"
THISFORM.mMes1.Value="Enero"
STORE 'enero' TO tabla
tabla="tabla"+".dbf"
USE &tabla shared
CASE THIS.LISTINDEX = 2
THISFORM.mMes.Value="Febrero"
THISFORM.mMes1.Value="Febrero"
STORE 'febrero' TO tabla
USE &tabla shared
etc..
ENDCASE
En ese te mismo tema, tengo un botón comandos en el evento click que hace lo
siguiente. ¿El problema nuevamente lo tengo en la tabla (enero) a
seleccionar, tiene que ser la tabla seleccionada en el combo de la primera
pregunta?.
set century on
mMes=THISFORM.mMes.Value
mrut_inf=THISFORM.mrut_inf.Value
select enero.nombre_inf,Apaterno_i,Amaterno_i,mrut_inf from enero;
where rut_inf = mrut_inf ;
into cursor micursor
thisform.RemoveObject('grid1')
thisform.addObject('grid1','grid')
thisform.grid1.visible=.t.
thisform.grid1.top0
thisform.grid1.leftB0
thisform.grid1.Height9
thisform.grid1.width%2
if _tally>0
messagebox("Hay " + transform(_tally) + " Nombres Duplicados")
thisform.num.value=transform(_tally)
THISFORM.Refresh
ELSE
messagebox("No Tiene Duplicidad.." )
THISFORM.Refresh
endif
THISFORM.Refresh
Muchas Gracias
Santiago de Chile
Leer las respuestas