我从一张表上定点提取一个数据去另外一张表,我的程序:
SELECT 1
FOR i = 1 TO RECCOUNT()
    SELECT 1                                            
    GO i
    ? i
    a_stkcd=stkcd                                    
    a_year=SUBSTR( accper,1,4)
    a_month=month_mark
DO CASE
    CASE a_year= '2006' AND a_month='1'
        
        SELECT 2                                            &&打开工作2区，开始处理formanager表
           LOCATE FOR  stkcd=a_stkcd AND SUBSTR( trddt,1,10)=='2004-07-01'
           IF FOUND ()   
        temp_p_b6_bg=Clsprc     
             ELSE
            temp_p_b6_bg=-9999   
        ENDIF

       LOCATE FOR  stkcd=a_stkcd AND SUBSTR( trddt,1,10)=='2004-10-08'
           IF FOUND ()        
        temp_p_b5_bg=Clsprc     
             ELSE
            temp_p_b5_bg=-9999   
        ENDIF
 ..
.
.中间太多就不贴了
.

ENDCASE
   
            
    SELECT 1
    GO i
    replace p_b6_bg WITH temp_p_b6_bg
    replace p_b5_bg WITH temp_p_b5_bg
 ENDFOR
CLOSE TABLES
最后replace到第一张表. 它显示temp_p_b6_bg找不到. 而且是所有的temp都找不到.
这是第一次出现这种问题,求大牛抱大腿!!!!!!!

SELECT 1
FOR i = 1 TO RECCOUNT()
    SELECT 1                                            
    GO i
    ? i
    a_stkcd=stkcd                                    
    a_year=SUBSTR( accper,1,4)
    a_month=month_mark
    DO CASE
    CASE a_year= '2006' AND a_month='1'
.
.中间太多就不贴了
.
    ENDCASE
    SELECT 1
    GO i
    replace p_b6_bg WITH temp_p_b6_bg
    replace p_b5_bg WITH temp_p_b5_bg
 ENDFOR
这样看才清楚，如果没有满足CASE条件时，有可能temp_p_b6_bg、temp_p_b5_bg是不存在。

在出毛病的句子前，用 messagebox() 查查temp_p_b6_bg、temp_p_b5_bg 值，是否有 .F. 的。最好是在使用 do case 前预先赋值，防止 case 条件的不满足时报错。

可是我查过，确实是有符合条件的观测值。
而且我试过无论哪个case，它都说不存在temp....

问题是有无不符合CASE条件的时候呢？肯定会有的，否则你就不用去CASE了。

就象这样：
if ....
    temp = 1;
endif
?temp
很有可能执行到?temp就抛出temp未定义异常。
正确的做法是先定义temp，如：
temp = 0
if ....
    temp = 1;
endif
?temp

加下面的语句。完善CASE
0therwise
messagebox("没有符合条件的记录！")
另各个
ENDIF设置断点，调试器查看变量值。

加了otherwise以后确实没有提示错误了
可是现在还是提取不出正确的数值
他全部返回-9999,就是没有找到.....太不科学了....
再贴一下新的程序
SELECT 1
FOR i = 1 TO RECCOUNT()
    SELECT 1                                            
    GO i
    ? i
    a_stkcd=stkcd                                    
    a_year=SUBSTR(accper,1,4)
    a_month=month_mark
   
    DO CASE
    CASE a_year== '2006' AND a_month=='1'
            
        SELECT 2                                          
           LOCATE FOR  stkcd=a_stkcd AND SUBSTR( trddt,1,4)=='2004'  AND  SUBSTR( trddt,6,7)=='07'  AND                          SUBSTR( trddt,9,10)=='01'
           IF FOUND ()   
        temp_p_b6_bg=Clsprc     
             ELSE
            temp_p_b6_bg=-9999   
            ENDIF
        
        OTHERWISE
         temp_p_b6_bg=-9999
        ENDCASE
                  
    SELECT 1
    GO i
    replace p_b6_bg WITH temp_p_b6_bg
     ENDFOR
CLOSE TABLES
        

[此贴子已经被作者于2017-1-15 04:31编辑过]

未见你的数据表，看好像2个。
从一区的表提取了年月。CASE条件中年号是2006。
在二区表中查找条件中的年是2004。
不知道有没有关连？
根据你的描述，CASE沒有一个符合条件的

第一个表是个小sample, 第二个是个大库.
就是想定点从大库里调数据到第一个库里的,时间是定的.