Treeview复选框如何复选

gzw　发表于：2010-10-19 09:00:53 　

请问ACCESS Treeview复选框复选选中多个如何实现在窗体文本框或组合框中显示，同时并保存到数据表当中，有这方面的实例吗，谢谢了

gzw 发表于：2010-10-21 13:58:22

Private Sub TreeView_Click()
Dim i As Integer

For i = 1 To TreeView.Nodes.Count
If TreeView.Nodes(i).Checked = True Then List20.Enabled = True: List20 = [名称]: Exit Sub
Next
List20.Enabled = False
List20 = ""
End Sub

这里怎么只能选择第一个，不复选不显示这点对，但没有循环。请高手指教循环与多项选择，谢了。

Top

gzw 发表于：2010-10-21 14:17:52

刚才发现list20是文本框，只能显示一个，打勾后点击节点可以其它项（名称），如果是表格的显示还没有试，哈哈

Top

gzw 发表于：2010-10-30 19:14:01

怎么没有回答啊?下面这段代码可以选中复选框,但还要点击节点才显示数据,在这里如果不点击复选(就是在复选框中不打勾)既是点击了节点数据还是不能显示.请高手改改代码.谢了

Private Sub TreeView_NodeCheck(ByVal Node As Object)
Dim i As Integer
i = 1
If Node.Checked Then
Node.Child.Checked = True

Me.Form.FilterOn = True

Do Until i = Node.Children - 1
Node.Child.Next.Checked = True
i = i + 1

If i = TreeView.Nodes.Count Then: Exit Sub

Loop
Else
End If
End Sub

Top

gzw 发表于：2010-10-30 22:36:41

用下面的代码还好点:

Dim cnode As Node

   If Node.Bold = False Then
       Me.Form.Filter = False
       Set cnode = Node
   End If

   If Not cnode Is Nothing Then
       cnode.checked = True
       Set cnode = Nothing
   End If

Top

gzw 发表于：2010-10-31 07:51:37

终于实现了treeview复选功能，与大家共享。

在有TREEVIEW结构窗体上放一文本框，建一新表，把新表建成子窗体，在鼠标事件中写入以下代码，这样就可以在子窗体中看到复选结果了。

Dim rs As New ADODB.Recordset
Dim strsql As String
strsql = "select * from 表1"
rs.Open strsql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic '打开记录集

            If IsNull(Me.List20.Value) = False Then
                rs.AddNew
                rs("条款名称") = Me.List20.Value

                rs.Update
                Me.子窗体.Requery
                Me.List20.Value = Null

            End If

rs.Close
End If

Top

gzw 发表于：2010-10-31 20:04:32

用treeview来作节间与节内的多选项查询生成新的数据表确实是一个好途径，感觉比其它方法的查询更灵活、更直观，大家可以去试试。

Top

gzw 发表于：2010-11-01 00:10:10