Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » FoxPro/Visual FoxPro » porblemas combo box

FoxPro/Visual FoxPro - porblemas combo box

Volver
Nuevo Tema
<<>>
 
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
sin imagen de perfil
Val: 1.011
Oro
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

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