Syntax Error - When Label Caption is "="

[brucegs13]

I am getting a non fatal Syntax Error when I try to update a label with a field which starts with an '=' sign.

THISFORM.lblSomeLabel.Caption=ALLTRIM(SomeCharacterField)

where the value of SomeCharacterField is '='

Other than validating ALL my fields for this value (and who knows what other characters will generate this error) does anyone have any idea why this is happening?

Thanks in Advance

Bruce Sharland

 

[ramani]

Hi Bruce

Set the caption as [ = ]
i.e. Square bracket starts + One space + =sign + One space + Square Bracket end



____________________________________________
ramani - (Subramanian.G)

http://winnersoft.coolfreepages.com/

When you ask VFP questions, please add VFP version.

 

[jamrnelson]

My understanding is that you can set the value for any property to a character string beginning with '=', and that string will then be evaluated as part of the INIT event for the object. Most common usage is for captions, within the Property sheet:
='first line'+chr[13]+'second line'

so, as frequently happens, a perceived bug is only a feature.

Jim Nelson

 

[brucegs13]

Thanks for your timely replies ... however ...

The '[ = ]' suggestion would work if the label is always an equal sign.

THISFORM.lblSomeLabel.Caption=ALLTRIM(SomeCharacterField)

The value of SomeCharacterField is input by the user and it could be any string but when they input an equal sign it crashes.

Thanks again ..

Bruce Sharland

 

[rgbean]

Bruce,
You'll just have to check the first character - if it's an equal ("=&quot, you'll have to add a space in front of the requested caption. (It appears to be a known "problem", and this is probably the only acceptable workaround.)

Rick

 

[brucegs13]

Thanks for all the input ...

FYI I wrote a procedure that strips '=' characters from any character field in a record passed to it ...

lnFieldCount=1
DO WHILE .t.
IF LEN(FIELD(lnFieldCount))=0 && End of Fields
EXIT
ENDIF
lcFieldName=FIELD(lnFieldCount)
IF TYPE("&lcFieldName&quot="C"
IF SUBSTR(&lcFieldName,1,1)="="
REPLACE &lcFieldName WITH SUBSTR(&lcFieldName,2)
ENDIF
ENDIF
lnFieldCount=lnFieldCount+1
ENDDO

Bruce Sharland

 

[EzLogic]

Brucegs13,

You can also use StrTran(cField,'=','')
this way, if the = sign is not in the beginning, rather anywhere in the field, it will be replaced with ''



Ali Koumaiha
TeknoSoft Inc
Farmington Hills, Michigan

 

[kingbullet]

Try this:

SomeCharacterField = '='
THISFORM.lblSomeLabel.Caption=ALLTRI('&SomeCharacterField')

Where is the problem ?!?!?