On Wed, February 25, 2009 4:57 pm, Richard Kaye wrote:
> I'd probably use a FOR.. loop. Something like:
>
>
> ****untested code...
> m.MyNewValue=9999 FOR EACH thing IN loRec
> IF VARTYPE(thing)=[N]
> loRec.thing=m.MyNewValue ENDIF
> NEXT
Yeah, this is what I ended up doing (quick and dirty):
LOCAL laFields(1), liCnt as Integer, liLoop as Integer, lcCmd as String
CLOSE DATABASES ALL
USE los
liCnt = AFIELDS(laFields,"los")
FOR liLoop = 1 TO liCnt
IF NOT INLIST(LOWER(laFields(liLoop,1)),"groupid", "stuname", "stunum",
"inadate", "rta", "los_pk", "rowguid", "importdate", "location",
"createdate", "createtime", "modidate", "moditime") AND
INLIST(laFields(liLoop,2),"N","I") THEN
lcCmd = [REPLACE ] + laFields(liLoop,1) + " WITH 9999 ALL IN
LOS"
&lcCmd
ENDIF
ENDFOR
Worked perfectly. Thanks to everyone for chiming in.
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message:
http://leafe.com/archives/byMID/profox/[email protected]
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
