标题: 关于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
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