- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]校审汇总表的计算公式汇总列值不能同步更新 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=177594)
-- 发布时间：2022/5/27 16:40:00
-- [求助]校审汇总表的计算公式汇总列值不能同步更新
校审分项表的计算公式列，值删掉为空时，校审汇总表的计算公式汇总列值不能同步更新
求助，校审分项表的计算公式列，值删掉为空时，校审汇总表的计算公式汇总列值能同步更新
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:校审汇总表的计算公式汇总列值不能同步更新.foxdb |
-- 发布时间：2022/5/27 16:48:00
--
删除要到daterowdeleting事件处理
-- 发布时间：2022/5/27 17:00:00
-- 回复：（有点蓝）删除要到daterowdeleting事件处理[up...
计算公式列有1行从有值，删掉值后，校审汇总表的计算公式汇总列还是不能自动更新
还要点击重置：校审分项表的计算公式列，校审汇总表的计算公式汇总列才能自动更新——求助不用点击列重置实现，计算公式列有值删掉为空时，计算公式汇总列自动更新
-- 发布时间：2022/5/27 17:07:00
--
去掉代码里计算公式空值的判断
-- 发布时间：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啊