以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]校审汇总表的计算公式汇总列值不能同步更新  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=177594)

--  作者:miaoqingqing
--  发布时间:2022/5/27 16:40:00
--  [求助]校审汇总表的计算公式汇总列值不能同步更新
校审分项表的计算公式列,值删掉为空时,校审汇总表的计算公式汇总列值不能同步更新
求助,校审分项表的计算公式列,值删掉为空时,校审汇总表的计算公式汇总列值能同步更新
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:校审汇总表的计算公式汇总列值不能同步更新.foxdb


--  作者:有点蓝
--  发布时间:2022/5/27 16:48:00
--  
删除要到daterowdeleting事件处理


--  作者:miaoqingqing
--  发布时间:2022/5/27 17:00:00
--  回复:(有点蓝)删除要到daterowdeleting事件处理[up...
计算公式列有1行从有值,删掉值后,校审汇总表的计算公式汇总列还是不能自动更新
还要点击重置:校审分项表的计算公式列,校审汇总表的计算公式汇总列才能自动更新——求助不用点击列重置实现,计算公式列有值删掉为空时,计算公式汇总列自动更新

--  作者:有点蓝
--  发布时间:2022/5/27 17:07:00
--  
去掉代码里计算公式空值的判断
--  作者:miaoqingqing
--  发布时间:2022/5/27 17:18:00
--  回复:(有点蓝)去掉代码里计算公式空值的判断
蓝主,关闭了还是不行。帮忙测试看看了
Dim xh As String = e.DataRow("图号序号")
 e.DataRow("图号序号") = Nothing
Dim dr As DataRow = DataTables("校审汇总").Find("图号序号 = \'" & xh & "\'")
 If dr IsNot Nothing Then
    \'If dr("计算公式").Isnull = False Then
    Dim s As String
    \'Dim s As List(Of DataRow)
    For Each drf As DataRow In e.DataTable.Select("图号序号 =  \'" & xh & "\'", "计算公式")
        s = s & "+" & drf("计算公式")
    Next
    dr("计算公式汇总") = s.Trim("+")
 End If

--  作者:有点蓝
--  发布时间:2022/5/27 17:22:00
--  
是改datacolchanged啊