Consulta
Apelo a su basta experiencia en visualfoxpro deseo que me ayude en algo
tengo en el formulario un combo y una grid
definí en la grid las propiedades recordsource con una sentencia sql y recordsourcetype con valor 4 luego el combo en el evento click con la siguiente instrucción thisform.grid.recordsource="select * factura where cmonth(fecha)=this.value into cursor cur1"
El combo ya lo tengo lleno de los meses del año, pero al seleccionar un mes del combo no me da los resultados esperados
Si hay algún error o algo que me hace falta indíquemelo por favor. O en todo caso si cuenta con un ejemplo práctico me lo podría enviar gracias de nuevo.
tengo en el formulario un combo y una grid
definí en la grid las propiedades recordsource con una sentencia sql y recordsourcetype con valor 4 luego el combo en el evento click con la siguiente instrucción thisform.grid.recordsource="select * factura where cmonth(fecha)=this.value into cursor cur1"
El combo ya lo tengo lleno de los meses del año, pero al seleccionar un mes del combo no me da los resultados esperados
Si hay algún error o algo que me hace falta indíquemelo por favor. O en todo caso si cuenta con un ejemplo práctico me lo podría enviar gracias de nuevo.
1 respuesta
Respuesta de Víctor Arturo Mercado Fernández
1
Varias observaciones:
1.- La propiedad RECORDSOURCE pierde el enfoque con esa estructura en la instrucción.
2.- La función CMONTH() devuelve valores en diferentes idiomas.
Una posible solución sería, suponiendo que en el COMBOBOX se encuentren los datos en orden, que la instrucción quedar similar a:
=THISFORM.Grid1.RECORDSOURCE = "SELECT * FROM Factura WHERE MONTH( fecha ) == THISFORM.Combo1.LISTINDEX INTO CURSOR cur1
Los cambios son:
La función "MONTH()" en lugar de la función "CMONTH()"
La sentencia "THIS.VALUE" por "THISFORM.Combo1.LISTINDEX"
Bueno, eso digo yo...
1.- La propiedad RECORDSOURCE pierde el enfoque con esa estructura en la instrucción.
2.- La función CMONTH() devuelve valores en diferentes idiomas.
Una posible solución sería, suponiendo que en el COMBOBOX se encuentren los datos en orden, que la instrucción quedar similar a:
=THISFORM.Grid1.RECORDSOURCE = "SELECT * FROM Factura WHERE MONTH( fecha ) == THISFORM.Combo1.LISTINDEX INTO CURSOR cur1
Los cambios son:
La función "MONTH()" en lugar de la función "CMONTH()"
La sentencia "THIS.VALUE" por "THISFORM.Combo1.LISTINDEX"
Bueno, eso digo yo...
