Datos especificos en dblookupcombobox

[ecfisa]

Hola jonydread.

En realidad las líneas eran para marcar la posible procedencia del error, mejor quedaría:

Código Delphi [-]
procedure TModificarA.FormCreate(Sender: TObject);
begin
  if Assigned(Mainform.ListView2.Selected) then
  begin
    Mainform.ZQuery4.close;
    Mainform.ZQuery4.SQL.Text := 'SELECT * FROM Sierras where numero not in(SELECT Sierras FROM Sierras join Asignados on sierras=numero) union all SELECT * FROM Sierras where numero = :numero ';
    Mainform.zQuery4.parambyname('numero').AsString := Mainform.ListView2.Selected.SubItems[0];
    Mainform.ZQuery4.Open;
    DatetimePicker1.DateTime := StrToDate(Mainform.ListView2.Selected.Caption);
    dblookupcombobox1.Keyvalue := Mainform.ListView2.Selected.SubItems[0];
    dblookupcombobox2.keyvalue:= Mainform.ListView2.Selected.SubItems[1];
  end;
end;

Saludos.