| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 程序跳转指令 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=151838) |
| -- 作者：mxl810823 -- 发布时间：2020/7/5 8:51:00 -- 程序跳转指令 我没有发现有“程序跳转指令”的呢，有这样的办法实现如下要求吗？ 下面程序我想只执行第1、2、3行，第4、5行不执行，第6行执行。如果哪天我想全部执行完，去除“程序跳转指令”就可以了 Dim r As Row = Tables("" & e.form.name & "").current r("编辑者") = "" & uname & "" r("在编辑") = "是" vars("sa") = 1 vars("编辑") = "增加" e.Form.controls("all").performclick() |
| -- 作者：sloyy -- 发布时间：2020/7/5 10:03:00 -- 可以 Dim r As Row = Tables("" & e.form.name & "").current r("编辑者") = "" & uname & "" r("在编辑") = "是" \' vars("sa") = 1 \' vars("编辑") = "增加" e.Form.controls("all").performclick() |
| -- 作者：mxl810823 -- 发布时间：2020/7/5 17:11:00 -- 我只是拿一小段程序用以说明问题，实际程序好长的，你这个不好办法 |
| -- 作者：有点蓝 -- 发布时间：2020/7/5 21:08:00 -- Dim r As Row = Tables("" & e.form.name & "").current r("编辑者") = "" & uname & "" r("在编辑") = "是" vars("执行") = false if vars("执行") = true vars("sa") = 1 vars("编辑") = "增加" end if e.Form.controls("all").performclick()
|