Foxtable(狐表)用户栏目专家坐堂 → [求助]校审汇总表的计算公式汇总列值不能同步更新


  共有4678人关注过本帖树形打印复制链接

主题:[求助]校审汇总表的计算公式汇总列值不能同步更新

帅哥哟,离线,有人找我吗?
miaoqingqing
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:660 积分:5180 威望:0 精华:0 注册:2019/7/26 12:54:00
[求助]校审汇总表的计算公式汇总列值不能同步更新  发帖心情 Post By:2022/5/27 16:40:00 [只看该作者]

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


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/27 16:48:00 [只看该作者]

删除要到daterowdeleting事件处理


 回到顶部
帅哥哟,离线,有人找我吗?
miaoqingqing
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:660 积分:5180 威望:0 精华:0 注册:2019/7/26 12:54:00
回复:(有点蓝)删除要到daterowdeleting事件处理[up...  发帖心情 Post By:2022/5/27 17:00:00 [只看该作者]

计算公式列有1行从有值,删掉值后,校审汇总表的计算公式汇总列还是不能自动更新
还要点击重置:校审分项表的计算公式列,校审汇总表的计算公式汇总列才能自动更新——求助不用点击列重置实现,计算公式列有值删掉为空时,计算公式汇总列自动更新

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/27 17:07:00 [只看该作者]

去掉代码里计算公式空值的判断

 回到顶部
帅哥哟,离线,有人找我吗?
miaoqingqing
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:660 积分:5180 威望:0 精华:0 注册:2019/7/26 12:54:00
回复:(有点蓝)去掉代码里计算公式空值的判断  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/27 17:22:00 [只看该作者]

是改datacolchanged啊

 回到顶部