Dim trv As WinForm.TreeView = e.Sender
Dim flt As String
Dim r As Row = Tables("表A").Current
For Each nd As WinForm.TreeNode In e.node.Nodes
nd.Checked = False
Next
If e.node.ParentNode IsNot Nothing Then
e.node.ParentNode.Checked = False
End If
For Each nd As WinForm.TreeNode In trv.AllNodes
If nd.Checked Then
If nd.Level = 1 Then
flt = flt & nd.ParentNode.text & ":" & nd.Text & vbcrlf
End If
End If
Next
r("范围") = flt
[此贴子已经被作者于2018/6/22 11:40:41编辑过]