| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]清空行或单元格数据后不能自动更新 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=192434) |
| -- 作者：jxb127705 -- 发布时间：2024/6/22 19:38:00 -- [求助]清空行或单元格数据后不能自动更新 开票回款统计表 If e.DataCol.Name = "项目编号" Then Dim Filter As String = "[项目编号] = \'" & e.DataRow("项目编号") & "\'" e.DataRow("累计开票") = DataTables("项目开票信息表").Compute("Sum(含税金额)", filter) End If 项目开票信息表 Select Case e.DataCol.Name Case "含税金额", "项目名称" Dim pr As DataRow pr = DataTables("开票回款统计表").Find("项目编号 = \'" & e.DataRow("项目编号") & "\'") If pr IsNot Nothing Then DataTables("开票回款统计表").DataCols("项目编号").RaiseDataColChanged(pr) End If End Select 如果清空项目开票信息表的项目名称单元格内容，或者整行清除内容，统计表中的数累计开票数据无变化。请教该如何写代码 |
| -- 作者：有点蓝 -- 发布时间：2024/6/23 20:19:00 -- 整个代码和项目名称有啥关系？ 项目开piao信息表 Select Case e.DataCol.Name Case "含税金额" Dim pr As DataRow pr = DataTables("开piao回款统计表").Find("项目编号 = \'" & e.DataRow("项目编号") & "\'") If pr IsNot Nothing Then DataTables("开piao回款统计表").DataCols("项目编号").RaiseDataColChanged(pr) End If Case "项目编号" Dim pr As DataRow pr = DataTables("开piao回款统计表").Find("项目编号 = \'" & e.oldvalue & "\'") If pr IsNot Nothing Then DataTables("开piao回款统计表").DataCols("项目编号").RaiseDataColChanged(pr) End If pr = DataTables("开piao回款统计表").Find("项目编号 = \'" & e.newvalue & "\'") If pr IsNot Nothing Then DataTables("开piao回款统计表").DataCols("项目编号").RaiseDataColChanged(pr) End If End Select |
| -- 作者：jxb127705 -- 发布时间：2024/6/24 8:18:00 -- 感谢老师！可以了 |