精确计算
CLOSE TABLES all
USE lk19
REPLACE fscz WITH 0 all
FOR i=1 TO RECCOUNT('lk19')
    SELECT lk19
    GO i
    iwc=wc
    SELECT fs18,wc,iwc-wc cs,ABS(wc-iwc) as csab FROM lk18  INTO CURSOR mpmp ORDER BY csab
    REPLACE fs18 WITH mpmp.fs18 IN lk19
    SELECT mpmp
    fs1=fs18
    wc1=wc
    ncs=cs
    IF ncs>0  &&ÕÒ²»µ½°´²åÖµ·¨¼ÆËã¡£
        GO 2
        fsp=fs1+(fs18-fs1)*ncs/(wc-wc1)
        REPLACE fscz WITH fsp IN lk19
    ENDIF
endfor
结果说明误差

[此贴子已经被作者于2019-7-4 14:40编辑过]

感谢！程序能部分运行。问题如图所示。 如果我添加了字段fscz,就会出现如下问题 只要点忽略，就会生成一些数据，但要一直点忽略

[此贴子已经被作者于2019-7-4 14:32编辑过]

精确计算
CLOSE TABLES all
USE lk19
REPLACE fscz WITH 0 all
FOR i=1 TO RECCOUNT('lk19')
    SELECT lk19
    GO i
    iwc=wc
    SELECT fs18,wc,iwc-wc cs,ABS(wc-iwc) as csab FROM lk18  INTO CURSOR mpmp ORDER BY csab
    REPLACE fs18 WITH mpmp.fs18 IN lk19
    SELECT mpmp
    fs1=fs18
    wc1=wc
    ncs=cs
    IF ncs>0  &&找不到安插值法计算。
        GO 2
        fsp=fs1+(fs18-fs1)*ncs/(wc-wc1)
        REPLACE fscz WITH fsp IN lk19   &&fscz  n(6,2)
    ENDIF
endfor
结果说明误差很小可以按下面方法计算
CLOSE TABLES all
USE lk19
FOR i=1 TO RECCOUNT('lk19')
    SELECT lk19
    GO i
    iwc=wc
    SELECT fs18,wc,ABS(wc-iwc) as csab FROM lk18  INTO CURSOR mpmp ORDER BY csab
    REPLACE fs18 WITH mpmp.fs18 IN lk19
endfor

我是94 年上的学，学的foxbase，sql不熟，想请教

    SELECT fs18,wc,iwc-wc cs,ABS(wc-iwc) as csab FROM lk18  INTO CURSOR mpmp ORDER BY csab
   iwc-wc cs  为什么没有as，后边ABS(wc-iwc) as csab 有as？


    SELECT mpmp
    fs1=fs18
    wc1=wc
    ncs=cs
    IF ncs>0  &&找不到安插值法计算。
        GO 2
        fsp=fs1+(fs18-fs1)*ncs/(wc-wc1)      这两个减法不都是等于0吗？

感谢大神！！！两种方法测试通过，结果是相同的。再次感谢。

第二个问题你应该有答案了吧。第一个中要不要 as 都可以。

close databases all
set collate to "MACHINE"
set near on
use lk18 in 0
index on wc tag wc
use lk19 in 0
select lk19
blank fields fs18 all
scan
    nwc = wc
    select lk18
    seek nwc
    replace fs18 with lk18.fs18 in lk19
endscan
select lk19
go top
browse

例如19表里wc75，在18表应该是73名 688分，但结果是84名687分

[quote]以下是引用sxy166在2019-7-4 16:20:57的发言：

我是94 年上的学，学的foxbase，sql不熟，想请教

 这跟你哪年上学没有很大关系，这个问题用FOXBASE也可以解决的，主要是你原来用少了FOXBASE。

人往高处走