Take a look at this function :-
Code: Select all
function EditXARDATA
LOCAL aFldNames:={}
if open_ar()
/* this also cannot compile "unbalanced delimiters" ??
aFldnames[fcount()]
AFIELDS(afldnames)
*/
aFldNames:=('SHORT_NAME','CUSTOMER','CONTACT')
EDIT EXTENDED ;
WORKAREA ARDATA ;
FIELDNAMES afldnames ;
TITLE 'Maintain Customer Profile' ;
TABLEVIEW {.T.,.T.,.F.}
endif
return
Q. In the aFldnNames array, I have specified only 3 fields (there are 20 fields).
However, the result is that all 20 fields are displayed by this powerful command
Am I missing something ?
CCH
http://cch4clipper.blogspot.com