Foxtable(狐表) → 用户栏目 → 专家坐堂 → 有的电脑的计算不生效


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

主题：有的电脑的计算不生效
帅哥哟，离线，有人找我吗？
fubblyc
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00 		有的电脑的计算不生效  发帖心情 Post By：2019/7/18 10:57:00 [只看该作者]

老师，为什么有的电脑的计算不生效呢？
同样的代码有的电脑有，有的电脑没有生效计算
要怎么处理吗~~


图片点击可在新窗口打开查看此主题相关图片如下：微信截图_20190717113551.png
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下：微信截图_20190717114819.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2019/7/18 10:58:12编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/18 11:28:00 [只看该作者]

连接了错误的数据源？

数据没有加载？
 回到顶部
帅哥哟，离线，有人找我吗？
fubblyc
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00 		  发帖心情 Post By：2019/7/18 16:57:00 [只看该作者]

数据源不会，就只有一个数据源。

相同的程序，在不同的电脑的结果。

这个是用 DataColChanged事件写的计算，不存在加载的问题。

就是有的电脑会这样，很奇怪。。。
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/18 17:37:00 [只看该作者]

代码发上来看看

 回到顶部
帅哥哟，离线，有人找我吗？
fubblyc
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00 		  发帖心情 Post By：2019/7/19 8:33:00 [只看该作者]

If e.DataCol.Name = "项目" Then
    If e.NewValue Is Nothing Then
        e.DataRow("上日余额") = Nothing
        
    Else
        Dim dr As DataRow
        dr = DataTables("用友账户表").Find("[科目名称] = '" & e.NewValue & "'")
        If dr IsNot Nothing
            e.DataRow("上日余额") = dr("昨日余额")
        End If
    End If
    
    If e.DataRow("项目") = "银行账户小计" And e.DataRow("类型") = "A00" Then
        e.DataRow("上日余额") = e.DataTable.Compute("sum(上日余额)", "类型 = 'A00' and 区分 = '银行账户'")
    End If
    
    If e.DataRow("项目") = "线上账户小计" And e.DataRow("类型") = "A00" Then
        e.DataRow("上日余额") = e.DataTable.Compute("sum(上日余额)", "类型 = 'A00' and 区分 = '线上账户'")
    End If
    
    
    If e.DataRow("项目") = "银行账户小计" And e.DataRow("类型") = "C00" Then
        e.DataRow("上日余额") = e.DataTable.Compute("sum(上日余额)", "类型 = 'C00' and 区分 = '银行账户'")
    End If
    
    If e.DataRow("项目") = "线上账户小计" And e.DataRow("类型") = "C00" Then
        e.DataRow("上日余额") = e.DataTable.Compute("sum(上日余额)", "类型 = 'C00' and 区分 = '线上账户'")
    End If
    
    
    If e.DataRow("项目") = "A00合计"  Then
        e.DataRow("上日余额") = e.DataTable.Compute("sum(上日余额)", "类型 = 'A00' and (区分 = '银行账户' or 区分 = '线上账户' or 项目 = 'A00库存现金') ")
    End If
    
    
    If e.DataRow("项目") = "C00合计" Then
        e.DataRow("上日余额") = e.DataTable.Compute("sum(上日余额)", "类型 = 'C00' and (区分 = '银行账户' or 区分 = '线上账户' or 项目 = 'C00库存现金') ")
    End If
    
    If e.DataRow("项目") = "总计" Then
        e.DataRow("上日余额") = e.DataTable.Compute("sum(上日余额)", "区分 = '银行账户' or 区分 = '线上账户' or 项目 = 'A00库存现金' or 项目 = 'C00库存现金'  ")
    End If
    
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/19 9:14:00 [只看该作者]

都是使用同一个用户登录测试的吗？

不同用户有没有做数据权限？看看表格数据有没有加载完整，符合这些条件的数据有没有加载？
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04102 秒, 4 次数据查询