以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]BeforeSaveDataRow的e参数怎么定义  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=132537)

--  作者:智友软件工作室
--  发布时间:2019/3/24 14:09:00
--  [求助]BeforeSaveDataRow的e参数怎么定义
想用传递e参数给函数




Dim e As BeforeSaveDataRow = args(0)
\'If e.DataRow.OriginalValue("工程师") <> e.DataRow("工程师") Then
\'    MessageBox.Show("工程师变化")
\'End If
MessageBox.Show(e.DataRow("工程师"))

Return Nothing


--  作者:智友软件工作室
--  发布时间:2019/3/24 14:32:00
--  
还发现一个问题
If e.DataRow.OriginalValue("工程师") <> e.DataRow("工程师") Then
    MessageBox.Show("工程师变化")
End If

这样写当工程师变化时候无提示



--  作者:有点甜
--  发布时间:2019/3/24 14:39:00
--  

1、不需要顶,直接 dim e = args(0) 即可;

 

2、代码我测试没问题。你保存的时候,肯定会触发对应代码的。


--  作者:智友软件工作室
--  发布时间:2019/3/24 14:42:00
--  
Tables("维修工单").Current.Save()
保存单行不触发BeforeSaveDataRow  事件吗?

--  作者:智友软件工作室
--  发布时间:2019/3/24 14:47:00
--  
BeforeSaveDataRow
Functions.Execute("维修工单模板消息推送",e)

保存
Tables("维修工单").Current.Save()

函数
Dim e = args(0)

MessageBox.Show("工程师变化")


Return Nothing

保存的时候都不弹出message

--  作者:智友软件工作室
--  发布时间:2019/3/24 14:50:00
--  
对不起,我知道了,我的问题