排查了一个多小时了，以前正确的代码现在老是提示错误，是不是我的系统出问题了？ - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 排查了一个多小时了，以前正确的代码现在老是提示错误，是不是我的系统出问题了？

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 3906 人关注过本帖

标题：排查了一个多小时了，以前正确的代码现在老是提示错误，是不是我的系统出问 ...

取消只看楼主加入收藏

琅拿度

等　级：新手上路
帖　子：166
专家分：5
注　册：2016-4-7
结帖率：75.86%

楼主

已结贴√ 问题点数：20 回复次数：18

排查了一个多小时了，以前正确的代码现在老是提示错误，是不是我的系统出问题了？

for i_zdxx=1 To 3
            iic=Allt(Str(i_zdxx))
            zdxx&iic=""
            Sele yinglijilu
            Go Top
            Do While Eof()=.F.
                If fangan&iic=.T. && 发生错误的行
                    zdxx&iic=Substr(Item,3,2)+'-'+Left(Allt(end_time),5)+':'+Chr(13)+zdxx&iic
                Endi
                Skip
            Enddo
endfor

如上述代码，yinglijilu 里面是有 fangan1～fangan3字段的，逻辑型，以前运行也没出现什么问题，今天老是提示错误，提示操作类型不正确，明明是逻辑型啊，打开表也没发现坏，真的不知道怎么排查了

[此贴子已经被作者于2021-7-7 15:52编辑过]

搜索更多相关主题的帖子: 提示　代码　小时　系统　错误　

2021-07-07 15:45

琅拿度

等　级：新手上路
帖　子：166
专家分：5
注　册：2016-4-7

第 2 楼

得分:0

以下是引用sdta在2021-7-7 16:10:52的发言：

CLEAR
CREATE CURSOR yinglijilu (fangan1 L, fangan2 L, fangan3 L, item1 c(5), end_time c(8))
INSERT INTO yinglijilu VALUES (.T., .F., .T., "12345", "01:02:03")
INSERT INTO yinglijilu VALUES (.T., .F., .T., "23456", "02:03:04")
INSERT INTO yinglijilu VALUES (.T., .T., .F., "54321", "03:02:01")
FOR i_zdxx=1 TO 3
    iic=ALLTRIM(STR(i_zdxx))
    zdxx&iic=""
    SELECT yinglijilu
    GO TOP
    Do WHILE EOF()=.F.
        IF fangan&iic=.T. && 发生错误的行
            zdxx&iic=Substr(Item1,3,2)+'-'+Left(Allt(end_time),5)+':'+Chr(13)+zdxx&iic
        ENDIF
        SKIP
    ENDDO
ENDFOR
?ZDXX3

模拟代码没有问题，可能是表yinglijilu中fangan1-fangan3字段类型问题

我这里提示的的：命令中含有不能识别的短语或关键字

2021-07-07 16:21

琅拿度

等　级：新手上路
帖　子：166
专家分：5
注　册：2016-4-7

第 3 楼

得分:0

以下是引用mywisdom88在2021-7-7 17:56:46的发言：

VFP版本多少

9.0 sp2

2021-07-07 18:33

琅拿度

等　级：新手上路
帖　子：166
专家分：5
注　册：2016-4-7

第 4 楼

得分:0

以下是引用琅拿度在2021-7-7 16:21:54的发言：

我这里提示的的：命令中含有不能识别的短语或关键字

                Sele yinglijilu
                Go Top
                Do While Eof()=.F.
                    Sele yinglijilu
                    If fangan&izdc=.T. && 就是这行出错
                        i_zdsl=i_zdsl+1
                    Endi
                    Skip
                Enddo

都改成这样了，都提示出错，提示：命令中含有不能识别的短语或关键字。明明fangan1～3都是逻辑型，感觉智商被践踏啊。。。。。

2021-07-07 18:36

琅拿度

等　级：新手上路
帖　子：166
专家分：5
注　册：2016-4-7

第 5 楼

得分:0

宏替换也改成唯一名称了，都不行

2021-07-07 18:37

琅拿度

等　级：新手上路
帖　子：166
专家分：5
注　册：2016-4-7

第 6 楼

得分:0

                Sele yinglijilu
                Go Top
                Do While Eof()=.F.
                    Sele yinglijilu
                    If fangan1=.T. && fangan2也行，fangan3也行，不用宏替换就没问题
                        i_zdsl=i_zdsl+1
                    Endi
                    Skip
                Enddo

天啊，我的宏替换到处都用了，但怎么就这一小段提示出错？以前一直也怎样用的啊？？？

我的宏替换
i_zdxx=1 To 3
izdc=Allt(Str(i_zdxx))

2021-07-07 18:53

琅拿度

等　级：新手上路
帖　子：166
专家分：5
注　册：2016-4-7

第 7 楼

得分:0

真的不知道问题在哪里了

2021-07-07 18:54

琅拿度

等　级：新手上路
帖　子：166
专家分：5
注　册：2016-4-7

第 8 楼

得分:0

以下是引用xuminxz在2021-7-7 18:53:53的发言：

把你的表放上来，是不是有.null.。用调试器看看相关变量的值。

fangan1里是没值的，但默认就是 .f.嘛

我直接写 If fangan1=.T. 这样也不会提示错误啊

2021-07-07 18:56

琅拿度

等　级：新手上路
帖　子：166
专家分：5
注　册：2016-4-7

第 9 楼

得分:0

以下是引用xuminxz在2021-7-7 18:53:53的发言：

把你的表放上来，是不是有.null.。用调试器看看相关变量的值。

yinglijilu.rar (629 Bytes)

2021-07-07 19:07

琅拿度

等　级：新手上路
帖　子：166
专家分：5
注　册：2016-4-7

第 10 楼

得分:0

以下是引用sdta在2021-7-7 19:19:13的发言：

表中缺少ITEM及END_TIME字段

内容太多，我只是简化传上来，不会是其它字段的问题的

目前使用：

if Iif(i_zdxx=1,fangan1=.T.,Iif(i_zdxx=2,fangan2=.T.,Iif(i_zdxx=3,fangan3=.T.,Iif(i_zdxx=4,fangan4=.T.,fangan5=.T.))))

这样代替宏替换，就没有问题，真的搞不懂了

2021-07-07 19:28

快速回复：排查了一个多小时了，以前正确的代码现在老是提示错误，是不是我的系统 ...