以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  BeforeSelectNode单击连续触发多次提醒  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=184958)

--  作者:流水
--  发布时间:2023/1/21 14:26:00
--  BeforeSelectNode单击连续触发多次提醒
使用目录树的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

--  作者:有点蓝
--  发布时间:2023/1/25 21:35:00
--  
我测试没有这种情况,请上传实例说明
--  作者:流水
--  发布时间:2023/2/3 22:07:00
--  
一直没学会怎么上传实例图片点击可在新窗口打开查看,我用其他方法解决了,谢谢
--  作者:有点蓝
--  发布时间:2023/2/4 8:59:00
--  
就是把您做的额项目文件上传到这里:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78