BeforeSelectNode单击连续触发多次提醒 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

使用目录树的BeforeSelectNode事件时，打开窗口第一次单击节点，会触发多次提醒，第二次单击时，就正常的只触发一次，求助；

If e.Sender.Focused = True Then '如果焦点在控件上

Dim a() As String = {"采购合同", "采购返利"}

For i As Byte = 0 To a.Length - 1

If DataTables("采购合同").HasChanges = True Then '如果未保存

MessageBox.Show("请先保存记录！")

e.Cancel = True

Return

End If

If e.Node.Name = "加载所有数据" Then

If MessageBox.Show("加载所有数据可能会有延迟，是否继续？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.No Then

e.Cancel = True

Return

End If

主题：BeforeSelectNode单击连续触发多次提醒