BROWSE with FREEZE field, field ?

[diarmaid]

Here is a routine I have to attempt to "FREEZE" (only allow editing) in fields numbered 3 to highest field number in a table I want to BROWSE. As the number of fields is changeable I tried substuting as below for the "FREEZE" statement, but it doesn't work ? Is there a way around this that anyone used? (VFP8)

*-------------
LOCAL lcFreezeString
lcFreezeString = ""

SELECT prices
FOR i = 3 to FCOUNT()
lcFreezeString = lcFreezeString +(field(i))+", "
ENDFOR

lcFreezeString = LEFT(lcFreezeString,LEN(ALLTRIM(lcFreezeString))-1) && to remove trailing comma

BROWSE NODELETE NOAPPEND FREEZE (lcFreezeString)
*-------------

 

[jimstarr]

I think you can freeze 1 and only 1 field at a time.

Jim

 

[ramani]

HI

cField = FIELD(FCOUNT())
BROWSE NODELETE NOAPPEND FREEZE (cField)



____________________________________________
ramani - (Subramanian.G)

http://winnersoft.coolfreepages.com/

 

[ramani]

Hi

Sorry .. I undestood wrongly and answered earlier.

If you want to browse/edit all fields number 3 onwards..

SELECT myTable
cFields = FIELD(1) + [:W=.f.,] + FIELD(2) + [W:.f.]
FOR i = 3 TO FCOUNT()
   cFields = cFields+[,]+FIELD(i)
ENDFOR
BROWSE FIELDS &cFields

____________________________________________
ramani - (Subramanian.G)

http://winnersoft.coolfreepages.com/

 

[StewartUK]

About the FREEZE keyword - it actually freezes every field except the one you specify.

Stewart