目的：运行本程序后，能自动计算fkjl表中“应付余额”列数值，最后，把已经付款完毕的合同标志改为T,其他为F。
代码问题：只运算到第三行就结束！并且无法修改合同标志

供应商编码    供应商名称          付款日期         付款金额        合同编号    合同金额    应付余额    执行标志
1001    1001 爱奇新星（北京）      -   -             200000           A001    500000       300000    FALSE
1001    1001 爱奇新星（北京）      -   -             100000            A001    500000       200000    FALSE
1001    1001 爱奇新星（北京）      -   -             200000            A001    500000        0         FALSE
1002    1002 安富利电子（上海）    -   -             300000            B001    600000         0       FALSE
1002    1002 安富利电子（上海）    -   -             300000            B001    600000          0      FALSE
1001    1001 爱奇新星（北京）      -   -             10000            A002    50000             0    FALSE
代码如下：
close all
local htbh,yfye,jl
jl=1
use fkjl
***---从第一行计算
go top
replace 应付余额 with 合同金额-付款金额
yfye=应付余额
htbh="合同编号"
***---计算第二行
if !eof()
   skip
***---判断合同编号是否相同
   if "合同编号"=htbh
   replace 应付余额 with yfye-付款金额
   yfye=应付余额
   jl=jl+1
   skip
   else
   go jl+1
   replace 应付余额 with 合同金额-付款金额
   yfye=应付余额
   htbh="合同编号"
  endif
endif
close all

把"合同编号"两边的引号去掉。

稍微看了一下，提点意见：
１、程序有点杂乱无章，看得有点眼花。
２、从结构上看，您的程序只执行了三行记录，第一个是刚开始的，第二个和第三个是通过SKIP移动指针的，然后就结束了。因为程序不再回头执行您的代码了。为什么？因为您没能给程序建立一个循环。建议您用Do While ! eof()……　Endo来为其建立一个循环。
３、htbh="合同编号"这条命令对你的程序执行没有任何影响，也没有起到任何作用，它和htbh="张三"，htbh="李四"，htbh="王八蛋"……没有任何区别。



[ 本帖最后由 啸凡 于 2010-11-30 21:38 编辑 ]

close all
local htbh,yfye,jl
use fkjl
SORT ON 合同编号 TO LA
USE LA
htbh=合同编号
yfye=合同金额
scan
if 合同编号=htbh
replace 应付余额 with yfye-付款金额
yfye=应付余额
else
htbh=合同编号
yfye=合同金额
replace 应付余额 with yfye-付款金额
yfye=应付余额
endi
ends
repl ALL 执行标志 with 'F'
repl 执行标志 with 'T' FOR 应付余额=0

COPY TO fkjl
以上程序仅供参考。

多谢大侠！

已经改好！


没写过代码，单位销售往来管理比较乱，就用VF弄了程序，在算这张表时一直不对！

以后多向各位大侠请教了！

再次多谢大侠！

支持本版成长壮大！