以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  自动更新  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=74143)
--  作者：kaituozhe
--  发布时间：2015/9/4 7:55:00
--  自动更新

删除一行怎么能够引起其他表自动呢。

 

If e.DataRow.IsNull("计划日期") = False AndAlso e.DataRow.IsNull("部门") = False AndAlso e.DataRow.IsNull("物料编码") = False Then
    Dim s As String = format(e.DataRow("计划日期"), "yyyy年MM月")
    DataTables("计划耗用结存").Datacols("发生年月").RaiseDataColChanged("[物料编码] = \'" & e.DataRow("物料编码") & "\'and [发生年月]=\'" & s & "\'and [部门]=\'" & e.DataRow("部门") & "\'")
End If

 

我在表事件 datarowdeleting中编写了上述代码，但是删除行后并没有在计划耗用结存表中发生变化。
--  作者：大红袍
--  发布时间：2015/9/4 9:25:00
--  

在 datarowdeleting 用变量记录条件 vars("条件") = "[物料编码] = \'" & e.DataRow("物料编码") & "\'and [发生年月]=\'" & s & "\'and [部门]=\'" & e.DataRow("部门") & "\'"

 

在 datarowdeleted 执行 DataTables("计划耗用结存").Datacols("发生年月").RaiseDataColChanged(vars("条件"))