程序代码：

Set Safety Off
Set Talk Off 

close tabl
    Sele  2
    Use FQnxj
    Sum(ts) To nts
    Inde On num To s

    Sele 1
    Use onlykqb
     If Fsize('FQ')=0
       Alter Tabl onlykqb Add FQ N(3)  
     Endif    
    
    Inde On num To ss
    Set RelaTion To NUM InTo B
    Blank All Fields fq
    Repl All FQ With B.TS  For num=B.num
    Sum(fq) To nfq
     If   nts<> nfq
         MessageBox("数据导入有误！导入前【"+allt(str(nts))+"】 导入后"+allt(str(nfq)))
         Retu
     Else
         MessageBox("导入前后数据一致：前【"+allt(str(nts))+"】 后"+allt(str(nfq)))
     Endif    
    Set RelaTion To    &&&&解除连接

 
     Brow Fields NUM,XM,BM,FQ For FQ<>0  
     Copy To A123
   
    MessageBox("A123数据已导入！","提示")

[此贴子已经被作者于2023-10-26 19:46编辑过]