Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于word报表模板分组显示问题


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

主题：关于word报表模板分组显示问题
帅哥哟，离线，有人找我吗？
有点蓝
 小大  111楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

dr("本期发生额_借方") = DataTables("表B").conpute("sum(本期发生额＿借方)","年份='" & v(0) & "' And 月份='" & v(1) & "' and 科目代码='" & v(2) & "'")

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


加好友 发短信
等级：三尾狐 帖子：701 积分：5004 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/6/21 10:37:00 [只看该作者]

Dim drs As List(Of DataRow) = DataTables("年月累计").Select("", "月份") '月份格式为：202301
For i As Integer = 0 To drs.count - 1
    Dim dr As DataRow = drs(i)
    Dim y As Integer = dr("月份").substring(0, 4) '提取前4位数    
    If i = 0 Then '如果是第一行        
        dr("本年累计") = dr("本月合计")
    Else
        Dim last As Date = drs(i - 1)("月份")
        Dim y1 As Integer = last.substring(0, 4) 
        If y1 = y Then '如果和上一行同年
            dr("本年累计") = dr("本月合计") + drs(i - 1)("本年累计")
        Else
            dr("本年累计") = dr("本月合计")
        End If
    End If
Next
老师，提示SubString不是Date成员，怎么修改
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  113楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Dim last As string= drs(i - 1)("月份")

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


加好友 发短信
等级：三尾狐 帖子：701 积分：5004 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/6/21 11:01:00 [只看该作者]

老师，出现运行错误，索引和长度必须引用该字符串内的位置，参数名Length

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


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

月份列没有数据，判断一下再用

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


加好友 发短信
等级：三尾狐 帖子：701 积分：5004 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/6/21 11:40:00 [只看该作者]

Dim pdr As DataRow = Nothing
For Each dr As DataRow In DataTables("年月累计").Select("", "品名,年度,月份,_Identify") '月份格式为202301
    If pdr Is Nothing OrElse dr("品名") <> pdr("品名") OrElse dr("年度") <> pdr("年度") Then
        dr("本年累计") = dr("本月合计")
    Else
        dr("本年累计") = pdr("本年累计") + dr("本月合计")
    End If
    pdr = dr
Next
这样就可以了
 回到顶部
总数 116 1.. 上一页 3 4 5 6 7 8 9 10 11 12
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 4 次数据查询