>>
>>cSQL = ''
>>for iField = 1 to ALines(aa, m.cField, 5)
>> cField = m.aa[m.iField]
>> cSQL = m.cSQL + Iif(IsNull(Evaluate('m.' + m.cField)), '', ',' + m.cField + '=?m.' + m.cField)
>>endfor
>>
>>result = Iif(empty(m.cSQL);
>> , .null.;
>> , executeQuery('UPDATE Employees SET ' + Ltrim(m.cSQL, ',') + ' WHERE emp_pk = ?m.emp_pk');
>> )
>
> Nicely done!

That's what I had in mind!