FoxPro/Visual FoxPro - Problema con combobox style 0

 
Vista:

Problema con combobox style 0

Publicado por Gabriel (427 intervenciones) el 21/05/2014 18:47:49
Que tal amigos del Foro :

Tengo un ComboBox en STYLE = 0 que permite que ingresen las nuevas facturas para su registro, dicho control esta enlazado mediante un cursor al CONTROLSOURCE...
Ahora bien el codigo lo muestro a continuacion y me esta originando 2 problemas por resolver...

1) El control ComboBox se carga mediante un cursor SELECT

Pregunta : Cual es la forma de hacer que al ingresar una nueva factura aparezca dicho numero en el ComboBox.

2) El Combobox que esta enlazado al GRID no muestra la nueva factura y estoy utilizando el pasar el numero de la nueva factura por referencia al CboFacturas y asi aparezca en el GRID...

Pregunta : Que falta al codigo expuesto a continuacion para que funcione correctamente por referencia.

A continuacion el codigo de lo avanzado.

Metodo : Nueva_Factura

LOCAL cDisplayValue, lcDato
m.cDisplayValue = Thisform.CboFacturas.DisplayValue

WITH Thisform.CboFacturas
IF m.i = .ListCount
.AddItem(m.cDisplayValue) && Añadir el nuevo elemento al ComboBox
Thisform.CboFacturas.DisplayValue = m.cDisplayValue
lcDato = m.cDisplayValue
CambiaDato(@lcDato) && Pasar valor por referencia
ENDIF
ENDFOR
ENDWITH

Control : CboFacturas Evento : Lostfocus
WITH Thisform
m.cDisplayValue = Thisform.CboFacturas.DisplayValue
lcDato = m.cDisplayValue
.CboFacturas.controlsource = CambiaDato(@lcDato)
ENDWITH
Thisform.Refresh()

Agradezco sus comentarios y sugerencias....

atte.,

INTEGRAL
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

Problema con combobox style 0

Publicado por Ernesto Hernandez (4623 intervenciones) el 18/07/2014 22:45:54
Refesca el combo no solo la forma


Thisform.CboFacturas.Refresh

y tambien deberias de hacer un REQUERY

CboFacturas.Requery
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar