Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共7 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:如何在AfterEdit事件中,判断用户是否修改了数据?

1楼
蓝色理想 发表于:2018/11/7 13:57:00
Foxtable 的Table中,用户双击进入 某一单元格,当他离开这一单元格时,我想判断一下他是否对当前单元格做了修改
若做了修改,我会把 对应的 "申报日期" 修改为当前日期
若没做修改,没必要 修改 "申报日期"

请问如何实现?
2楼
蓝色理想 发表于:2018/11/7 14:01:00
找到一种方法
MessageBox.Show( "原始数据:" & e.Row.DataRow.OriginalValue(e.Col.Name) & "当前数据:" & e.Row(e.Col.Name) )

不知有没有其他更好的
3楼
有点甜 发表于:2018/11/7 14:43:00

1、为什么不直接在datacolchanged处理?

 

2、你可以在startEdit记录旧值,然后afterEdit比较旧值即可。

4楼
蓝色理想 发表于:2018/11/7 18:40:00
回复甜版,因为我需要 在离开单元格后,立刻 把 申报日期 修正为最新日期


5楼
有点甜 发表于:2018/11/7 21:18:00

datacolchanged事件

 

If e.datacol.name = "第一列" Then

    e.datarow("申报日期") = Date.Today

End If

6楼
chinaabs 发表于:2023/12/18 9:55:00
有一个单价列,这个单价列会有其它代码更新或者手动更新,现在想手动更新后,将计价方式设置为0(手动指定),如果手动修改后数据没变,则不用更改计价方式列。
设置了一个unitprice 全局变量。

startedit事件
'记录开始修改时的单价用于afteredit的比较
If e.Col.Name = "单价" Then
     unitprice = e.Row("单价")
     e.Row.Save
    
End If

afteredit事件

'手动修改价格时候价格改为指定
MessageBox.Show(unitprice)
If e.Col.Name = "单价" AndAlso math.Round(e.Row("单价"), 6) <> math.Round(unitprice, 6) Then

        e.Row("计价方式") = 0
End If

测试发现 unitprice = e.Row("单价") 这一列赋值是后台的保存数据,并非前台显示的数据,后面加了 e.Row.Save也无效
如果现在单价是5,保存。通过代码将单价改为6,然后手动修改为6,unitprice得到的值仍然是5,因此还会更改计价方式。
有没有办法让unitprice  = 当前显示的单价?
7楼
有点蓝 发表于:2023/12/18 10:09:00
通过代码将单价改为6的地方后面加上给unitprice也赋值为6的代码
共7 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02734 s, 2 queries.