LOCAL K1 , JLH
 YN = MESSAGEBOX('基础数据审核前,请确定考勤已输入完毕?',36,'Are you sure?')
 IF  .NOT. YN = 6
    RETURN
 ENDIF
 CLOSE ALL
 SELECT 3
 USE SYS(5) - '\gzgl\dbf\cwda.dbf'
 ZAP
 SELECT 1
 USE SYS(5) - '\gzgl\dbf\cs.dbf'
 SELECT 2
 USE SYS(5) - '\gzgl\dbf\cxda.dbf'
 ZAP
 APPEND FROM SYS(5) - '\gzgl\dbf\gzda.dbf' FOR D14 <> '其它'
 APPEND FROM SYS(5) - '\gzgl\yjdbf\yj_gzda.dbf'
 APPEND FROM SYS(5) - '\gzgl\htdbf\ht_gzda.dbf'
 SELECT 8
 USE SYS(5) - '\gzgl\dbf\sebaobz.dbf'
 INDEX ON D11A TO a1
 SELECT 2
 SET RELATION TO D11A INTO sebaobz
 REPLACE YLJJ_D WITH H.YLJJ FOR D11A = H.D11A
 REPLACE GRCXBX_D WITH H.GRCXBX FOR D11A = H.D11A
 REPLACE FHFFN_D WITH H.FHFFN FOR D11A = H.D11A
 REPLACE FHZU_D WITH H.FHZU FOR D11A = H.D11A
 REPLACE FHZU2_D WITH H.FHZU2 FOR D11A = H.D11A
 REPLACE SY_D WITH H.SY FOR D11A = H.D11A
 SELECT 9
 USE SYS(5) - '\gzgl\htdbf\ht_zj.dbf'
 INDEX ON D11A TO a11
 SELECT 2
 SET RELATION TO D11A INTO ht_zj
 REPLACE CBD_D WITH I.CBD FOR D11A = I.D11A
 SELECT 2
 REPLACE CW WITH (' ')
 REPLACE CW WITH '参保地错误,“' - ALLTRIM(CBD) - '”应改为“' - ALLTRIM(CBD_D) - '”'  ;
      FOR B.CBD <> B.CBD_D
 REPLACE CW WITH '参保地错误,全公司合同工档案库无该条记录!' FOR  ;
      B.CBD_D = ' ' AND ZGLB = '合同'
 SELECT 3
 APPEND FROM SYS(5) - '\gzgl\dbf\cxda.dbf' FOR  .NOT. CW = ' '
 SELECT 2
 REPLACE CW WITH (' ')
 REPLACE CW WITH '未输考勤或工资计算错误' FOR  ;
      HJGZ <> D43A + D43B + D45 + KHGZ + D47 + D48 + ZFBTA + GZBT + JBGZ + SGJT - FJKK - BJKK -  ;
QQKK + BFGZ - YKGZ .OR.  ;
SDGZ <> HJGZ - YLJJ - GRCXBX - FHFFN - FHZU - FHZU2 - SY
 REPLACE CW WITH ' ' FOR  ;
      HJGZ = D43A + D43B + D45 + KHGZ + D47 + D48 + ZFBTA + GZBT + JBGZ + SGJT - QQKK + BFGZ -  ;
YKGZ AND ZGLB = '合同'
 

有分了，我怎么加上啊高手们