VFP 小问题
各位大哥,帮我看看这个代码,要是SUM1的数字变了,SUM2就自动为0了,或是SUM2的数字变,SUM1也自动为0,怎么做才能让SUM1的数字改变后,SUM2的不变呢??
SELE grpmastr
p1=ALLT(STR(nmcount+ccc))
p2= ALLT(STR(giverooms+ccc))
p3="'"+ALLT(SUBSTR(pswdchar,1,4))+"'"
p4="'"+TTOC(DATETIME()) +"'"
leftrm=THISFORM.text3.VALUE
p21="0"
p22="0"
p23="0"
p24="0"
p25="0"
p26="0"
p27="0"
p28="0"
xxx=grpmastr.nmcount+1
REPL nmcount WITH nmcount+ccc,giverooms WITH giverooms+ccc,givepswd WITH SUBSTR(pswdchar,1,4),givetime WITH DATETIME()
IF ALLTRIM(type1)=ALLTRIM(rmtype)
leftrm=IIF(leftrm>=0,sum1-leftrm,sum1+leftrm)
REPL sum1 WITH IIF(leftrm<=0,0,leftrm)
p21=IIF(leftrm<=0,"0",ALLT(STR(leftrm)))
ENDIF
IF ALLTRIM(type2)=ALLTRIM(rmtype)
leftrm=IIF(leftrm>=0,sum2-leftrm,sum2+leftrm)
REPL sum2 WITH IIF(leftrm<=0,0,leftrm)
p22=IIF(leftrm<=0,"0",ALLT(STR(leftrm)))
ENDIF
IF ALLTRIM(type3)=ALLTRIM(rmtype)
leftrm=IIF(leftrm>=0,sum3-leftrm,sum3+leftrm)
REPL sum3 WITH IIF(leftrm<=0,0,leftrm)
p23=IIF(leftrm<=0,"0",ALLT(STR(leftrm)))
ENDIF
IF ALLTRIM(type4)=ALLTRIM(rmtype)
leftrm=IIF(leftrm>=0,sum4-leftrm,sum4+leftrm)
REPL sum4 WITH IIF(leftrm<=0,0,leftrm)
p24=IIF(leftrm<=0,"0",ALLT(STR(leftrm)))
ENDIF
IF ALLTRIM(type5)=ALLTRIM(rmtype)
leftrm=IIF(leftrm>=0,sum5-leftrm,sum5+leftrm)
REPL sum5 WITH IIF(leftrm<=0,0,leftrm)
p25=IIF(leftrm<=0,"0",ALLT(STR(leftrm)))
ENDIF
IF ALLTRIM(type6)=ALLTRIM(rmtype)
leftrm=IIF(leftrm>=0,sum6-leftrm,sum6+leftrm)
REPL sum6 WITH IIF(leftrm<=0,0,leftrm)
p26=IIF(leftrm<=0,"0",ALLT(STR(leftrm)))
ENDIF
IF ALLTRIM(type7)=ALLTRIM(rmtype)
leftrm=IIF(leftrm>=0,sum7-leftrm,sum7+leftrm)
REPL sum7 WITH IIF(leftrm<=0,0,leftrm)
p27=IIF(leftrm<=0,"0",ALLT(STR(leftrm)))
ENDIF
IF ALLTRIM(type8)=ALLTRIM(rmtype)
leftrm=IIF(leftrm>=0,sum8-leftrm,sum8+leftrm)
REPL sum8 WITH IIF(leftrm<=0,0,leftrm)
p28=IIF(leftrm<=0,"0",ALLT(STR(leftrm)))
ENDIF
REPL nmcount WITH nmcount+ccc,giverooms WITH giverooms+ccc,givepswd WITH SUBSTR(pswdchar,1,4),givetime WITH DATETIME()
**更新grpmastr,本地表已更新
p0=STR(grpmastr.fno)
SQL="update grpmastr set nmcount= &p1,giverooms=&p2,givepswd=&p3,givetime=&p4,"
SQL=SQL+"sum1=&p21,sum2=&p22,sum3=&p23,sum4=&p24,sum5=&p25,sum6=&p26,sum7=&p27,sum8=&p28 "
SQL=SQL+" where fno=&p0"