注册 登录
编程论坛 → VFP论坛

这个是什么原因？

fdqzy 发布于 2021-08-06 10:02， 1125 次点击
程序代码：
USE fc\szpt IN 0 ALIAS t1 AGAIN
USE fc\szpt IN 0 ALIAS t2 AGAIN  
SELECT t1
SET RELATION TO RECNO()+1 INTO "t2"
SELECT t1
       REPLACE ALL;
               t2.b5y1 WITH IIF(t1.a1+5=t2.a1  OR ;
                              t1.a1+5=t2.a2  OR ;
                              t1.a1+5=t2.a3  OR ;
                              t1.a1+5=t2.a4  OR ;
                              t1.a1+5=t2.a5  OR ;
                              t1.a1+5=t2.a6 ,'B5Y1',"");
               t2.b5y2 WITH IIF(t1.a2+5=t2.a1  OR ;
                              t1.a2+5=t2.a2  OR ;
                              t1.a2+5=t2.a3  OR ;
                              t1.a2+5=t2.a4  OR ;
                              t1.a2+5=t2.a5  OR ;
                              t1.a2+5=t2.a6 ,'B5Y2',"");
               t2.b5y3 WITH IIF(t1.a3+5=t2.a1  OR ;
                              t1.a3+5=t2.a2  OR ;
                              t1.a3+5=t2.a3  OR ;
                              t1.a3+5=t2.a4  OR ;
                              t1.a3+5=t2.a5  OR ;
                              t1.a3+5=t2.a6 ,'B5Y2',"")         
               *t2.b5y4 WITH IIF(t1.34+5=t2.a1  OR ;
                              t1.a4+5=t2.a2  OR ;
                              t1.a4+5=t2.a3  OR ;
                              t1.a4+5=t2.a4  OR ;
                              t1.a4+5=t2.a5  OR ;
                              t1.a4+5=t2.a6 ,'B5Y4',"");
              t2.b5y5 WITH IIF(t1.a5+5=t2.a1 OR ;
                              t1.a5+5=t2.a2 OR ;
                              t1.a5+5=t2.a3 OR ;
                              t1.a5+5=t2.a4 OR ;
                              t1.a5+5=t2.a5 OR ;
                              t1.a5+5=t2.a6 ,'B5Y5',"");
               t2.b5y6 WITH IIF(t1.a6+5=t2.a1 OR ;
                              t1.a6+5=t2.a2 OR ;
                              t1.a6+5=t2.a3 OR ;
                              t1.a6+5=t2.a4 OR ;
                              t1.a6+5=t2.a5 OR ;
                              t1.a6+5=t2.a6 ,'B5Y6',"");                                                                                 
               t2.b5z1 WITH IIF(t1.a1-5=t2.a1 OR ;
                              t1.a1-5=t2.a2  OR ;
                              t1.a1-5=t2.a3  OR ;
                              t1.a1-5=t2.a4  OR ;
                              t1.a1-5=t2.a5  OR ;
                              t1.a1-5=t2.a6,'B5Z1',"");
              t2.b5z2 WITH IIF(t1.a2-5=t2.a1 OR ;
                              t1.a2-5=t2.a2  OR ;
                              t1.a2-5=t2.a3  OR ;
                              t1.a2-5=t2.a4  OR ;
                              t1.a2-5=t2.a5  OR ;
                              t1.a2-5=t2.a6 ,'B5Z1',"");
              t2.b5z3 WITH IIF(t1.a3-5=t2.a1 OR ;
                              t1.a3-5=t2.a2  OR ;
                              t1.a3-5=t2.a3  OR ;
                              t1.a3-5=t2.a4  OR ;
                              t1.a3-5=t2.a5  OR ;
                              t1.a3-5=t2.a6 ,'B5Z1',"");
              t2.b5z4 WITH IIF(t1.a4-5=t2.a1 OR ;
                              t1.a4-5=t2.a2  OR ;
                              t1.a4-5=t2.a3  OR ;
                              t1.a4-5=t2.a4  OR ;
                              t1.a4-5=t2.a5  OR ;
                              t1.a4-5=t2.a6 ,'B5Z1',"");
               t2.b5z5 WITH IIF(t1.a5-5=t2.a1 OR ;
                              t1.a5-5=t2.a2  OR ;
                              t1.a5-5=t2.a3  OR ;
                              t1.a5-5=t2.a4  OR ;
                              t1.a5-5=t2.a5  OR ;
                              t1.a5-5=t2.a6 ,'B5Z1',"");
               t2.b5z6 WITH IIF(t1.a6-5=t2.a1 OR ;
                              t1.a6-5=t2.a2  OR ;
                              t1.a6-5=t2.a3  OR ;
                              t1.a6-5=t2.a4  OR ;
                              t1.a6-5=t2.a5  OR ;
                              t1.a6-5=t2.a6 ,'B5Z1',"")
SET RELATION TO

在使用REPLACE ALL时，行“*”以上保存正常，再增加一行代码，点“保存时”报“语法错误”。
是什么原因？
以前在使用REPLACE ALL时，行不超过200。
7 回复
#2
sdta2021-08-06 10:16
SELECT t1
       REPLACE ALL;
               t2.b5y1 WITH IIF(t1.a1+5=t2.a1  OR ;
                              t1.a1+5=t2.a2  OR ;
                              t1.a1+5=t2.a3  OR ;
                              t1.a1+5=t2.a4  OR ;
                              t1.a1+5=t2.a5  OR ;
                              t1.a1+5=t2.a6 ,'B5Y1',""),;
               t2.b5y2 WITH IIF(t1.a2+5=t2.a1  OR ;
                              t1.a2+5=t2.a2  OR ;
                              t1.a2+5=t2.a3  OR ;
                              t1.a2+5=t2.a4  OR ;
                              t1.a2+5=t2.a5  OR ;
                              t1.a2+5=t2.a6 ,'B5Y2',""),;
               t2.b5y3 WITH IIF(t1.a3+5=t2.a1  OR ;
                              t1.a3+5=t2.a2  OR ;
                              t1.a3+5=t2.a3  OR ;
                              t1.a3+5=t2.a4  OR ;
                              t1.a3+5=t2.a5  OR ;
                              t1.a3+5=t2.a6 ,'B5Y2',""),;         
               *t2.b5y4 WITH IIF(t1.34+5=t2.a1  OR ;
                              t1.a4+5=t2.a2  OR ;
                              t1.a4+5=t2.a3  OR ;
                              t1.a4+5=t2.a4  OR ;
                              t1.a4+5=t2.a5  OR ;
                              t1.a4+5=t2.a6 ,'B5Y4',""),;
              t2.b5y5 WITH IIF(t1.a5+5=t2.a1 OR ;
                              t1.a5+5=t2.a2 OR ;
                              t1.a5+5=t2.a3 OR ;
                              t1.a5+5=t2.a4 OR ;
                              t1.a5+5=t2.a5 OR ;
                              t1.a5+5=t2.a6 ,'B5Y5',""),;
               t2.b5y6 WITH IIF(t1.a6+5=t2.a1 OR ;
                              t1.a6+5=t2.a2 OR ;
                              t1.a6+5=t2.a3 OR ;
                              t1.a6+5=t2.a4 OR ;
                              t1.a6+5=t2.a5 OR ;
                              t1.a6+5=t2.a6 ,'B5Y6',""),;                                                                                 
               t2.b5z1 WITH IIF(t1.a1-5=t2.a1 OR ;
                              t1.a1-5=t2.a2  OR ;
                              t1.a1-5=t2.a3  OR ;
                              t1.a1-5=t2.a4  OR ;
                              t1.a1-5=t2.a5  OR ;
                              t1.a1-5=t2.a6,'B5Z1',"");
              t2.b5z2 WITH IIF(t1.a2-5=t2.a1 OR ;
                              t1.a2-5=t2.a2  OR ;
                              t1.a2-5=t2.a3  OR ;
                              t1.a2-5=t2.a4  OR ;
                              t1.a2-5=t2.a5  OR ;
                              t1.a2-5=t2.a6 ,'B5Z1',""),;
              t2.b5z3 WITH IIF(t1.a3-5=t2.a1 OR ;
                              t1.a3-5=t2.a2  OR ;
                              t1.a3-5=t2.a3  OR ;
                              t1.a3-5=t2.a4  OR ;
                              t1.a3-5=t2.a5  OR ;
                              t1.a3-5=t2.a6 ,'B5Z1',""),;
              t2.b5z4 WITH IIF(t1.a4-5=t2.a1 OR ;
                              t1.a4-5=t2.a2  OR ;
                              t1.a4-5=t2.a3  OR ;
                              t1.a4-5=t2.a4  OR ;
                              t1.a4-5=t2.a5  OR ;
                              t1.a4-5=t2.a6 ,'B5Z1',"");
               t2.b5z5 WITH IIF(t1.a5-5=t2.a1 OR ;
                              t1.a5-5=t2.a2  OR ;
                              t1.a5-5=t2.a3  OR ;
                              t1.a5-5=t2.a4  OR ;
                              t1.a5-5=t2.a5  OR ;
                              t1.a5-5=t2.a6 ,'B5Z1',""),;
               t2.b5z6 WITH IIF(t1.a6-5=t2.a1 OR ;
                              t1.a6-5=t2.a2  OR ;
                              t1.a6-5=t2.a3  OR ;
                              t1.a6-5=t2.a4  OR ;
                              t1.a6-5=t2.a5  OR ;
                              t1.a6-5=t2.a6 ,'B5Z1',"")

代码中缺少,或;，低级错误啊
IIF(t1.a1+5=t2.a1  OR ;
                              t1.a1+5=t2.a2  OR ;
                              t1.a1+5=t2.a3  OR ;
                              t1.a1+5=t2.a4  OR ;
                              t1.a1+5=t2.a5  OR ;
                              t1.a1+5=t2.a6 ,'B5Y1',"")
可以简化为
IIF(INLIST(t1.a1+5, t2.a1, t2.a2, t2.a3, t2.a4, t2.a5, t2.a6), 'B5Y1', '')
#3
fdqzy2021-08-06 11:10
回复 2楼 sdta
谢谢版主回复，但缺“，”或“；”不是这样的，请看这两段代码：
程序代码：
USE fc\szpt IN 0 ALIAS t1 AGAIN
USE fc\szpt IN 0 ALIAS t2 AGAIN  
SELECT t1
SET RELATION TO RECNO()+1 INTO "t2"
SELECT t1
       REPLACE ALL;
               t2.b5y1 WITH IIF(t1.a1+5=t2.a1  OR ;
                              t1.a1+5=t2.a2  OR ;
                              t1.a1+5=t2.a3  OR ;
                              t1.a1+5=t2.a4  OR ;
                              t1.a1+5=t2.a5  OR ;
                              t1.a1+5=t2.a6 ,'B5Y1',"");
               t2.b5y2 WITH IIF(t1.a2+5=t2.a1  OR ;
                              t1.a2+5=t2.a2  OR ;
                              t1.a2+5=t2.a3  OR ;
                              t1.a2+5=t2.a4  OR ;
                              t1.a2+5=t2.a5  OR ;
                              t1.a2+5=t2.a6 ,'B5Y2',"");
               t2.b5y3 WITH IIF(t1.a3+5=t2.a1  OR ;
                              t1.a3+5=t2.a2  OR ;
                              t1.a3+5=t2.a3  OR ;
                              t1.a3+5=t2.a4  OR ;
                              t1.a3+5=t2.a5  OR ;
                              t1.a3+5=t2.a6 ,'B5Y2',"")

点保存正常（无“，”）
在此代码后再增加一条：
程序代码：
USE fc\szpt IN 0 ALIAS t1 AGAIN
USE fc\szpt IN 0 ALIAS t2 AGAIN  
SELECT t1
SET RELATION TO RECNO()+1 INTO "t2"
SELECT t1
       REPLACE ALL;
               t2.b5y1 WITH IIF(t1.a1+5=t2.a1  OR ;
                              t1.a1+5=t2.a2  OR ;
                              t1.a1+5=t2.a3  OR ;
                              t1.a1+5=t2.a4  OR ;
                              t1.a1+5=t2.a5  OR ;
                              t1.a1+5=t2.a6 ,'B5Y1',"");
               t2.b5y2 WITH IIF(t1.a2+5=t2.a1  OR ;
                              t1.a2+5=t2.a2  OR ;
                              t1.a2+5=t2.a3  OR ;
                              t1.a2+5=t2.a4  OR ;
                              t1.a2+5=t2.a5  OR ;
                              t1.a2+5=t2.a6 ,'B5Y2',"");
               t2.b5y3 WITH IIF(t1.a3+5=t2.a1  OR ;
                              t1.a3+5=t2.a2  OR ;
                              t1.a3+5=t2.a3  OR ;
                              t1.a3+5=t2.a4  OR ;
                              t1.a3+5=t2.a5  OR ;
                              t1.a3+5=t2.a6 ,'B5Y2',"");   
              t2.b5y4 WITH IIF(t1.34+5=t2.a1  OR ;
                              t1.a4+5=t2.a2  OR ;
                              t1.a4+5=t2.a3  OR ;
                              t1.a4+5=t2.a4  OR ;
                              t1.a4+5=t2.a5  OR ;
                              t1.a4+5=t2.a6 ,'B5Y4',"")

点保存报错
#4
fdqzy2021-08-06 11:12
以下是引用sdta在2021-8-6 10:16:01的发言：

可以简化为
IIF(INLIST(t1.a1+5, t2.a1, t2.a2, t2.a3, t2.a4, t2.a5, t2.a6), 'B5Y1', '')

这个很好，又学习了！
#5
fdqzy2021-08-06 11:34
以下是引用fdqzy在2021-8-6 11:10:33的发言：

谢谢版主回复，但缺“，”或“；”不是这样的，请看这两段代码：
USE fc\szpt IN 0 ALIAS t1 AGAIN
USE fc\szpt IN 0 ALIAS t2 AGAIN  
SELECT t1
SET RELATION TO RECNO()+1 INTO "t2"
SELECT t1
       REPLACE ALL;
               t2.b5y1 WITH IIF(t1.a1+5=t2.a1  OR ;
                              t1.a1+5=t2.a2  OR ;
                              t1.a1+5=t2.a3  OR ;
                              t1.a1+5=t2.a4  OR ;
                              t1.a1+5=t2.a5  OR ;
                              t1.a1+5=t2.a6 ,'B5Y1',"");
               t2.b5y2 WITH IIF(t1.a2+5=t2.a1  OR ;
                              t1.a2+5=t2.a2  OR ;
                              t1.a2+5=t2.a3  OR ;
                              t1.a2+5=t2.a4  OR ;
                              t1.a2+5=t2.a5  OR ;
                              t1.a2+5=t2.a6 ,'B5Y2',"");
               t2.b5y3 WITH IIF(t1.a3+5=t2.a1  OR ;
                              t1.a3+5=t2.a2  OR ;
                              t1.a3+5=t2.a3  OR ;
                              t1.a3+5=t2.a4  OR ;
                              t1.a3+5=t2.a5  OR ;
                              t1.a3+5=t2.a6 ,'B5Y2',"")
点保存正常（无“，”）
在此代码后再增加一条：
USE fc\szpt IN 0 ALIAS t1 AGAIN
USE fc\szpt IN 0 ALIAS t2 AGAIN  
SELECT t1
SET RELATION TO RECNO()+1 INTO "t2"
SELECT t1
       REPLACE ALL;
               t2.b5y1 WITH IIF(t1.a1+5=t2.a1  OR ;
                              t1.a1+5=t2.a2  OR ;
                              t1.a1+5=t2.a3  OR ;
                              t1.a1+5=t2.a4  OR ;
                              t1.a1+5=t2.a5  OR ;
                              t1.a1+5=t2.a6 ,'B5Y1',"");
               t2.b5y2 WITH IIF(t1.a2+5=t2.a1  OR ;
                              t1.a2+5=t2.a2  OR ;
                              t1.a2+5=t2.a3  OR ;
                              t1.a2+5=t2.a4  OR ;
                              t1.a2+5=t2.a5  OR ;
                              t1.a2+5=t2.a6 ,'B5Y2',"");
               t2.b5y3 WITH IIF(t1.a3+5=t2.a1  OR ;
                              t1.a3+5=t2.a2  OR ;
                              t1.a3+5=t2.a3  OR ;
                              t1.a3+5=t2.a4  OR ;
                              t1.a3+5=t2.a5  OR ;
                              t1.a3+5=t2.a6 ,'B5Y2',"");   
              t2.b5y4 WITH IIF(t1.34+5=t2.a1  OR ;
                              t1.a4+5=t2.a2  OR ;
                              t1.a4+5=t2.a3  OR ;
                              t1.a4+5=t2.a4  OR ;
                              t1.a4+5=t2.a5  OR ;
                              t1.a4+5=t2.a6 ,'B5Y4',"")
点保存报错

找到了，增加的一条“IIF(t1.34+5=t2.a1  OR ;”应为t1.a4
#6
fdqzy2021-08-06 11:58
回复 5楼 fdqzy
但这种写法有行数限制
#7
sdta2021-08-06 12:24
增加一个辅助用表，将替换内容保存在一个表中
#8
fdqzy2021-08-06 18:19
回复 7楼 sdta
谢谢！
1
©2025, BC-CN.NET
电脑版