update之后，重设的文件指针好像没用了

大敌人

SetLL *LoVal TEmplyee ;
For i=1  to Num ;                  
   ReadE  ArrNam(i)   TEmplyee ;     
    If  Not %EOF ;                  
     If   i = 1 ;                    
      WorkLevel = 'A' ;              
      Update TEmp ;                  
     Endif ;                        
     If   i = 2 or   i = 3 ;         
      WorkLevel = 'B' ;              
      Update TEmp ;                  
     Endif ;                        
     If  i  >3 ;                     
      WorkLevel = 'C' ;              
      Update TEmp ;                  
     Endif ;                        
     SetLL *LoVal TEmplyee ;   
Endfor ;

程序其实很简单，主键Name重新排了一下序，存到数组里，然后按照文件指针的顺序读文件，读到对应的记录，就修改记录的另一个字段WorkLevel 赋值 'A'，然后更新，但现在的问题是只能更新第一个ArrNma(1)对应的记录，后面的读每个记录都是EOF。我重设了文件指针也没用，估计是update捣的鬼。希望高手指点迷津，

[ 本帖最后由 大敌人 于 2008-11-23 16:42 编辑 ]

大敌人

顶，大伙帮帮忙，明天就要这个程序了

大敌人

搞定了，小问题

qiao_zq

你的小问题是
循环内 *LoVal  SetLL  应该改成READE的KEY SETLL

tianya0229

SetLL *LoVal TEmplyee ;
For i=1  to Num ;                  
   ReadE  ArrNam(i)   TEmplyee ;     
    If  Not %EOF ;                  
     If   i = 1 ;                    
      WorkLevel = 'A' ;              
      Update TEmp ;                  
     Endif ;                        
     If   i = 2 or   i = 3 ;         
      WorkLevel = 'B' ;              
      Update TEmp ;                  
     Endif ;                        
     If  i  >3 ;                     
      WorkLevel = 'C' ;              
      Update TEmp ;                  
     Endif ;                        
     SetLL *LoVal TEmplyee ;    (这句不要就可以)
Endfor ;