[求助] 一段代码不执行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 一段代码不执行

共有3153人关注过本帖树形打印复制链接主题：[求助] 一段代码不执行

zcgmxf

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：七尾狐帖子：1652 积分：14691 威望：0 精华：0 注册：2014/6/6 8:42:00

[求助] 一段代码不执行 发帖心情

Post By：2023/7/22 12:54:00 [只看该作者]

老师，我一段打印代码突然字体变黑不执行了，后面一段字体颜色又正常。前面还好好的。可能什么原因?

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110515 积分：562459 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/7/22 13:34:00 [只看该作者]

截图说明一下

zcgmxf

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：七尾狐帖子：1652 积分：14691 威望：0 精华：0 注册：2014/6/6 8:42:00

Post By：2023/7/24 7:20:00 [只看该作者]

老师，找到原因了，是因为前面有一个双引号写成全角的了。也不是才那样子的，好几年了，不知怎么这次出现了。

有一个问题就是代码太长的话，重排就成为

If r.IsNull("首次接种日期") Then

rt.Cells(4,1).Text = ""

Else

rt.Cells(4,1).Text = r("首次接种日期")

End If

rt.Cells(5,1).Text = r("首次接种剂量")

If r.IsNull("首次接种日期") Then

rt.Cells(6,1).Text = ""

Else

rt.Cells(6,1).Text = r("首次接种日期")

End If

这还算好的，以前发现下面的行自动上移到前面的行

[此贴子已经被作者于2023/7/24 7:22:07编辑过]

主题：[求助] 一段代码不执行