Office中国论坛/Access中国论坛

标题: 关于treeview中筛选的问题? [打印本页]

作者: laiguiyou 时间: 2007-1-6 00:13
标题: 关于treeview中筛选的问题?
请帮我看一下,错在哪里?[attach]22454[/attach]

作者: laiguiyou 时间: 2007-1-6 01:38
没人知道吗

作者: fan0217 时间: 2007-1-6 04:17
Private Sub Form_Load()
Dim Rec As New ADODB.Recordset
Dim stRecQL As String
Dim Item As Integer
Dim i As Integer
Dim nodIndex As Node

Me.xxzct.Form.AllowAdditions = True
Me.xxzct.Form.AllowDeletions = True
Me.xxzct.Form.AllowEdits = True
Me.xxzct.Locked = False

Rec.Open "usysuser", CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDirect
For i = 0 To Rec.RecordCount - 1
      Set nodIndex = TreeView.Nodes.Add(, , "父" & Rec.Fields("userID"), Rec.Fields("username"), "K1", "K2")
         nodIndex.Tag = Rec.Fields("userID")
         nodIndex.Sorted = True
      Rec.MoveNext
Next
Rec.Close
End Sub

Private Sub Treeview_NodeClick(ByVal Node As Object)
Dim strFilter As String
If Node.Text = "用户权限" Then
strFilter = ""
Else
strFilter = "[用户名]=" & Node.Tag
End If

'对子窗体进行筛选
Me.xxzct.Form.Filter = strFilter
Me.xxzct.Form.FilterOn = True

Me.xxzct.Form.AllowAdditions = True
Me.xxzct.Form.AllowDeletions = True
Me.xxzct.Form.AllowEdits = True
End Sub

作者: laiguiyou 时间: 2007-1-6 16:09
谢谢版主.祝好人一生平安

作者: laiguiyou 时间: 2007-1-6 17:15
还有一个问题,就是在左边点一个用户时,我要在右边新增权限,如果使其用户名为树中选定的用户如图:

作者: laiguiyou 时间: 2007-1-6 17:15
[attach]22471[/attach]

作者: laiguiyou 时间: 2007-1-6 21:32
版主,能帮我看一下吗

作者: wuaza 时间: 2007-1-6 23:20
看不懂。第一个问题解决了吗？

第二个问题我想在node_click事件中写入node.text应该行吧。

你这个系统是自己做的吗？那个“用户表”是不是来自于类模块啊？

作者: laiguiyou 时间: 2007-1-7 00:11
用户表是来源于表

作者: laiguiyou 时间: 2007-1-7 00:18
第一个问题已解决,第二个问题是:如果我要给用户新增权限时,如何使用户名自动为左边树形中选定的用户名.假如我想把A的所有窗体权限复制到B用户中,结果复制到B时,用户名是空的.不知道我的问题说清楚了没有

作者: andymark 时间: 2007-1-7 03:56
在你的例子没看到有你说的第二个问题

[此贴子已经被作者于2007-1-6 19:56:32编辑过]

作者: wuaza 时间: 2007-1-7 04:35
1、在usysuser和权限设置表上分别设置主键。

2、将子窗体的数据源改为由两个表连接而成的查询。[attach]22492[/attach]

作者: laiguiyou 时间: 2007-1-7 05:49
谢谢各位的帮助，第一个问题是解决了。但第二个问题不知怎么处理。假如我想给新用户A添加权限，那么我会把用户B中权限复制到A的权限中，但用户名也成了用户B的。这样要一个一个地更换，有没有更好的方法，自动填充用户A。用户A也就是treeview中选定的用户。

作者: andymark 时间: 2007-1-7 05:55
做一个追加查询或更新查询来实现权限的拷贝

作者: laiguiyou 时间: 2007-1-7 05:56
如何获得树中的当前用户。请指教。

作者: andymark 时间: 2007-1-7 06:02
Node.Text

作者: laiguiyou 时间: 2007-1-7 06:20
谢谢

作者: pyzl 时间: 2008-5-21 11:23
学习中

作者: sysyj1030 时间: 2008-5-23 16:38
ankankan

作者: sysyj1030 时间: 2008-5-23 16:42
hahahahahahah

作者: sllxb1973 时间: 2008-8-12 18:44
关注中！！！

作者: 7777777 时间: 2009-1-21 17:39
dddddddddddd

作者: harryxia 时间: 2009-1-21 22:43
我也来看看呢！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)