求教：用户切换登记后，怎么新增事件？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

系统默认黄小国同志是登录状态

此主题相关图片如下：12.jpg

当进行了用户切换后以李孝春账户登录

此主题相关图片如下：34.jpg

状态栏采用了计划事件，

代码为：

StatusBar.Message1 = "欢迎【" & User.Name & "】登录系统! 现在时间是【 " & Date.Now & "】"

当前登录用户：[]这个是标签事件，当窗体加载后进行显示当前登录用户名。

代码为：

Dim 变量名 As WinForm.Label = e.Form.Controls("Label55")

变量名.Text = "当前登录用户:【" & User.Name & "】"

求解：要求两处显示的名字同步更新。

当用户名字进行切换后，运行目录树刷新代码，实现权限的更新同步对应！

目录树刷新代码为：

Dim tr As WinForm.TreeView = Forms("考勤与来访登记").Controls("TreeView1")

tr.BuildTree("系统目录树", "系统分类|子系统|子节点|次节点", "用户名 like '*" & user.name & "*'","_Sortkey")

[此贴子已经被作者于2014-6-9 0:27:56编辑过]

有点甜老师我不是想更换显示的代码我是想当用户切换后就刷新一次目录树因为每个用户的目录树显示不一样嘛求教啦

老朱是我呵呵弄个小项目来使用使用

BIN老师实例附上求解哦先谢谢啦

目录树效果

此主题相关图片如下：00000000.jpg

实例：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:目录树权限.zip

用户切换后即时执行

Dim tr As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")

tr.BuildTree("表b", "系统分类|子系统|子节点", "用户名 like '*" & user.name & "*'","_Sortkey")

[此贴子已经被作者于2014-6-9 15:23:35编辑过]

感谢有点甜老师按照你的思路完美实现切换后的效果谢谢

.NET Framework 版本：2.0.50727.6413

Foxtable 版本：2014.3.8.1

错误所在事件：项目,LoadUserSetting

详细错误信息：

未将对象引用设置到对象的实例。

有点甜老师，利用你的方法加载后，重新打开项目就会进行上面的错误提示，求解哦

谢谢 OK了感谢有点甜老师

主题：求教：用户切换登记后，怎么新增事件？