- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 绘制问题,累计数问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=129978)
-- 发布时间：2019/1/10 9:10:00
-- 绘制问题,累计数问题
甜老师,还是昨天利润表的问题,麻烦您在帮我看下
此主题相关图片如下：利润表本年累计问题.png
第二个问题:凭证 里面的借贷方不平绘制提示,明明差额都显示为0,可还是有异常提示,我手动一个个数字输入进去还是这样,但是同样的数据复制放在帮助的票据打印教程的凭证打印里面又是正常的,
-- 发布时间：2019/1/10 9:51:00
--
1、分别计算，如
http://www.foxtable.com/webhelp/scr/0681.htm
2、
Dim c = round2(e.Row("借方金额") - e.Row("贷方金额"), 2)
If c <> 0 Then
e.Style = "借贷不平"
End If
-- 发布时间：2019/1/10 10:17:00
-- 回复：（有点甜）1、分别计算，如 http://ww...
我的理解应该是错的,结果还是不对,在麻烦您帮我看下,谢谢!
tb(0,3) = dt.Compute("sum(贷方金额)","一级码 = \'5101\'and 年份 = \'"& d.Year & "\'and 月份 = \'"& d.Month & "\'and 月份 < \'"& d.Month & "\' ") \'营业收入
-- 发布时间：2019/1/10 10:27:00
-- 回复：（lfz123）回复：（有点甜）1、分别计算，如&nb...
非常感恩您不厌其烦的给我力量,虽然我脑子在逻辑关系上有的时候转不了弯,但我坚信只要我一点点啃下去,在我临近退休的年龄还能在奋斗一把!
[此贴子已经被作者于2019/1/10 10:30:13编辑过]
-- 发布时间：2019/1/10 10:31:00
--
以下是引用lfz123在2019/1/10 10:17:00的发言：
我的理解应该是错的,结果还是不对,在麻烦您帮我看下,谢谢!
我的理解应该是错的,结果还是不对,在麻烦您帮我看下,谢谢!
tb(0,3) = dt.Compute("sum(贷方金额)","一级码 = \'5101\'and 年份 = \'"& d.Year & "\'and 月份 = \'"& d.Month & "\'and 月份 < \'"& d.Month & "\' ") \'营业收入
1、月份列改成整数列，不要用字符列；
2、执行测试代码
Dim d As Date = "2018年2月"
Dim by = DataTables("凭证明细").Compute("sum(贷方金额)","一级码 = \'5101\'and 年份 = \'"& d.Year & "\'and 月份 = \'"& d.Month & "\'") \'营业收入
msgbox(by)
Dim lj = DataTables("凭证明细").Compute("sum(贷方金额)","一级码 = \'5101\'and 年份 = \'"& d.Year & "\'and 月份 <= \'"& d.Month & "\'") \'营业收入
msgbox(lj)
-- 发布时间：2019/1/10 10:35:00
-- 回复：（有点甜）以下是引用lfz123在2019/1/10 10:17:...
刚才我发了,怎么没看到,不好意思,我在发一遍,
我把平证明细里面的月份的字符型改成整数型 原来的代码是可以执行出正确结果的
tb(0,3) = dt.Compute("sum(贷方金额)","一级码 = \'5101\'and 年份 = \'"& d.Year & "\'and 月份 <= \'"& d.Month & "\' ") \'营业收入
-- 发布时间：2019/1/10 10:36:00
-- 回复：（有点甜）以下是引用lfz123在2019/1/10 10:17:...
好的,好的,这个又给了一个解决问题思路