以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=68043)

--  作者:yangweicheng
--  发布时间:2015/5/8 13:55:00
--  [求助]
 目录树授权 与系统目录下的授权是完全相同的授权,在一个窗口上 一个按钮  事件:
If Functions.Execute("ShouQuan","集团公司业务") Then
   Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
   tab.SelectedIndex = 0
Else
    MessageBox.Show("你无权限请与管理员联系!")
End If

有授权的用户使用正常,没有授权的有错误提示,

--  作者:Bin
--  发布时间:2015/5/8 13:57:00
--  
把例子文件发上来看看.
--  作者:yangweicheng
--  发布时间:2015/5/8 14:23:00
--  
sc
--  作者:yangweicheng
--  发布时间:2015/5/8 14:30:00
--  
我有上传,能看到吗?
--  作者:Bin
--  发布时间:2015/5/8 14:31:00
--  
上传文件参考 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78