Question

求助！请问又谁精通microsoft foxpro的？小弟有个问题想请教~

这个如何改的可以运行额？
DO FORM fyjs NAME fyjs
DIMENSION a_sfxm(6,6)
i=1
SELECT sfxm
GO top
SCAN
a_sfxm(i,1)=收费项目
a_sfxm(i,2)=总费用
a_sfxm(i,11)=单价
a_sfxm(i,4)=计算方式
i=i+1
ENDSCAN
i=1
FOR i=1 TO 6
SELECT js
LOCATE FOR ALLTRIM(计算方式)=ALLTRIM(a_sfxm(i,4))
jsv=值 &&计算方式值如“按户分摊=1”
SELECT jfqk
DO case
CASE jsv=1
COUNT TO nyz
REPLACE ALL &a_sfxm(i,1) WITH a_sfxm(i,2)/nyz
CASE jsv=2
REPLACE ALL &a_sfxm(i,1) WITH a_sfxm(i,11)*建筑面积
CASE jsv=11
REPLACE ALL &a_sfxm(i,1) WITH 水表实用数*a_sfxm(i,11)*建筑面积
OTHERWISE
MESSAGEBOX("计算方式设置错误！",16,lmsgsys)
ENDCASE
ENDFOR
fyjs.release

Answer 1

&a_sfxm(i,1)
这样的形式不行悄巧，要仿运衡备做加入一个变量
myadd = a_sfxm(i,1)
REPLACE ALL &myadd with ...