DO CASE
CASE x1=x
DO CASE
CASE m>0
IF s<a2*0.895
INSERT INTO dmx(xjqs,rq,mz,xz,bm,mc,nz) VALUES (a1,r,m,x,gpdm,gpmc,n)
*!*
INSERT INTO dmx(xjqs) VALUES (a2)
ENDIF
CASE m<0
IF s<a1*0.895
INSERT INTO dmx(xjqs,rq,mz,xz,bm,mc,nz) VALUES (a1,r,m,x,gpdm,gpmc,n)
*!*
INSERT INTO dmx(xjqs) VALUES (a1)
ENDIF
ENDCASE
CASE x2=x
DO CASE
CASE m>0
IF s<b2*0.895
INSERT INTO dmx(xjqs) VALUES (b2)
ENDIF
CASE m<0
IF s<b1*0.895
INSERT INTO dmx(xjqs) VALUES (b1)
ENDIF
ENDCASE
CASE x3=x
DO CASE
CASE m>0
IF s<c2*0.895
INSERT INTO dmx(xjqs) VALUES (c2)
ENDIF
CASE m<0
IF s<c1*0.895
INSERT INTO dmx(xjqs) VALUES (c1)
ENDIF
ENDCASE
CASE x4=x
DO CASE
CASE m>0
IF s<d2*0.895
INSERT INTO dmx(xjqs) VALUES (d2)
ENDIF
CASE m<0
IF s<d1*0.895
INSERT INTO dmx(xjqs) VALUES (d1)
ENDIF
ENDCASE
CASE x5=x
DO CASE
CASE m>0
IF s<e2*0.895
INSERT INTO dmx(xjqs) VALUES (e2)
ENDIF
CASE m<0
IF s<e1*0.895
INSERT INTO dmx(xjqs) VALUES (e1)
ENDIF
ENDCASE
ENDCASE
*!* 上面的代码在下面也出现了,为啥有上的代码就出错呢???(不是在写程序里面,而是在连编好EXE软件后,运行EXE软件才出现的)上面的好像没有出错,能编写成EXE文件
但是在编写好的数据库.EXE软件里运行,就出现了我要问的问题了。连编应用程序的时候是没问题的。
*!*
下面是文件尾的测试
*!*
SELECT dmm
IF EOF()
DO CASE
CASE x1=x
IF m>0
DO CASE
CASE v2=x1
v=bb1
CASE v2=x2
v=vv
CASE v2=x3
v=vv
ENDCASE
IF a2<=v*1.05
x='V'
ENDIF
INSERT INTO dmx(ssqs,rq,mz,xz,bm,mc,nz) VALUES (a2,r,m,x,gpdm,gpmc,n)
ELSE
DO CASE
CASE v2=x1
v=bb2
CASE v2=x2
v=w
CASE v2=x3
v=w
ENDCASE
IF a1>=v*0.95
x='W'
ENDIF
INSERT INTO dmx(xjqs,rq,mz,xz,bm,mc,nz) VALUES (a1,r,m,x,gpdm,gpmc,n)
ENDIF
CASE x2=x
IF m>0
INSERT INTO dmx(zrhc,rq,mz,xz,bm,mc,nz) VALUES (b2,r,m,x,gpdm,gpmc,n)
ELSE
INSERT INTO dmx(zrhs,rq,mz,xz,bm,mc,nz) VALUES (b1,r,m,x,gpdm,gpmc,n)
ENDIF
CASE x3=x
IF m>0
INSERT INTO dmx(zrhs,rq,mz,xz,bm,mc,nz) VALUES (c2,r,m,x,gpdm,gpmc,n)
ELSE
INSERT INTO dmx(zrhc,rq,mz,xz,bm,mc,nz) VALUES (c1,r,m,x,gpdm,gpmc,n)
ENDIF
CASE x4=x
IF m>0
IF d2<bb2
x='X'
INSERT INTO dmx(zrhc,rq,mz,xz,bm,mc,nz) VALUES (b2,r,m,x,gpdm,gpmc,n)
ELSE
INSERT INTO dmx(cjhc,rq,mz,xz,bm,mc,nz) VALUES (d2,r,m,x,gpdm,gpmc,n)
ENDIF
ELSE
IF d1>bb1
x='Y'
INSERT INTO dmx(zrhs,rq,mz,xz,bm,mc,nz) VALUES (b1,r,m,x,gpdm,gpmc,n)
ELSE
INSERT INTO dmx(cjhs,rq,mz,xz,bm,mc,nz) VALUES (d1,r,m,x,gpdm,gpmc,n)
ENDIF
ENDIF
CASE x5=x
IF m>0
IF e2<=a2
IF e2>p
x='Z'
INSERT INTO dmx(zrhs,rq,mz,xz,bm,mc,nz) VALUES (c2,r,m,x,gpdm,gpmc,n)
ELSE
INSERT INTO dmx(cjhs,rq,mz,xz,bm,mc,nz) VALUES (e2,r,m,x,gpdm,gpmc,n)
ENDIF
ENDIF
ELSE
IF e1>=a1
IF e1<p
x='Z'
INSERT INTO dmx(zrhc,rq,mz,xz,bm,mc,nz) VALUES (c1,r,m,x,gpdm,gpmc,n)
ELSE
INSERT INTO dmx(cjhc,rq,mz,xz,bm,mc,nz) VALUES (e1,r,m,x,gpdm,gpmc,n)
ENDIF
ENDIF
ENDIF
ENDCASE
*!*
RETURN
RETURN TO mainfx
*!*
RETURN TO MASTER
ENDIF
[此贴子已经被作者于2016-3-11 11:52编辑过]