Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   TcomboBox = tEdit (https://www.clubdelphi.com/foros/showthread.php?t=10623)

maui 24-05-2004 22:18:35

TcomboBox = tEdit
 
hola amigos del foro

tengo la sigte problema: estoy haciendo un mantenedor con dos tcombo box familia y proveedor, los combos me funcionan bien, pero el problema esta cuando quiero mostrar los datos del formulario mediante el boton seleccionar, y me muestra los datos que ingrese por el edit.text y los combos no muestran nada.

¿ que tengo que hacer cuando ingrese un codigo, aprete el boton seleccionar me muestre todos los datos incluyendo los datos que guarde anteriormente en el combo box?.

no se si me explico...

espero sus comentarios....

delphi.com.ar 24-05-2004 22:30:15

Si te explicas pero no se si lo estas haciendo correctamente. Los combos son listas desplegables, que si bien permiten ser editados "a mano" no siempre lo que se ha ingresado pertenece a un item de la lista. Muchos directamente decidimos que los combos no se puedan editar, y ponemos su Style := csDropDownList. Ahora para cargar u obtener el la posición del item seleccionado, normalmente se utiliza la propiedad ItemIndex.

¿Porqué no nos muestras un fragmento del código que estas utilizando?

Saludos!

sanxpue 25-05-2004 02:37:46

si estas..
 
Si en la tabla tienes una relacion maestro dellate supongamos
Tabla detalle
Id, IdFamilia, IdProveedor (ID = integer,IdFamilia = IdInteger, Proveedor = Integer)

Tabla Familia
Id DescripcionFamilia (ID = Integer, DescripcionFamilia = String)

Tabla Proveedor
Id DescripcionProveedor (ID = Integer, DescripcionProveedor = String)

Entonces usemos para ver los datos

Código Delphi [-]
  If tablaFamilia.Locate('Id',TablaDetalleIdFamilia.AsInteger,[]) Then
    ComboFamilia.Text := TablaFamiliaDescripcionFamilia.AsString;
  If tablaProveedor.Locate('Id',TablaDetalleIdProveedor.AsInteger,[]) Then
    ComboProveedor.Text := TablaProveedorDescripcionProveedor.AsString;

Pero si en la tabla detalle no estas usando una relacion maestro detalle entonces :

Tabla detalle
Id, IdFamilia, IdProveedor (ID = integer,IdFamilia = String, Proveedor = String)

Código Delphi [-]
  ComboFamilia.Text := TablaDetalleIdFamilia.AsString;
  ComboProveedor.Text := TablaDetalleIdProveedor.AsString;
:D


La franja horaria es GMT +2. Ahora son las 08:58:30.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi