If e.Col.DroppedDown Then '如果下拉窗口已经打开
Dim trv As WinForm.TreeView = Forms("附着物补偿标准").Controls("TreeView1")
If e.Text > "" Then '如果内容为空
For Each nd As WinForm.TreeNode In trv.AllNodes
If nd.Text.IndexOf(e.Text) >= 0 Then
trv.StopRedraw()
trv.SelectedNode = nd
nd.EnsureVisible()
trv.ResumeRedraw()
Exit For
End If
Next
End If
End If