FoxPro/Visual FoxPro - porblemas combo box

   
Vista:

porblemas combo box

Publicado por aracely (5 intervenciones) el 21/03/2014 15:29:48
Tengo problemas con un combo box, a veces el combo box debe tener toda la información de un tabla sin embargo a veces de acuerdo a otro campo necesito que el combo box se redefina de acuerdo al otro campo, sin embargo, en la misma pantalla puedo crear nuevos items que se agregarian al combo, antes realizarlo desabilito el combo box y creo el item pero al volver a habilitar el combo box y hacer un refresh, a veces se me presenta un error que no puede encontrar los campos del combo box.

Por favor si akguien tiene idea como solucionarlo mil gracias
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

porblemas combo box

Publicado por Fidel José (558 intervenciones) el 21/03/2014 17:03:35
Lo más conveniente para tu caso es crear un método de usuario en el formulario y a través de parámetros determinar el contenido del combo. Las tablas o cursores deben quedar abiertos hasta que se cierra el form (destroy).
Ejemplo:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
*Llamada desde un lugar del form
Thisform.GetCombo2("PRODUC")
 
* Metodo GetCombo2
LPARAMETERS xcTabla
xcTabla=EVL(xcTAbla,"CLIENTES")
XCTABLA=UPPER(ALLTRIM(XCTABLA))
WITH thisform.combo2
	.Clear
	.BoundColumn=2
	.FontSize=8
	.Style=2
	.Rowsourcetype=2
	.ColumnCount=2
	.Columnwidths="180,90"
	DO case
		CASE xcTabla=="PROVEDOR"
			.ControlSource='clientes.cuit'
			.RowSource='Clientes.nombre,cuit'		
 
		CASE xcTabla=="CLIENTES"
			.ControlSource='provedor.cuit'
			.RowSource='provedor.nombre,cuit'		
 
		CASE xcTabla=="PRODUC"
			.ControlSource='Produc.codprod'
			.RowSource='produc.descrip,codprod'
	ENDCASE
	.requery
	.refresh
 
ENDWITH
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