以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]什么事件中触发行状态deleted有效  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=38277)
--  作者：exonjee
--  发布时间：2013/7/24 17:07:00
--  [求助]什么事件中触发行状态deleted有效
如题
--  作者：Bin
--  发布时间：2013/7/24 17:09:00
--  
什么意思 没看懂? 
--  作者：exonjee
--  发布时间：2013/7/24 17:12:00
--  
我想在删除数据保存时记录删除的数据，只记录用rowstate行状态deleted标识的数据
--  作者：Bin
--  发布时间：2013/7/24 17:14:00
--  
保存到哪里去?  在BeforeDeleteDataRow事件中还可以获得删除的行.
--  作者：exonjee
--  发布时间：2013/7/24 17:16:00
--  

我在

BeforeDeleteDataRow

DataRowDeleting

DataRowDeleted

 

三个事件试过都不行，没反应
--  作者：晕了快扶我
--  发布时间：2013/7/24 17:18:00
--  
以下是引用exonjee在2013-7-24 17:12:00的发言：
我想在删除数据保存时记录删除的数据，只记录用rowstate行状态deleted标识的数据

加个标示列，删除的时候不要真删除，然后不加载这些数据就行了

同时可以随时根据标识列来查询这些数据
--  作者：Bin
--  发布时间：2013/7/24 17:20:00
--  
以下是引用exonjee在2013-7-24 17:16:00的发言：

我在

BeforeDeleteDataRow

DataRowDeleting

DataRowDeleted

 

三个事件试过都不行，没反应

不可能没反应的上个例子吧, 另外6楼这个也是个好方案,俗称的软删除.
--  作者：lsy
--  发布时间：2013/7/25 7:54:00
--  

标记删除，而不真正删除，是惯用并且保险的做法，有反悔的机会呀。

如果确实需要物理地删除，又想记录删除数据，以下供参考：

DataRowDeleting

 

Dim nma() As String = {"A1","A2","A3"}  \'源表数据来源列
Dim nmb() As String = {"原值A1","原值A2","原值A3"}  \'记录表数据接收列
Dim nmc() As String = {"新值A1","新值A2","新值A3"}  \'记录表数据接收列
Dim dr As DataRow = DataTables("数据变动记录").AddNew
For i1 As Integer = 0 To nma.Length - 1
    dr(nmb(i1)) = e.DataRow.OriginalValue(nma(i1))
    dr("修改方式") = e.DataRow.RowState
    dr("行号") = e.DataRow("_Identify")
    dr("被修改表") = e.DataTable.Name
    dr("修改者") = User.Name
    dr("修改日期") = Date.Now()
Next
Select Case dr("修改方式")
    Case "Unchanged"
        dr("修改方式") = "删除行"
    Case Else
        Return
End Select
--  作者：狐狸爸爸
--  发布时间：2013/7/25 8:41:00
--  

DataRowDeleting事件执行的时候，表示行即将被删除，其实e.dataRow就是你即将被删除的行，不需要判断状态。

删除状态是无法判断的，帮助有误。
--  作者：exonjee
--  发布时间：2013/7/25 11:08:00
--  

请尽快更正帮助，以免误导用户