以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]外部用户管理  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=55666)
--  作者：jygyyl
--  发布时间：2014/8/21 9:40:00
--  [求助]外部用户管理
Public _UserName As String
Public _UserGroup As String

请教老师，外部用户管理中用户名（Name)和分组（Group）可以采用全局代码来引用，用户表中还有用户所在单位（Dept)和单位代码（Place)如何定义全局代码来引用！

能否这样：
Public _UserDept As String
Public _UserPlace As String
--  作者：有点甜
--  发布时间：2014/8/21 9:42:00
--  
 呃，肯定可以。
--  作者：jygyyl
--  发布时间：2014/8/21 9:44:00
--  回复：（有点甜） 呃，肯定可以。
谢谢甜大师！我有问题总能得到您的热心帮助。真心谢谢您！
--  作者：jygyyl
--  发布时间：2014/8/21 14:54:00
--  回复：（有点甜） 呃，肯定可以。
测试不成功，不知什么原因

1、增加行DataRowAdded中写入如下代码，只有“Name”当前用户名，其他两列没有变化
e.DataRow("Name") = _UserName
e.DataRow("HGB402") = _UserDept
e.DataRow("GB402") = _UserPlace

2、加载树的NodeMouseDoubleClick中写入如下代码，权限设置不管用

Dim Value()As String
Dim Filter As String
Value = e.Node.FullPath.Split("\\")
Select Case e.Node.Level
    Case 0
        Filter ="HGB402 = \'" & Value(0) & "\'"
    Case 1
        Filter ="HGB402 = \'" & Value(0) & "\' And Year(GB311) = " & Value(1)
    Case 2
        Filter ="HGB402 = \'" & Value(0) & "\' And Year(GB311) = " & Value(1) & " And Month(GB311) = " & Value(2)
End Select
If User.Type <> UserTypeEnum.Administrator AndAlso User.Type <> UserTypeEnum.Developer Then
    Filter= "(" & Filter & ") and HGB402 = \'" & _UserDept & "\'"
End If
DataTables("CSsmdj").LoadFilter = Filter
DataTables("CSsmdj").Load()
--  作者：有点甜
--  发布时间：2014/8/21 14:57:00
--  

1、登陆的时候，你要个_UserDept和_UserPlace赋值；

 

2、红色的if判断代码，去掉。