Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Grid isn't flexible enough
Message
From
16/03/1998 11:42:20
 
 
To
12/03/1998 14:14:52
General information
Forum:
Visual FoxPro
Category:
User groups
Miscellaneous
Thread ID:
00084219
Message ID:
00084842
Views:
39
The problem isn't in the totalling....

everything works ok, except for row 1 ?

I think there is a bug in the grid. I am not smart enough to program a total routine that works everywhere but the first row. It is completely standard code.

here it is....

TMPGEB = SELECT()
SELECT FAK_TT
GOTO TOP
m_art_tot = 0
m_btw_tot = 0
m_tot_tot = 0
DO WHILE .NOT. EOF()
A_BTW = BTW
A_PRIJS = APR
A_AANT = AANT
IF A_AANT = 0
A_AANT = 1
ENDIF
IF A_BTW <> SPACE(5)
SELECT ART_BTW
SEEK(ALLTRIM(A_BTW))
IF FOUND()
A_PERC = PERCENTAGE * 0.01
ELSE
A_PERC = 0
ENDIF
ELSE
A_PERC = 0
ENDIF
select fak_tt
REPLACE PRI WITH (A_PRIJS * A_AANT)
m_art_tot = m_art_tot + pri
m_btw_tot = m_btw_tot + ((pri * a_perc))
SKIP
ENDDO
thisform.text1.value = m_art_tot
thisform.text2.value = m_btw_tot
thisform.text3.value= m_art_tot + m_btw_tot
thisform.text1.refresh
thisform.text2.refresh
thisform.text3.refresh
thisform.refresh
SELECT(TMPGEB)

Even the thisform refresh won't help ??????? the code is not executed when a colum of row one loses the focus ?????
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform