DBLookUpComboBox mostrar el siguiente KeyValue

[ecfisa]

Hola.

Empezado por Delphi01

...
yo quiero un código para ir o mostrar el siguiente keyValue o el siguiente item de la lista de mi DBLookUpComboBox1.

Tendrías que accionar sobre el dataset asociado.

Código Delphi [-]
// DS: DataSet asociado - DBL: Combo - fldname: Nombre del campo - fldValue: valor buscado v.gr.: 'X'
procedure LookupComboLocateNext(DS: TDataSet; DBL: TDBLookupComboBox; const fldName, fldValue: string);
begin
  if DS.Locate(fldName, fldValue, []) then
  begin
    DS.Next;
    DBL.KeyValue := fldName;
  end;
end;

Ejemplo del uso:

Código Delphi [-]
...
  LookupComboLocateNext(tu_DataSet , tu_DBLookupComboBox, 'tu_FIELD_NAME', 'tu_FIELD_VALUE');

Saludos