Susy
10 de Marzo del 2006

Tengo un Combobox que lo lleno con valores y defino las siguientes propiedades:
BoundColumn=2
ColumnCount=2
ControlSource=datos.estcivil
Rowsource=Soltero,S,Casado,C,Viudo;V,Union Libre,U
SourceType=1
Necesito que en el momento de hacer click en el Combo únicamente me aparezca la primera columna y no se visualice la segunda y los campos de la tabla se reemplacen con los valores de la segunda columna.

Gracias por su ayuda.

Sagitario
10 de Marzo del 2006

Hola, te recomiendo que hagas lo siguiente:

Crear un cursor de la siguiente manera:

CREATE CURSOR tmpdata(codigo CHAR(1),nombre char(15))
** ingresando datos

INSERT INTO tmpdata(codigo,nombre)values("C","Casado")
INSERT INTO tmpdata(codigo,nombre)values("S","Soltero")
INSERT INTO tmpdata(codigo,nombre)values("V","Viudo")

** conectando al combo
thisform.combo1.ControlSource="tmpdata"
thisform.combo1.RowSource="tmpdata.nombre"
thisform.combo1.RowSourceType= 6
thisform.Refresh

en el evento CLICK del COMBO y teniendo el TEXT1

SELECT tmpdata
thisform.text1.Value=tmpdata.codigo
thisform.Refresh


espero que te ayude en algo.

Si deseas te envio el Archivo


Saludos

Atak
10 de Marzo del 2006

podrias poner esto en el init de tu frm

************

** en el frm tienes
combo1
text1

CREATE CURSOR tmpdata(codigo CHAR(1),nombre char(15))
** ingresando datos

INSERT INTO tmpdata(codigo,nombre)values("C","Casado")
INSERT INTO tmpdata(codigo,nombre)values("S","Soltero")
INSERT INTO tmpdata(codigo,nombre)values("V","Viudo")

** conectando al combo
thisform.combo1.ControlSource="tmpdata"
thisform.combo1.RowSource="tmpdata.nombre"
thisform.combo1.RowSourceType= 6
thisform.Refresh

evento click del combo
select tmpdata
thisform.text1.value=tmpdata.codigo
thisform.refresh