使用目录树的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
If MessageBox.Show("加载所有数据可能会有延迟，是否继续？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.No Then
e.Cancel = True
Return
End If
End If
End If
加好友 
发短信
Post By：2023/1/21 14:26:00 [只看该作者]
