以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]提示窗口为什么会弹出多次  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186424)
--  作者：KkZzxxx
--  发布时间：2023/4/28 10:29:00
--  [求助]提示窗口为什么会弹出多次
点否为什么会弹出2回？

Select Case e.DataCol.Name
    Case "供应商名称"
        \'选择no后，恢复
        Dim Result As DialogResult
        Result = MessageBox.Show("是否把" & e.OldValue & "修改为" & e.NewValue & "？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Result = DialogResult.NO Then
            With Tables("供应商信息表")
                If .Current IsNot Nothing Then
                    .Current.Reject()
                End If
            End With
        Else If Result = DialogResult.YES Then
            With Tables("供应商信息表")
                If .Current IsNot Nothing Then
                    .Current.Save()
                End If
            End With
            
        End If
End Select
--  作者：有点蓝
--  发布时间：2023/4/28 10:34:00
--  
代码放到datacolchanging事件

Select Case e.DataCol.Name
    Case "供应商名称"
        \'选择no后，恢复
        Dim Result As DialogResult
        Result = MessageBox.Show("是否把" & e.OldValue & "修改为" & e.NewValue & "？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Result = DialogResult.NO Then
            e.cancel=true
        Else 
    e.datarow.save
        End If
End Select