根据用户名显示企业名称 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 根据用户名显示企业名称

共有2929人关注过本帖树形打印复制链接主题：根据用户名显示企业名称

cd_tdh

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：狐精帖子：3205 积分：21305 威望：0 精华：0 注册：2016/3/28 16:57:00

Post By：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编辑过]

cd_tdh

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：狐精帖子：3205 积分：21305 威望：0 精华：0 注册：2016/3/28 16:57:00

Post By：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 & ""

cd_tdh

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：狐精帖子：3205 积分：21305 威望：0 精华：0 注册：2016/3/28 16:57:00

Post By：2017/5/26 16:58:00 [显示全部帖子]

你这样不能用系统的用户管理，要自定义用户管理，登陆要判断用户和企业都对应，要不就用Find，用一个表管理用户，找到用户，显示对应的公司。

cd_tdh

小大 4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：狐精帖子：3205 积分：21305 威望：0 精华：0 注册：2016/3/28 16:57:00

Post By：2017/5/27 16:03:00 [显示全部帖子]

切换用户后重新执行一遍代码

主题：根据用户名显示企业名称