测试不成功，不知什么原因
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()
加好友 
发短信
Post By：2014/8/21 9:40:00 [只看该作者]
