PDA

Ver la Versión Completa : DBLookupComboBox1 que me muestre la lista completa


darkbits
09-05-2015, 01:30:04
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.


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
ahora si funciono!
hice last y first a la tabla y se soluciono mil gracias
^\||/

Saludos :)

kapcomx
11-05-2015, 22:03:39
Que tal amigos, lo que yo hago es usar la propiedad fetchall

midataset.fetchall;

y listo

Saludos...:cool:

Casimiro Notevi
11-05-2015, 23:58:30
Que tal amigos, lo que yo hago es usar la propiedad fetchall
Código Delphi [-] (http://www.clubdelphi.com/foros/#)midataset.fetchall;


y listo
Saludos...:cool:

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

if FQSelect.EOF or not FQSelect.Open then
exit;
DisableControls;
try
CurBookmark := Bookmark;
Last;
Bookmark := CurBookmark;
finally
EnableControls;
end;
finally