以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何实现修改完当前行后必须保存才能对其它行进行操作?请帮忙看看代码是否有问题!已上传文件,请再帮忙看看!(已解决)  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=15360)

--  作者:amanda123
--  发布时间:2011/12/22 10:45:00
--  [求助]如何实现修改完当前行后必须保存才能对其它行进行操作?请帮忙看看代码是否有问题!已上传文件,请再帮忙看看!(已解决)
在表事件PositionChanged添加了如下语句,是希望每修改完一行中的数据后,在光标离开当前行再点击其它行时能自动提示用户是否保存在该行中所做的改动。目前的问题是:修改完当前行后,点击其它的行没有出现提示,必须是点击其它行后再返回点击该行才会弹出提示框,请问问题出在哪里? With Tables("结算方式窗口_table1") If .Current.DataRow.RowState = DataRowState.Unchanged Then \'如果当前行未曾修改 Else Dim Result As DialogResult Result = MessageBox.Show("是否保存当前行的修改?", "提示", MessageBoxButtons.YesNo) If Result = DialogResult.Yes Then Tables("结算方式窗口_table1").Current.Save() Else Tables("结算方式窗口_table1").Current.Reject() End If End If End With
[此贴子已经被作者于2011-12-22 16:52:45编辑过]

--  作者:czy
--  发布时间:2011/12/22 12:10:00
--  
放到AfterEdit中试试。
--  作者:czy
--  发布时间:2011/12/22 12:18:00
--  

楼主还是传个文件吧,窗口中的table不知绑没绑定表,别人也不好分析了。


--  作者:amanda123
--  发布时间:2011/12/22 13:31:00
--  
你好,将其放在afteredit中是每编辑完一个单元格后均提示保存,太繁锁了,我上传了项目文件,麻烦再帮我看看!
--  作者:amanda123
--  发布时间:2011/12/22 13:32:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:northwind20111213.rar


--  作者:狐狸爸爸
--  发布时间:2011/12/22 14:11:00
--  

看看这里的示例二:

 

http://www.foxtable.com/help/topics/0645.htm

 


--  作者:amanda123
--  发布时间:2011/12/22 14:30:00
--  
我在AfterSelChange中添加了下面的代码,结果是没有做任何操作,只是要光标一动,就老是弹出保存的消息窗口,请帮忙看看代码错在哪里? If e.OldRange.RowSel <> e.NewRange.RowSel \'如果选择的是不同的行 If e.OldRange.RowSel >= 0 AndAlso e.OldRange.Rowsel < e.Table.Rows.Count Then \'而且原来选择的是一个有效的数据行 Dim Result As DialogResult MessageBox.show("当前行已修改末保存,请保存或撤销修改!") Result = MessageBox.Show("是否保存当前行的修改?", "提示", MessageBoxButtons.YesNo) If Result = DialogResult.Yes Then Dim r As Row = e.Table.Rows(e.OldRange.Rowsel) \'获得原来选择的行 r.Save() \'保存之 Else Tables("结算方式窗口_table1").Current.Reject() End If End If End If
--  作者:狐狸爸爸
--  发布时间:2011/12/22 14:44:00
--  

1、删除你原来的AfterEdit事件代码.

2、AfterSelChange事件代码设置为:

 

If e.OldRange.RowSel <> e.NewRange.RowSel \'如果选择的是不同的行
    If e.OldRange.RowSel >= 0 AndAlso e.OldRange.Rowsel < e.Table.Rows.Count Then \'而且原来选择的是一个有效的数据行
        Dim r As DataRow = e.Table.Rows(e.OldRange.Rowsel).DataRow \'获得原来选择的行
        If r.RowState = DataRowState.Modified OrElse r.RowState = DataRowState.Added Then
            If  MessageBox.Show("当前行已经修改,是否保存?", "提示", MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
                r.Save() \'保存之
            End If
        End If
    End If
End If

 

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


--  作者:amanda123
--  发布时间:2011/12/22 16:51:00
--  
问题解决了,非常感谢!
--  作者:lihe60
--  发布时间:2011/12/23 8:06:00
--  
以下是引用狐狸爸爸在2011-12-22 14:44:00的发言:

1、删除你原来的AfterEdit事件代码.

2、AfterSelChange事件代码设置为:

 

If e.OldRange.RowSel <> e.NewRange.RowSel \'如果选择的是不同的行
    If e.OldRange.RowSel >= 0 AndAlso e.OldRange.Rowsel < e.Table.Rows.Count Then \'而且原来选择的是一个有效的数据行
        Dim r As DataRow = e.Table.Rows(e.OldRange.Rowsel).DataRow \'获得原来选择的行
        If r.RowState = DataRowState.Modified OrElse r.RowState = DataRowState.Added Then
            If  MessageBox.Show("当前行已经修改,是否保存?", "提示", MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
                r.Save() \'保存之
            End If
        End If
    End If
End If

 

 

 

 下载信息  [文件大小:868.0 KB  下载次数:9]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table

若不保存则禁止换行,如何写代码?