Expression always true??

[forskare]

The following expression (on the form's OnActivate event, works as if it's true all the time. It's as if the Else or the .f. part has no effect. It works well in v4.5 When I click the ligthening bold to run it, it says there os no such field as SESSION_INFO->PDINFULL. Oh yes there is cause I copied and pasted it to the expression. The field rule default is .f.

Any idea why it only half works?

Thanks,

kenn


this.resynch()

if SESSION_INFO2->PDINFULL then
:EditCamper2:Checkbox18.fill.forecolor ="Dark Green"
:EditCamper2:Checkbox18.font.bold = .t.
:EditCamper2:Checkbox18.font.name = "Arial"
:EditCamper2:Checkbox18.font.size = 14
:EditCamper2:Checkbox18.font.color = "Yellow"
else
:EditCamper2:Checkbox18.fill.forecolor = "White"
:EditCamper2:Checkbox18.font.bold = .f.
:EditCamper2:Checkbox18.font.name = "Times New Roman"
:EditCamper2:Checkbox18.font.size = 8
end if
:EditCamper2:Checkbox18.refresh()

[Jim Chapman]

RE: Expression always true??

Hello Ken,

>>The following expression (on the form's OnActivate event, works as if it's true all the time. It's as if the Else or the .f. part has no effect. It works well in v4.5 When I click the ligthening bold to run it, it says there os no such field as SESSION_INFO->PDINFULL. PDINFULL' value. Is this a value on the form? Or is it in the table only ? Are you putting a filter or query on the form ? It might be possible that you are reading the 'first' record in the record order, then via filter or script, jumping to another record where the value maybe different. This probably is not the issue as you say it works fine with v4.x

I'd probably try an explicit reference, such as getting a table or form pointer, then referencing the field.

Good luck,
Jim

[forskare]

RE: Expression always true??

Jim,

Session_Info2 is a table and PDINFULL is a logical field (Checkbox). If the box is checked (True) then the font size and color change, if not checked, then the font and color stay the same.

Should be simple enough, eh??

I tried adding the form name....

Session_Info2->Editcamper2.pdinfull

but no go. Did I miss the syntax?

kenn

[Dan Blank]

RE: Expression always true??

Hi Ken,

I've run across similar problems. The PDINFULL needs to have an "F" or .F. in the field. Just leaving unchecked does not put the .F. in the field. You need to create a field rule to use a simple default expression to put the "F" in the field. Then it should work.

As a test go into the table in browse mode and put some F's in the field, then open the form and test the results.

Dan

[forskare]

RE: Expression always true??

I have the field rule set for a simple default expression of .f. I checked both boxes for setting the value.

This was working in v4.5 wihtout setting the simple default expression.

See my post "Font Equation Doesn't Work?".

I think it's more than the expression, etc.

Thanks,

kenn

[Tom Cone Jr]

RE: Expression always true??

Ken,

Instead of an absolute reference to the name of your table:

if SESSION_INFO2->PDINFULL then

I'd favor using an object pointer to the table, to eliminate potential conflict with alias names assigned automatically by Alpha.

Something like this:

tbl = table.current(slot number for your table)
if tbl.pdinfull then

Or

I'd use the value in the field display object directly from the form.

(assuming PDINFULLOBJECT is the name of the object on your form)

if this:PDINFULLOBJECT.value = .t. then

where 'this' refers to the form.


Since the rest of your script manipulates the table through the objects on the form, I'd favor the second approach outlined above. I do not mix code which manipulates the table directly, with code which manipulates the object through a form. This is my preference, you may feel differently, and I wouldn't argue with you.

-- tom

[forskare]

RE: Expression always true??

Hi Tom,

I've already tried your first approach and will try your second approach later today. Anytime you suggest code, I'm all ears (well, eyes) I won't disagree with something that works.

Thanks,

kenn

[forskare]

RE: Expression always true??

Tom,

I tried the following as the first line in teh script:

if this:CHECKBOX18.value = .t. then

if EditCamper2:CHECKBOX18.value = .t. then

Where CHECKBOX18 is the object name for the field PDINFULL. Neither one worked. Absolutely no effect whatsoever. For convenience, here's the script:

if EditCamper2:CHECKBOX18.value = .t. then
:EditCamper2:Checkbox18.fill.forecolor ="Dark Green"
:EditCamper2:Checkbox18.font.bold = .t.
':EditCamper2:Checkbox18.font.italics = .t.
:EditCamper2:Checkbox18.font.name = "Arial"
:EditCamper2:Checkbox18.font.size = 14
:EditCamper2:Checkbox18.font.color = "Dark Blue"
else
:EditCamper2:Checkbox18.fill.forecolor = "White"
:EditCamper2:Checkbox18.font.bold = .f.
':EditCamper2:Checkbox18.font.italics = .f.
:EditCamper2:Checkbox18.font.name = "Times New Roman"
:EditCamper2:Checkbox18.font.size = 8
end if
:EditCamper2:Checkbox18.refresh()


Thanks,

kenn

[Jim Chapman]

RE: Expression always true??

Hello Ken,

I went and tested this and I think you've ran into a bug. Referencing the form, I will get a logical true value when the field is true OR null. I only get a logical false value if the field is explicitly false. I will send this up to Selwyn.

In the meantime it is easy (and IMHO better) to reference the table directly. Use this syntax:

if table.current().PDINFULL then

etc.

Jim