On 4 Jan 2005 at 8:48, David M. Blocker wrote: I think GETPROPERTY CustState TEXTVALUE �eCustState� GETPROPERTY ModLevel TEXTVALUE 'eModLeve'l should be GETPROPERTY CustState TEXTVALUE eCustState GETPROPERTY ModLevel TEXTVALUE eModLevel
> Hi R:Base buddies > > I posted this new year's day and have gotten no response- so I'm trying > again! There are some simple steps below to try with CONCOMP to confirm the > problem or show me what I'm mssing. > > I�m beginning to think I�ve gone a little mad here. I have a working example > in a database of using the PROPERTY component TEXTVALUE .varname command to > change the value of a column on entry. I can�t for the life of me see what > �s different about that working example from the one I�m trying to create > other than one is run from a button and another from a DBEdit control �On > exit�, but even if I try it from a button it won�t go. > > The working example has this relevant set of code (form is called with > ENTER): > > SET NULL ' ' > PROPERTY TABLE Invoice 'EDIT' > PROPERTY PONO TEXTVALUE .fSearchFor > RECALC VARIABLES > > It works like a charm. Notice NO SAVEROW command is needed to make it work. > > Just in case it's some wierdness in my database, I�m trying first to get > this to work on CONCOMP and can�t. I�d love it if someone can replicate this > for me to see if I�m dreaming. Try these steps (either build 78 or 79) > > 1. Modify form Concomp > 2. Create this custom EEP for field CustState ON EXIT: > > SET VAR eCustState TEXT = NULL > SET VAR eDefState TEXT = NULL > SET VAR eDefState = 'MA' > GETPROPERTY CustState TEXTVALUE �eCustState� > IF eCustState IS NOT NULL THEN > GOTO BOTTOM > ENDIF > PROPERTY TABLE Customer 'EDIT' > PROPERTY CustState TEXTVALUE .eDefState > SAVEROW > LABEL BOTTOM > CLE VAR eCustState,eDefState > RETURN > > 3. And create this custom EEP for field ModLevel ON EXIT: > > SET VAR eModLevel INTEGER = NULL > SET VAR eDefMod INTEGER = NULL > SET VAR eDefMod = 1 > GETPROPERTY ModLevel TEXTVALUE �eModLeve�l > IF eModLevel IS NOT NULL THEN > GOTO BOTTOM > ENDIF > PROPERTY TABLE Customer 'EDIT' > PROPERTY ModLevel TEXTVALUE .eDefMod > SAVEROW > LABEL BOTTOM > CLE VAR eModLevel,eDefMod > RETURN > > 4. Save the form > > 5. ENTER USING CustomerEnter > 6. Leave CustState blank � it does NOT change to MA > 7. Leave ModLevel blank � it does NOT change to 1 > > The NULL setting makes no difference. > > Change SAVEROW to RECALC VARIABLES � neither one makes a difference. > > My working example is an INTEGER column and variable, so I tried both here � > one text column and one integer. Makes no difference. The GETPROPERTY > commands are working fine � trace shows that. I get no error when tracing > the PROPERTY .. TEXTVALUE commands, but they don't work - no value appears > on the form or is saved in the row. > > I have the same problem using Build 78 or the beta of 79. It occurs on both > my portable and desktop, both running Windows XP. > > I added a lookup expression to the form from a new States table in the > hopes that that would force a recalc variables to work, but it did not help. > > Can anyone replicate this problem or show me the error of my ways? I�m > guessing it�s a big DUH but I can�t see it! > > David Blocker > [EMAIL PROTECTED] > 781-784-1919 > Fax: 781-784-1860 > Cell: 339-206-0261 > > Victor Timmons Tiz's Door Sales, Inc 425-258-2391
