At 06:47 PM 9/02/2007, you wrote:

>with qryLagerBew do
>begin
> FieldsReadOnly.Clear;
> for i := 0 to qryLagerBew.FieldCount - 1 do
> begin
> if ( ( qryLagerBew.Fields[i].FieldName <> 'LB_BUCHUNGSTEXT' )AND
> ( qryLagerBew.Fields[i].FieldName <> 'LB_VERP_MENGE' )AND
> ( qryLagerBew.Fields[i].FieldName <> 'LB_TEXT_INTERN' ) )
> then FieldsReadOnly.Add(Fields[i].FieldName + '=T');
> end; // for i
>
>Hi Helen,
>thanks, works fine.

Yes, only I hope you corrected my sample! I pasted your original and
forgot to delete the qryLagerBew qualifier from my code. :(

Helen