| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 删除后结果不更新 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=110176) |
| -- 作者：2900819580 -- 发布时间：2017/11/28 14:14:00 -- Select Case e.DataCol.Name Case "加工工序","毛坯编码" Dim Filter3 As String = "毛坯编码 = \'" & e.DataRow("毛坯编码") & "\' and 加工工序 = \'" & e.DataRow("加工工序") & "\'" e.DataRow("完成数量") = DataTables("工序跟踪表").Compute("Sum(完成数量)", Filter3) e.DataRow.save End Select |
| -- 作者：有点甜 -- 发布时间：2017/11/28 14:21:00 -- DataRowDeleted事件
DataTables("表名").DataCols("列名").RaiseDataColChanged(vars("filter"))
|
| -- 作者：有点甜 -- 发布时间：2017/11/28 15:09:00 -- 工序跟踪表 的datarowdeleting、datarowdeleted事件。 |
| -- 作者：有点甜 -- 发布时间：2017/11/30 9:36:00 -- vars("filter") = "毛坯编码 = \'" & e.DataRow("毛坯编码") & "\' and 加工工序 = \'" & e.DataRow("加工工序") & "\'" |
| -- 作者：有点甜 -- 发布时间：2017/11/30 10:08:00 -- 不用改。 |
| -- 作者：有点甜 -- 发布时间：2017/11/30 10:15:00 -- DataRowDeleting事件
vars("filter") = "毛坯编码 = \'" & e.DataRow("毛坯编码") & "\' and 加工工序 = \'" & e.DataRow("加工工序") & "\'"
DataRowDeleted事件
DataTables("表名").DataCols("列名").RaiseDataColChanged(vars("filter")) |