回复 9楼 铁思达
你想的有点复杂,代码方向有点问题,用以下的代码可能实现你的要求(你上传的代码是将库记录扫描到数组k中,则要用数组K与“成交数量”相对应的那个元素来判断,而不能用整个数组K来判断是否为0)。
CLOSE TABLES
set path to e:\国隆投资金融交易风险管理系统
USE 成交明细记录
zap
USE
成交清单
&&USE
成交清单
DO WHILE not eof()
*当前记录扫描到数组muk
scatter to muk
*取当前记录的成交数量字段值
k=成交数量
sele 2
USE 成交明细记录
if k=0
append blank
gather from muk
replace 状态 with "已废除"
*成交清单中的"成交数量”为0时,成交明细记录中的“成交数量”是否标记为1,这里标记录为1.
replace 成交数量 with 1
else
i=1
do while i<=k
append blank
gather from muk
replace 状态 with "全部成交"
replace 成交数量 with 1
i=i+1
enddo
endif
sele 1
SKIP
ENDDO
use
sele 2
use
sele 1
USE 成交明细记录
brow
return