- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [建议] 重排的问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=176843)
-- 发布时间：2022/4/28 16:14:00
-- [建议] 重排的问题
上图是重排前的，下图是按F10之后的。
此主题相关图片如下：无标题20220428.png
[此贴子已经被作者于2022/4/28 16:14:39编辑过]
-- 发布时间：2022/4/28 16:19:00
--
请给出代码测试
-- 发布时间：2022/4/28 22:54:00
--
以下是引用有点蓝在2022/4/28 16:19:00的发言：
请给出代码测试
请给出代码测试
才看到，老大好像有更新好了。
-- 发布时间：2022/4/30 13:13:00
--
If Err > "" Then
MessageBox.Show(Err & "不可以为空！")
Exit Sub
End If
下载了新版本，发现这个问题还是存在。
-- 发布时间：2022/5/1 7:47:00
--
收到
-- 发布时间：2022/5/7 0:57:00
--
老师，重排还有个问题要改进的。红色行应该与上一行对齐才行。
If r Is Nothing Then Exit Sub
If r.IsNull("审核标志") Then
_str = "Edit"
_sn = r("Itid")
Functions.Execute("MainTab页新增", "Main", "D_请领料单编辑")
Else
MessageBox.Show("不能编辑已经审核的表单@!")
End If
-- 发布时间：2022/5/7 9:05:00
--
已反馈
-- 发布时间：2022/5/7 9:08:00
--
改为
If r Is Nothing Then return
-- 发布时间：2022/5/7 10:46:00
--
老师，两者都会退出，有什么不一样吗?那个更好一些。
-- 发布时间：2022/5/7 11:34:00
--
一样的。只是编辑器没有对Exit Sub做处理，所以重排有问题