以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]提示窗口为什么会弹出多次  (http://foxtable.net/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