Foxtable(狐表) → 用户栏目 → 专家坐堂 → 文本框窗口问题


  共有53人关注过本帖树形打印复制链接

主题：文本框窗口问题
帅哥哟，离线，有人找我吗？
lgz518
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1410 积分：9711 威望：0 精华：0 注册：2019/6/13 9:57:00 		文本框窗口问题  发帖心情 Post By：2025/4/18 8:48:00 [只看该作者]

实例中存在下面的问题，如何解决？
需求：
1-如果当前登录用户是经办人，只能编辑窗口1上经办人意见文本框，其他方文本框均不可编辑；
2-如果当前登录用户是直接上级，只能编辑窗口1上直接上级意见文本框，其他方文本框均不可编辑；
3-如果当前登录用户是间接上级，只能编辑窗口1上间接上级意见文本框，其他方文本框均不可编辑；
窗口上现有代码无法实现，如何改？

2.需求;窗口2上表双击打开窗口1后，停靠在窗口2前面
现有代码执行，窗口2上表双击打开窗口1后，停靠在窗口2后面，不符合需求，
如何改才能达到需求？
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:文本框窗口问题.zip
 回到顶部
帅哥哟，离线，有人找我吗？
cd_tdh
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3231 积分：21465 威望：0 精华：0 注册：2016/3/28 16:57:00 		  发帖心情 Post By：2025/4/18 9:01:00 [只看该作者]

你这个逻辑好乱，同一个人有多个职务，你就没法去判定改用第1个还是第3个，至少要区分是针对那个表的审核流程用1，那个表的审核流程用3，再说每个表审批流程都可能都不一样，最好是每个表自定义审批流程来实现。
参照我之前的帖子看看
[此贴子已经被作者于2025/4/18 9:09:32编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113477 积分：577874 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2025/4/18 9:23:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:自定义用户管理之二 - 副本.zip
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1410 积分：9711 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2025/4/18 9:47:00 [只看该作者]

老师，未升级，打开不实例，请贴代码，谢谢

 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1410 积分：9711 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2025/4/18 10:42:00 [只看该作者]

老师，未升级，打开不实例，请贴代码，谢谢

 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1410 积分：9711 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2025/4/18 11:30:00 [只看该作者]

改哪里的代码？

 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113477 积分：577874 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2025/4/18 11:45:00 [只看该作者]

窗口2_Table1_DoubleClick
e.Cancel = True
Forms("窗口1").Show()

窗口1_Enter
Dim r As Table = Tables("表F")
Dim c1 As Row = Tables("表F").Current
Dim ct3 As WinForm.Control = e.Sender
Select Case ct3.BindingField
    Case "表F.直接意见"
        If c1("直接上级") = _UserName Then
            ct3.ReadOnly = BooleanEnum.False '允许编辑
        Else
            ct3.ReadOnly = BooleanEnum.True '禁止编辑
        End If
    Case "表F.间接意见"
        If c1("间接上级") = _UserName Then
            ct3.ReadOnly = BooleanEnum.False '允许编辑
        Else
            ct3.ReadOnly = BooleanEnum.True '禁止编辑
        End If
    Case "表F.经办意见"
        If c1("经办人") = _UserName Then
            ct3.ReadOnly = BooleanEnum.False '允许编辑
        Else
            ct3.ReadOnly = BooleanEnum.True '禁止编辑
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1410 积分：9711 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2025/4/18 12:39:00 [只看该作者]

用SQLTables，或ADO模式，下面执行失效，如何改？

窗口1_Enter
Dim r As Table = Tables("窗口_Table1")
Dim c1 As Row = Tables("窗口_Table1").Current
Dim ct3 As WinForm.Control = e.Sender
Select Case ct3.BindingField
    Case "窗口_Table1.直接意见"
        If c1("直接上级") = _UserName Then
            ct3.ReadOnly = BooleanEnum.False '允许编辑
        Else
            ct3.ReadOnly = BooleanEnum.True '禁止编辑
        End If


窗口1_Enter
Dim r As Table = Tables("窗口_Table1")
Dim c1 As Row = Tables("窗口_Table1").Current
Dim ct3 As WinForm.Control = e.Sender
Select Case ct3.BindingField
    Case "r.直接意见"
        If c1("直接上级") = _UserName Then
            ct3.ReadOnly = BooleanEnum.False '允许编辑
        Else
            ct3.ReadOnly = BooleanEnum.True '禁止编辑
        End If
 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113477 积分：577874 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2025/4/18 13:32:00 [只看该作者]

Dim ct3 As WinForm.Control = e.Sender
msgbox(ct3.BindingField)显示什么内容？
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1410 积分：9711 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2025/4/18 14:17:00 [只看该作者]

跟1楼实例弹窗提示一样，弹窗提示显示空白，如何改达到需求？

 回到顶部
总数 15 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 6 次数据查询