标题：代码要测试过才会有效

1楼

edisontsui 发表于：2024/6/6 20:19:00

我写好一段代码，按理论来说，只要运行就是会执行的，但是，实际上它不执行。当我加了msgbox(1)去测试时，这些提示也是会显现的，同时代码也会执行了，也就是说有结果了。然后我再取消msgbox(1)，再没有修改任何代码，执行起来就有效了。请问是什么原因呢？谢谢。

2楼

有点蓝 发表于：2024/6/6 21:07:00

3楼

edisontsui 发表于：2024/6/7 9:12:00

各种情况的代码都会有，主要是，开始时代码不执行，然后就加 msgbox(1) 这类代码去测试，测试时是代码却可以执行，当把 msgbox(1) 这类代码去除之后，代码也可以继续执行了。

4楼

有点蓝 发表于：2024/6/7 9:17:00

检查有没有用到systemready=false这种代码

其次改为使用日志调试

建一个自定义函数logtext

Dim v as string = Args(0)

Output.Logs("AppLogging").Add(v)

Output.Logs("AppLogging").Save(ProjectPath & "调试记录.txt",True) '日志位于当前项目目录里

Output.Logs("AppLogging").Clear

调试的地方把msgbox(1) 改为Functions.Execute("LogText","1")

5楼

edisontsui 发表于：2024/6/7 11:30:00

检查有没有用到 systemready = false 这种代码：这种代码只在一个数据表的 datacolchanged 事件里面有，其他数据表都不存在这行代码，但这些数据表（无 systemready = false 这种代码）不时也会出现1楼所示情况。

共5 条记录, 每页显示 10 条, 页签: [1]