主题：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

    Next

    

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

            e.Cancel = True

            Return

        End If 

    End If

End If