以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [分享]审核流程 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=148885) |
-- 作者:cd_tdh -- 发布时间:2020/4/17 16:47:00 -- [分享]审核流程 做了几天,今天抽时间做了个示例,供初学者参考,高手勿喷。
以下内容只有回复后才可以浏览
所有用户名:admin,密码:123456
2、因为涉及到审批,所以用户管理、登录设计免费送了; 3、代码有很多重复的也懒得去简化了; 4、因为自做的系统用的页签,奇幻页签,获得当前表的变量问题一直没解决,这个示例里面也有问题没修改,所以流程设置完成后,直接进测试,可能会报错找不到ID,那你直接窗口设计几面选择测试表1,应用进行测试。
一直想写个全局变量来获得当前表名,确实能力有限,没写出来,有高手愿意指导的请指导一下,目前系统的表名、窗口名、页签名是是一样的,试了很多方法都对。 目前用来的方法: 1、窗口打开后:定义变量:Vars("editTanle") = e.form.Tablename,在切换页签后,Vars("editTanle")的值是最后一次打开窗口的值,行不通。 2、在窗口切换页签是定义变量:Vars("editTanle") = e.form.Tablename,这个方法虽然切换页签后问题解决了,但是页签还没打开,窗口Afterload事件分页加载等代码,没法调用这个值,也是问题,也没做成功。
[此贴子已经被作者于2020/4/17 17:03:40编辑过]
|
-- 作者:天一生水 -- 发布时间:2020/4/17 16:48:00 -- 谢谢分享! |
-- 作者:cd_tdh -- 发布时间:2020/4/17 16:54:00 -- 二楼 |
-- 作者:有点蓝 -- 发布时间:2020/4/17 17:01:00 -- 多谢分享! |
-- 作者:晨曦396 -- 发布时间:2020/4/17 17:05:00 -- 学学嘻嘻 学学嘻嘻 |
-- 作者:cd_tdh -- 发布时间:2020/4/17 17:06:00 -- 以下是引用有点蓝在2020/4/17 17:01:00的发言:
多谢分享! 还希望有点蓝老师帮忙解决哈这个问题啊: 一直想写个全局变量来获得当前表名,确实能力有限,没写出来,有高手愿意指导的请指导一下,目前系统的表名、窗口名、页签名是是一样的,试了很多方法都对。 目前用来的方法: 1、窗口打开后:定义变量:Vars("editTanle") = e.form.Tablename,在切换页签后,Vars("editTanle")的值是最后一次打开窗口的值,行不通。 2、在窗口切换页签时定义变量:Vars("editTanle") = e.form.Tablename,这个方法虽然切换页签后问题解决了,但是页签还没打开,窗口Afterload事件分页加载等代码,没法调用这个值,也是问题,也没做成功。 |
-- 作者:xunxun0903 -- 发布时间:2020/4/17 17:15:00 -- 好帅啊 |
-- 作者:yangheqing -- 发布时间:2020/4/17 17:17:00 -- 学习一下,多谢分享。 |
-- 作者:venking999 -- 发布时间:2020/4/17 17:24:00 -- 多谢分享,棒棒哒 |
-- 作者:baicaocao -- 发布时间:2020/4/17 17:58:00 -- 获取当前页面的窗口标题. 主界面窗口:窗口类型是主窗口. Dim tab As Object = Forms("主界面窗口").Panel.Parent.Parent
Dim Mtb = tab.SelectedTab.text |