- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- Textbox指定用户输入 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=160868)
-- 发布时间：2021/2/24 14:01:00
-- Textbox指定用户输入
textbox是否能指定用户，或者用户组输入
表格中PrepareEdit已经设置了 用户权限输入
If e.Row("维修完成") = True
e.Cancel = True
Return
End If
Select Case e.Col.Name
Case "维修编号","收到时间","报修人","设备名称","设备编码","设备类型","用户故障描述","实际测试故障","设备照片"
If User.Name <> "A"
e.Cancel = True
End If
Case "维修时间","维修过程","维修照片"
If User.Name <> "b"
e.Cancel = True
End If
Case "维修完成","测试报告照片","验收时间"
If User.Name <> "c"
e.Cancel = True
End If
End Select
e.Cancel = True
Return
End If
Select Case e.Col.Name
Case "维修编号","收到时间","报修人","设备名称","设备编码","设备类型","用户故障描述","实际测试故障","设备照片"
If User.Name <> "A"
e.Cancel = True
End If
Case "维修时间","维修过程","维修照片"
If User.Name <> "b"
e.Cancel = True
End If
Case "维修完成","测试报告照片","验收时间"
If User.Name <> "c"
e.Cancel = True
End If
End Select
然后设计了窗口，下面的textbox 绑定表格，但是 别的用户也能输入
此主题相关图片如下：1.png
如何让在面板中 也能判断用户来进行输入。指定用户只能输入更改内容。审核完成后 不能修改
[此贴子已经被作者于2021/2/24 14:03:13编辑过]
-- 发布时间：2021/2/24 14:09:00
--
参考：http://www.foxtable.com/webhelp/topics/2342.htm
-- 发布时间：2021/2/24 14:23:00
--
以下内容为程序代码:
1 If User.Name = "张三" Then
2 ctl.ReadOnly = BooleanEnum.False \'允许编辑
3 Else
4 ctl.ReadOnly = BooleanEnum.True \'禁止编辑
5 End If
1 If User.Name = "张三" Then
2 ctl.ReadOnly = BooleanEnum.False \'允许编辑
3 Else
4 ctl.ReadOnly = BooleanEnum.True \'禁止编辑
5 End If
提示错误
此主题相关图片如下：2.jpg
-- 发布时间：2021/2/24 14:27:00
--
好像加上
Dim ctl As WinForm.Control = e.Sender
这一句好了。解决了
-- 发布时间：2021/2/24 14:30:00
--
PictureViewer1
这个能设置指定用户输入编辑吗？
-- 发布时间：2021/2/24 14:37:00
--
http://www.foxtable.com/webhelp/topics/2286.htm