>local cSQL, cField, aa, iField
>
>text to cField noshow flags 1 && additional fields go into this list
>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');
>	)
>