Things to consider:

 

1)      Does his database have data for v4?

2)      What is your WHILEOPT setting?  What is his?

3)      What R:BASE versions are you and he running?

 

Since the two blocks of code are nearly identical, I'd start by looking at
the data.

 

Emmitt Dove

Manager, Converting Applications Development

Evergreen Packaging, Inc.

[email protected]

(203) 214-5683 m

(203) 643-8022 o

(203) 643-8086 f

[email protected]

 

From: [email protected] [mailto:[email protected]] On Behalf Of MDRD
Sent: Wednesday, February 25, 2009 8:44 AM
To: RBASE-L Mailing List
Subject: [RBASE-L] - VariableRadioGroup locks up

 

Hi

 

Of course the timing stinks on this.  I have a group of offices wanting to
update 

to V8, I sent them a form that works great in 7.5 to show them where we are
going

with our app and the form works great on my 2 computers but this one office
says his 

computer locks up when he press V4.  He is the ring leader of this group and
I am adding

some of his design requests.  When I get this fixed I will have a core group
that is sticking

with me and Rbase compared the others that are wanting to switch to that
other program.

(that other program Still is not our the door running after 2+ years)

 

I am using a VariableRadioGroup with V1 V2 V3 V4, when you press these it

looks up your custom names for the Buttons on the form.  So if you had a
restraunt

you could press V1 for main dishes, V2 for sides, V3 for pies and cakes and
V4 for 

coke, Mr Pib.  and all the button names would change,  Click a button and if
the

name of the button matches a charge code it is entered.

 

I can click V1-4 on my computers but his locks up on V4

 

This is a sample of my code, the only difference between v1-4 is changing
the

number.  Should I use different Var for Vbutt Vnew Vhint and different
cursors?

 

Thanks Marc

 

 IF vbutton = '3' THEN
   SET VAR vbutt TEXT = NULL
   SET VAR vnew TEXT = NULL
   SET VAR vhint TEXT = NULL
   DECLARE cursor1 CURSOR FOR SELECT butname,v3,v3hint  +
   FROM spbutton WHERE v3 EXISTS ORDER BY butname
   OPEN cursor1
   FETCH cursor1 +
   INTO vbutt INDICATOR vi1, vnew INDICATOR vi2, vhint INDICATOR vi3
   WHILE SQLCODE <>100 THEN
    PROPERTY .vbutt caption .vnew
    PROPERTY .vbutt color 'white'
    PROPERTY .vbutt hint .vhint
    FETCH cursor1 +
    INTO vbutt INDICATOR vi1, vnew INDICATOR vi2, vhint +
    INDICATOR vi3
   ENDWHILE
   DROP CURSOR cursor1
 ENDIF

 

 IF vbutton = '4' THEN
   SET VAR vbutt TEXT = NULL
   SET VAR vnew TEXT = NULL
   SET VAR vhint TEXT = NULL
   DECLARE cursor1 CURSOR FOR SELECT butname,v4,v4hint  +
   FROM spbutton WHERE v4 EXISTS ORDER BY butname
   OPEN cursor1
   FETCH cursor1 +
   INTO vbutt INDICATOR vi1, vnew INDICATOR vi2, vhint INDICATOR vi3
   WHILE SQLCODE <>100 THEN
    PROPERTY .vbutt caption .vnew
    PROPERTY .vbutt color 'white'
    PROPERTY .vbutt hint .vhint
    FETCH cursor1 +
    INTO vbutt INDICATOR vi1, vnew INDICATOR vi2, vhint +
    INDICATOR vi3
   ENDWHILE
   DROP CURSOR cursor1
 ENDIF

 

 

 

Reply via email to