>
>maybe less duplicated code and easier to maintain:
>
>
>local cSQL, cField, aa, iField
>
>text to cField noshow flags 1
>emp_middlename
>emp_lastname
>emp_dob
>emp_clifk
>emp_number
>emp_relfk
>emp_empfk
>emp_sexfk
>emp_transfer
>emp_email
>emp_title
>emp_pensionpolicy
>emp_BIR
>emp_NIS
>emp_height
>emp_weight
>emp_phone
>emp_employdate
>emp_occupation
>emp_maritalstatus
>emp_address1
>emp_address2
>emp_address3
>endtext
>
>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!
----------------------------------
António Tavares Lopes