Hello Tim

I try to isolate only the parts that demonstrate the problem.

The problem is that on the dbgrid the lookupField "LkpRepairDtl"  is blank
in spite of
the fact that the field "RepairDtlId" have values.

Thanks for the support
Sorin

Sorin


That will never work. I can see   tbCarRepair.Open; but there's no open statement for the other table.

Roy Lambert [Team Elevate]

"Roy Lambert" <roy.lambert@skynet.co.uk> wrote in message
>
> That will never work. I can see tbCarRepair.Open; but there's no open
> statement for the other table.

Thanks

1 I thought that tables that are used only for lookup fields are open auto.
and
  the values from tbTblRepair table indeed appear on the dbgrid.
2 For safety I open all the tables but the same problem remain.

Sorin

Sorin


Can you post the catlog and tables you're using as well please.

Roy Lambert [Team Elevate]

> Can you post the catlog and tables you're using as well please.

I post only the relevant one. Hope it's enough.
Sorin

The app have a company table with company name, city and street.
The cities and street come from 2 tables that have m/d relation.

I want to insert a record write the company name, select the city and select
the street that belong to the selected city.

Thanks for the support
Sorin

Sorin,

<< The app have a company table with company name, city and street. The
cities and street come from 2 tables that have m/d relation.

I want to insert a record write the company name, select the city and
select the street that belong to the selected city. >>

The problem is that you are expecting a lookup field to move the record
pointer in the target lookup table, which is not the case.  A lookup simply
does the lookup and leaves the current record pointer intact.  What you want
to do instead is make the fields calculated fields, and perform the lookup
by using FindKey/Locate in an OnCalcFields event handler.

procedure TForm2.tbCompanyCalcFields(DataSet: TDataSet);
begin
  if tbCity.Locate('ID',tbCompanyCityID.AsString,[]) then
     tbCompanyLkpCity.AsString:=tbCityCity.AsString
  else
     tbCompanyLkpCity.AsString:='Not found';
  if tbStreet.Locate('ID',tbCompanyStreetID.AsString,[]) then
     tbCompanyLkpStreet.AsString:=tbStreetStreet.AsString
  else
     tbCompanyLkpStreet.AsString:='Not found';
end;

--
Tim Young
Elevate Software
www.elevatesoft.com

"Tim Young [Elevate Software]" <timyoung@elevatesoft.com> wrote in message
> procedure TForm2.tbCompanyCalcFields(DataSet: TDataSet);
> begin
>   if tbCity.Locate('ID',tbCompanyCityID.AsString,[]) then
>      tbCompanyLkpCity.AsString:=tbCityCity.AsString
>   else
>      tbCompanyLkpCity.AsString:='Not found';
>   if tbStreet.Locate('ID',tbCompanyStreetID.AsString,[]) then
>      tbCompanyLkpStreet.AsString:=tbStreetStreet.AsString
>   else
>      tbCompanyLkpStreet.AsString:='Not found';
> end;

Wow,  why I didn't think about it?

Thanks Tim