Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   DBLookupComboBox1 que me muestre la lista completa (https://www.clubdelphi.com/foros/showthread.php?t=88257)

darkbits 09-05-2015 01:30:04

DBLookupComboBox1 que me muestre la lista completa
 
un saludo al club

tengo un DBLookupComboBox1 que recupera mas de 5 items
pero cuando lo hago click al DBLookupComboBox1 solo me muestra1 como adjunto la imagen:
http://www.subirimagenes.net/i/150509012426339954.jpg

y con el cursos tengo que moverme hasta el fina para que me muestre todo. como una lista de combobox

mi consulta es como puede mostrarme DBLookupComboBox1 la lista completa como un combobox?? sin estar yendo con el cursor hasta abajo

ecfisa 09-05-2015 06:42:06

Hola darkbits.

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  with DataSet_Asociado_al_Combo do
  begin
    Open;  // (si estuviera cerrado) 
    Last;
    First;   
  end;
end;

Saludos :)

darkbits 09-05-2015 21:42:42

hola ecfisa

no compila me da error no funciono el ejemplo que me enviaste :(

ecfisa 09-05-2015 22:02:19

Hola darkbits.

Pero... ¿ No habrás puesto el código textualmente no ? el nombre del dataset era sólo como ejemplo.

Se trata de que al iniciar el formulario, luego de abierto el archivo que está asociado al combo te desplaces hasta el final y luego retornes.

Veamos, ¿ Que valor tiene exáctamente la propiedad ListSource del DBLookupComboBox ?

Te faltó algo de código y aclarar que error te dió, "no compila me da error" no ayuda mucho ;)


Saludos :)

darkbits 09-05-2015 22:20:38

ahora si funciono!
hice last y first a la tabla y se soluciono mil gracias

ecfisa 09-05-2015 23:03:25

Cita:

Empezado por darkbits (Mensaje 492006)
ahora si funciono!
hice last y first a la tabla y se soluciono mil gracias

^\||/

Saludos :)

kapcomx 11-05-2015 22:03:39

fetch all
 
Que tal amigos, lo que yo hago es usar la propiedad fetchall

Código Delphi [-]
midataset.fetchall;

y listo

Saludos...:cool:

Casimiro Noteví 11-05-2015 23:58:30

Cita:

Empezado por kapcomx (Mensaje 492047)
Que tal amigos, lo que yo hago es usar la propiedad fetchall
Código Delphi [-]midataset.fetchall;


y listo
Saludos...:cool:

fetchall hace exactamente lo mismo que ha comentado ecfisa, va al final y vuelve al registro donde estaba:

Código Delphi [-]
    if FQSelect.EOF or not FQSelect.Open then
      exit;
    DisableControls;
    try
      CurBookmark := Bookmark;
      Last;
      Bookmark := CurBookmark;
    finally
      EnableControls;
    end;
  finally


La franja horaria es GMT +2. Ahora son las 12:50:09.

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