Datos especificos en dblookupcombobox

[ecfisa]

Hola jonydread.

Por el tipo de error, proba agregando estas dos líneas:

Código Delphi [-]
procedure TModificarA.FormCreate(Sender: TObject);
begin
  
  if not Assigned(Mainform.ListView2.Selected) then
      raise Exception.Create('Algo no anda bién con ListView2...');
  
  Mainform.ZQuery4.close; 
  Mainform.ZQuery4.SQL.Text := 'SELECT * FROM Sierras where numero not in(SELECT Sierras FROM Sierras join Asignados on sierras=numero)';
  Mainform.ZQuery4.SQL.Text := 'union all';
  Mainform.ZQuery4.SQL.Text := '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;

Saludos.