Foxtable(狐表) → 用户栏目 → 专家坐堂 → 初始数的科目汇总


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

主题：初始数的科目汇总
帅哥哟，离线，有人找我吗？
有点蓝
 小大  31楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

最后一行：Tables("初始数据_Table2").rows(Tables("初始数据_Table2").Rows.count - 1)
最后一行余额值：Tables("初始数据_Table2").rows(Tables("初始数据_Table2").Rows.count - 1)("初始余额")
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  32楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

以下是引用采菊东篱下在2021/5/21 18:20:00的发言：
群就算了，我加ＱＱ、微信都全不说话的，手机也禁陌生人信息，基本不跟人多言。

直接在群里发言，不用怕被人笑话。其它用户觉得有意义就会参与讨论。至于加私人ＱＱ、微信，大家都有工作，没有那个人喜欢给人免费做指导。

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


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

以下是引用采菊东篱下在2021/5/22 0:45:00的发言：

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

这个是代码执行出现了死循环。
1、放的事件不对，估计又是随便找个事件写代码导致的
2、代码互相触发导致死循环
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  34楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/5/22 10:25:00 [只看该作者]

红色标注代码是不是有问题
Tables("初始数据_Table2").Fill("Select * Fro m {负债}",False)
Tables("初始数据_Table2").AllowEdit = True
With DataTables("初始数据_Table2")
    If .Find("科目代码 = '负债总计'") Is Nothing Then
        Dim rt2 As DataRow = .AddNew()
        rt2("科目代码") = "负债总计"
        rt2("初始余额") = .Compute("Sum(初始余额)", "len(科目代码) = 4")
    End If
    .DataCols("初始数量").SetFormat("#,###.##")
    .DataCols("初始余额").SetFormat("#,###.##")
End With
With Tables("初始数据_Table2")
    .SetColVisibleWidth("科目代码|110|科目名称|130|借或贷|50|初始数量|70|初始余额|70")
    .Grid.AllowMerging = C1.Win.C1FlexGrid.AllowMergingEnum.Custom
    Dim rng2 As C1.Win.C1FlexGrid.CellRange = .Grid.GetCellRange(.Rows.count, 1, .Rows.count, 2)
    .Grid.MergedRanges.Add(rng2)
End With
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  35楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106601 积分：542176 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/5/22 10:45:00 [只看该作者]

语法上没有问题。
统计字符数等于4的余额。注意【1001】是4个字符，【资产合计】这种也是4个字符
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  36楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/5/22 14:31:00 [只看该作者]

弹窗提示的报错就是我上面问你的红色标注代码的问题，你点醒了我，不能包括资产合计本身，是它造成了循环，修改代码后没报错了，可现在的问题是Tables("初始数据_Table4")中的损益总计、负债和所有者权益(或股东权益)总计都统计不出数据，我从昨晚弄到现在还是不行，一个头两个大图片点击可在新窗口打开查看。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:初始数据052202.foxdb


[此贴子已经被作者于2021/5/22 14:32:29编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  37楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106601 积分：542176 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/5/22 15:41:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:初始数据052202.zip
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  38楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/5/22 17:05:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:初始数052203.foxdb

你的表闪退了，我根据你的思路修改了一下，Tables("初始数据_Table4")中的损益总计已经可以计算了，负债和所有者权益(或股东权益)总计只计算Tables("初始数据_Table4")的数字，Tables("初始数据_Table2")、Tables("初始数据_Table3")的数据都没有计算进去。
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  39楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

我只处理前面2个表的总计。其它表自己参考做。如果要合计4个表的数据，使用compute分别统计4个表再加到一起即可。或者直接+4个表的最后一行数据

 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  40楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/5/22 17:18:00 [只看该作者]

已经加了，不行。 
rt5("初始余额") = DataTables("初始数据_Table2").Compute("Sum(初始余额)","[科目代码] <> '负债总计' and len(科目代码) = 4") + DataTables("初始数据_Table3").Compute("Sum(初始余额)","[科目代码] <> '所有者权益总计' and len(科目代码) = 4") + .Compute("Sum(初始余额)","[科目代码] not in ('损益总计','负债和所有者权益(或股东权益)总计') and len(科目代码) = 4")
 回到顶部
总数 60 上一页 1 2 3 4 5 6 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 7 次数据查询