上面程序我是在记事本里凭着感觉写的,没调试过,可能有错误,但思路就是这样的.你参考一下.

非常感谢zyz995462老师，非常感谢！我用VF用了很久一直都是排序筛选比较简单的表操作命令，还没用过程序，谢谢您！

怎么用程序明白吗,先在命令窗口里建一个PRG文件,比如命令
modify  command  test
就建立了一个test.prg,其实是文本文件.把我的程序复制上去保存
然后在命令窗口 do test 就执行了.
没用过程序...以前DOS的批处理明白吧,就是这样顺序执行的.当然里面有循环语句...
这是小程序.
大型程序还编译成EXE,脱离VFP环境直接运行.

我试了一下 成功了 幸亏你带了注释，谢谢你！

有几个地方我看不明白，没用过那样的语句！谢谢你！

找本入门的书看一下就明白了,很简单的.有以前foxbase基本的,学VFP太简单了.用VFP就要学习编程序.否则当个高级计算器哦

找了一本 VFP6.0的 往后要多学习！有问题我多来论坛！谢谢

没理解“js字段需要填充01表中5项abcd的均分”，是5个数相加再除以5吗？如果是的话，自己改一下吧。
没仔细验证，楼主自己验证吧。
USE s:\01
USE s:\bj in 0
ZAP in bj
STORE 0 to s1,s2,s3,s4,s5,s6,s7,s8
FOR i=1 to RECCOUNT()
    STORE 0 to n1,n2,n3,n4,n5,n6,n7,n8
    GO i
    FOR j=1 to 5
        n1=n1+ctd(SUBSTR(abcd,0+j,1))
        n2=n2+ctd(SUBSTR(abcd,5+j,1))
        n3=n3+ctd(SUBSTR(abcd,10+j,1))
        n4=n4+ctd(SUBSTR(abcd,15+j,1))
        n5=n5+ctd(SUBSTR(abcd,20+j,1))
        n6=n6+ctd(SUBSTR(abcd,25+j,1))
        n7=n7+ctd(SUBSTR(abcd,30+j,1))
        n8=n8+ctd(SUBSTR(abcd,35+j,1))
    NEXT
    APPEND BLANK in bj
     REPLACE j1 with n1,j2 with n2,j3 with n3,;
              j4 with n4,j5 with n5,j6 with n6,;
              j7 with n7,j8 with n8 in bj
    s1=s1+n1
    s2=s2+n2
    s3=s3+n3
    s4=s4+n4
    s5=s5+n5
    s6=s6+n6
    s7=s7+n7
    s8=s8+n8
NEXT
s1=STR(s1/RECCOUNT(),5,2)
s2=STR(s2/RECCOUNT(),5,2)
s3=STR(s3/RECCOUNT(),5,2)
s4=STR(s4/RECCOUNT(),5,2)
s5=STR(s5/RECCOUNT(),5,2)
s6=STR(s6/RECCOUNT(),5,2)
s7=STR(s7/RECCOUNT(),5,2)
s8=STR(s8/RECCOUNT(),5,2)
?s1
?s2
?s3
?s4
?s5
?s6
?s7
?s8

FUNCTION ctd
PARAMETERS x
x=ASC(UPPER(x))
RETURN 85-x-IIF(x=65,0,1)-IIF(x>66,5,0)-IIF(x=68,3,0)

没看懂意思 不过这类应当不太难吧

有用