Good suggestion Tim. I tried that but I am still getting bizarre results.
This is what I'm doing:
225 $t:="<CellStyle:"+tTableCellStyleOverride+">"
226 $t2:=ptra2tCellStylesBody->{$row}{$ElementOrder}
227 *Case of* // 04/10/19
228 *:* (($hbf="h") & (ptra2tCellStylesHeader->{$row}{$ElementOrder}#$t))
229 ptra2tCellStylesHeader->{$row}{$ElementOrder}:=$t
230 //: (($hbf="b") & (ptra2tCellStylesBody->{$row}{$ElementOrder}#$t))
231 *:* (($hbf="b") & ($t2#$t))
232 ptra2tCellStylesBody->{$row}{$ElementOrder}:=$t
233 *:* (($hbf="f") & (ptra2tCellStylesFooter->{$row}{$ElementOrder}#$t))
234 ptra2tCellStylesFooter->{$row}{$ElementOrder}:=$t
235 *End case*
The Expression window shows that:
$t="<CellStyle:gray fill>"
$t2=""
ptra2tCellStylesBody->{$row}{$ElementOrder}=""
($hbf="b")=True
($t2#$t)=True
(($hbf="b") & ($t2#$t))=True
So it should pop into line 232. But it doesn't. It pops out of the Case
statement to line 236.
Screen shot here:
https://www.dropbox.com/s/roryl0rykuohd8k/4D004.png?dl=0
Very confusing!
And annoying :)
Pat
On Fri, 4 Oct 2019 at 20:22, Tim Nevels via 4D_Tech <[email protected]>
wrote:
> On Oct 4, 2019, at 2:00 PM, Pat Bensky wrote:
>
> > So the first 2 times through, when $hbf="b" and
> ptra2tCellStylesBody->{$row}{$ElementOrder}#$t, it populates the cell:
> > ptra2tCellStylesBody->{$row}{$ElementOrder}:=$t
> >
> > Subsequently, it just pops through the Case statement and doesn't
> populate
> > the cell, even though those 2 test are both True.
> >
> > In all cases the two tests evaluate to True.
> > What can't I see?
>
> Maybe the 4D interpreter is getting confused with the rather complex 2D
> array pointer thing "ptra2tCellStylesBody->{$row}{$ElementOrder}#$t”
> expression. You might try setting a simple boolean variable before the case
> statement and see if that makes it work.
>
> $theThing_b:=(ptra2tCellStylesBody->{$row}{$ElementOrder}#$t)
>
> Tim
>
> *****************************************
> Tim Nevels
> Innovative Solutions
> 785-749-3444
> [email protected]
> *****************************************
>
> **********************************************************************
> 4D Internet Users Group (4D iNUG)
> Archive: http://lists.4d.com/archives.html
> Options: https://lists.4d.com/mailman/options/4d_tech
> Unsub: mailto:[email protected]
> **********************************************************************
--
*************************************************
CatBase - Top Dog in Data Publishing
tel: +44 (0) 207 118 7889
w: http://www.catbase.com
skype: pat.bensky
*************************************************
**********************************************************************
4D Internet Users Group (4D iNUG)
Archive: http://lists.4d.com/archives.html
Options: https://lists.4d.com/mailman/options/4d_tech
Unsub: mailto:[email protected]
**********************************************************************
