以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]清空行或单元格数据后不能自动更新  (http://foxtable.net/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
--  
感谢老师!可以了