| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助] 一段代码不执行 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=187506) |
| -- 作者：zcgmxf -- 发布时间：2023/7/22 12:54:00 -- [求助] 一段代码不执行 老师，我一段打印代码突然字体变黑不执行了，后面一段字体颜色又正常。前面还好好的。可能什么原因? |
| -- 作者：有点蓝 -- 发布时间：2023/7/22 13:34:00 -- 截图说明一下 |
| -- 作者：zcgmxf -- 发布时间：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编辑过]
|