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编辑过]

    Set RelaTion To NUM InTo B

是上面这句报错了吗？
报错后点击确定后，光标会停在程序出错的那一行上

没有光标提示哪一行，点击确认后，直接运行最后一行代码。

这是工作区的错误

请帮我纠正错误，哪行语句有问题，可以吗？谢谢你

能不使用工作区，尽量不使用，有时候会有意想不到的问题
如下
*!* 工作区，打开表
select 1
use xx1
***
select 2
use xx2

*!* 工作区使用表
select 1   
brow
select 2   
brow

*!* 别名，打开表
use xx1 in 0 && 在当前可以使用的最小工作区中打开表
use xx2 in 0

*!* 别名，使用表
select xx1
brow
select xx2
brow
好处是不担心在某个工作区的表给别人表占用了，你只需要记得，你打开的表名称就可以，通常 表名称=别名，但也可以指定别名

谢谢你！学习了基本知识点，以后尽量使用别名打开表，这次想要一个表的数据导入另一个表中。在运行过程中出现了提示，不知道咋办了。

不知道，怎么办，自己换成别名，测试一下
如果故障消除，就是工作区问题，否则，就是其他问题
还有，在VFP中，所有的变量，表名称，都不要只用一个字符
Set RelaTion To NUM InTo B
在VFP中
select 1
select a
效果好像是相同的，
你自己测试一下

select 1
use xx1

select 2
use xx2
*分别用 select 1 ,select a
select 1
brow
select 2
brow

select a
brow

[此贴子已经被作者于2023-10-27 13:31编辑过]

也就是，工作区1，工作区a是相同的