Agregar múltiples Campo de una tabla a múltiples TEdit y TdbEdit

[ecfisa]

sucede que esa opción la ya he implementado lo extraño es que si llamo al formulario de articulo en modo de edición me aparece en blanco los TDBlookupComboBox y no puedo apreciar que proveedores que tenia.

Hola.

Eso no ocurre si previamente haces algo como:

Código Delphi [-]
  DBLookupComboBox1.KeyValue:= tbArticulosProv1.AsInteger;
  DBLookupComboBox2.KeyValue:= tbArticulosProv2.AsInteger;
  DBLookupComboBox3.KeyValue:= tbArticulosProv3.AsInteger;

Saludos.

[novato_erick]

ecfisa

Hola.

Eso no ocurre si previamente haces algo como:

Código Delphi [-]
Código Delphi [-]
  DBLookupComboBox1.KeyValue:= tbArticulosProv1.AsInteger;
  DBLookupComboBox2.KeyValue:= tbArticulosProv2.AsInteger;
  DBLookupComboBox3.KeyValue:= tbArticulosProv3.AsInteger;

Disculpa mi ignorancia pero donde hago eso? en el evento OnShow de mi frmArticulo, en el el evento OnCreate del frmArticulo?

Saludos

[ecfisa]

Hola.

Puede ser, si mostrás un solo artículo en cada ingreso al form. No sé como lo tenés implementado.
Pero si queres que al ir desplazándote por los artículos, los DBLookupComboBox se vayan actualizando quizá debas ponerlo en el evento AfterScroll de la tabla artículos.

Saludos.

[[Caral]]

Hola
Sigo pensado igual, no se recorre la tabla.
El codigo que muestras nunca mostrara mas que un dato.
Asi lo veo yo.
Hay que recorrer la tabla.
Me gustaria ver el programa, pero lastima que no pueda ver la BD.
Saludos

[novato_erick]

ecfisa

yo utilizo TSQLQuery, no tablas;

nunca he tenido la oportunidad de usar tablas...

Caral

Por mi no hay ningún problema que veas mi base de datos, mucho menos que veas mi programa pero la pregunta es como?

Saludos

[[Caral]]

Hola
Creo que puedes colocar todo en un zip.
Quitale el exe para que no pese y lo subes aqui mismo.
Si no, enviame un mensaje privado y te doy mi correo.
Saludos

[ecfisa]

yo utilizo TSQLQuery, no tablas;
nunca he tenido la oportunidad de usar tablas...

Pues te tengo una sorpresa... estas usando tablas!!! , mediante el TSQLQuery te conectas con ellas.

No conozco el componente TSQLQuery, pero seguro que tiene el evento AfterScroll. Por lo tanto sería allí donde deberías ubicar la actualización de los TDBLookupComboBox.
Excepto que sólo muestres un artículo por pantalla y salgas. En este último caso el evento OnShow del form sería un lugar adecuado para la actualización.

Un saludo.

[novato_erick]

Estoy Choleando jajajajaja...

Si se que estoy usando tablas sin embargo no he usado el Componente TTAble jajaja a eso me referia... y si solo muestro un proveedor por pantalla y salgo... lo intente haciendo esto pero mi formulario se comporta extraño porque aun así no los muestra...

Código Delphi [-]
 procedure TFrmArticulos.FormShow(Sender: TObject);
  begin
     lblPrecioFijo.Visible:= False;
     dbePfijos.Visible:= false;
     dbePfijos2.Visible:= false;
     dbePfijos3.Visible:= false;
     DBLookupComboBox6.KeyValue:= dataArticulos.cdsArticulosID_PROVEEDORES.AsInteger;
     DBLookupComboBox7.KeyValue:= dataArticulos.cdsArticulosID_PROVEEDORES2.AsInteger;
     DBLookupComboBox8.KeyValue:= dataArticulos.cdsArticulosID_PROVEEDORES3.AsInteger;
  end;

Saludos