Fabio,

>Sin, for one simple what therefore, I must write code.

It's a real shame to have to write 6 lines of code that could be stored in a builder for easy reuse...

* AddTableProperties.prg
local laForm[1], laFields[1], i, n
aselobj( laForm, 1 )
n = afields( laFields )
for i = 1 to n
   laForm[1].AddProperty( laFields[i,1] )
endfor