关于treeview中筛选的问题?

laiguiyou

请帮我看一下,错在哪里?

laiguiyou

没人知道吗

fan0217

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

谢谢版主.祝好人一生平安

laiguiyou

还有一个问题,就是在左边点一个用户时,我要在右边新增权限,如果使其用户名为树中选定的用户如图:

laiguiyou

laiguiyou

版主,能帮我看一下吗

wuaza

看不懂。第一个问题解决了吗？

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

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

laiguiyou

用户表是来源于表

laiguiyou

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