Foxtable(狐表)用户栏目专家坐堂 → 发布后自动更新 全局代码增加用户分组属性 解决方法。。。


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

主题:发布后自动更新 全局代码增加用户分组属性 解决方法。。。

帅哥哟,离线,有人找我吗?
fubblyc
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2355 积分:16187 威望:0 精华:0 注册:2013/9/1 8:09:00
发布后自动更新 全局代码增加用户分组属性 解决方法。。。  发帖心情 Post By:2017/4/18 20:44:00 [只看该作者]

Public _UserGroup2 As String '用户分组2

 

如上,全局代码增加了另一个用户分组,客户做文件版本升级后,需要重新打开全局才会生效,也就是才有_UserGroup2,那用户登录就会报错。

如下:

If e.Form.Controls("TextBox1").Value = dr("Password") Then
    _UserName = UserName
    _UserGroup = dr("Group")
    _UserGroup2 = dr("财务运营表组别")

    e.Form.Close

Else
    Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

报错如下:找不到字段:“UserCode._UserGroup2”。

 

那我在项目事件的

BeforeShowErrorMessage

在Foxtable捕获错误并即将显示错误信息前执行。

写如下代码:

    If e.Message1.Contains("找不到字段")  Then
        e.Cancel = True
Syscmd.Project.Open(ProjectFile) '自动重启,有重新打开一个登录窗口,但是没有关掉原来的,只是增加了一个登录窗口,覆盖住前面的。同时全局代码没有生效。只好用下面的方法提示用户收到重启。有没有什么办法可以解决吗?
     '   MessageBox.Show("请点取消关闭软件,再次双击桌面上的图标打开即可 !","提示", MessageBoxButtons.ok, MessageBoxIcon.Information)
    Else
        e.Cancel = True
        MessageBox.Show("请再试一遍 , 不行的话联系李奕灿:13564783903 !","提示", MessageBoxButtons.ok, MessageBoxIcon.Information)
    End If   

 

我有参考过

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=64301&replyID=&skin=1

的代码,但是他同样是写在全局代码,没有重启后全局代码没有生效,对于之前安装的客户端无效。。。。。


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/4/19 8:45:00 [只看该作者]

 你试试用重启代码

 

Application.Restart()

 


 回到顶部
帅哥哟,离线,有人找我吗?
fubblyc
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2355 积分:16187 威望:0 精华:0 注册:2013/9/1 8:09:00
  发帖心情 Post By:2017/4/19 17:25:00 [只看该作者]

好,谢谢!!


 回到顶部