以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]请教一个主窗口的问题：主窗口绑定一张表，在对该表进行了修改后，切换或关闭主窗口时，提示保存信息，该怎么实现  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=30928)
--  作者：zhuying0718
--  发布时间：2013/4/7 10:07:00
--  [求助]请教一个主窗口的问题：主窗口绑定一张表，在对该表进行了修改后，切换或关闭主窗口时，提示保存信息，该怎么实现
请教一个主窗口的问题：主窗口绑定一张表，在对该表进行了修改后，切换或关闭主窗口时，提示保存信息，该怎么实现
--  作者：夕然
--  发布时间：2013/4/7 10:29:00
--  

如果你的窗口表绑定的是主表的话，可以按照下面的方式做

Dim Result As DialogResult

With Tables("表")
    If .Current.DataRow.RowState = DataRowState.Unchanged Then \'如果当前行未曾修改
    e.Form.Close
    Return
Else
   
    Result = MessageBox.Show("该记录没有保存,是否放弃?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.no Then
        Return
       
    End If
   
    .Current.Reject()
    \'MessageBox.Show("已经撤销修改!:) " )  \'& .Position & "|" & .Rows.Count )
--  作者：Bin
--  发布时间：2013/4/7 10:30:00
--  
楼上正解
[此贴子已经被作者于2013-4-7 10:33:29编辑过]
--  作者：夕然
--  发布时间：2013/4/7 10:38:00
--  
以下是引用Bin在2013-4-7 10:30:00的发言：
楼上正解
[此贴子已经被作者于2013-4-7 10:33:29编辑过]

您是高手