- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 根据用户名显示企业名称 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101195)
-- 发布时间：2017/5/26 15:11:00
-- 根据用户名显示企业名称
在窗口中用Label根据用户名显示企业名称，该怎么设置
-- 发布时间：2017/5/26 16:00:00
--
Dim lbl As WinForm.Label
lbl = e.Form.Controls("Label1")
lbl.Text = "登录部门:" & _UserGroup & " 用户姓名:" & _UserXingMing & " 用户职务:" & _UserPost & ""
此主题相关图片如下：2.png
[此贴子已经被作者于2017/5/26 16:01:41编辑过]
-- 发布时间：2017/5/26 16:34:00
--
能不能具体一点呢，企业一般用户
-- 发布时间：2017/5/26 16:40:00
--
以下是引用鲁吉在2017/5/26 16:34:00的发言：
能不能具体一点呢，企业一般用户
能不能具体一点呢，企业一般用户
先定义当前用户，当前企业，在窗口里面加一个Label1控件，在窗口的After里面写代码
Dim lbl As WinForm.Label
lbl = e.Form.Controls("Label1")
lbl.Text = "登录企业:" & _UserGroup & " 登录用户:" & _Username & ""
-- 发布时间：2017/5/26 16:54:00
--
我的用户表是这样的：name type longname
甲公司 2 XXXX有限公司
我想设计用户在以“甲公司”这个用户名登录时，用窗口中的label显示：XXXX有限公司
[此贴子已经被作者于2017/5/26 16:55:51编辑过]
-- 发布时间：2017/5/26 16:58:00
--
你这样不能用系统的用户管理，要自定义用户管理，登陆要判断用户和企业都对应，要不就用Find，用一个表管理用户，找到用户，显示对应的公司。
-- 发布时间：2017/5/26 17:52:00
--
If User.Name = "甲公司" Then
Dim n As WinForm.Label
n = e.Form.Controls("label54")
n.text = Tables("企业用户").Current("longname")
End If
通过 以上代码实现了显示，怎么把显示 的字符串填入指定表的指定列？
-- 发布时间：2017/5/26 18:14:00
--
反过来咯：
Tables("指定表").Current("指定列") = n.text
-- 发布时间：2017/5/27 14:46:00
--
还是不行啊，切换用户后显示名称不能相应变化，或不显示
还有，怎么让不同用户只能看到自己的数据行？
[此贴子已经被作者于2017/5/27 14:48:59编辑过]
-- 发布时间：2017/5/27 15:51:00
--
截图说明怎么不行？