Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]excel模板合并单元格问题


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

主题：[求助]excel模板合并单元格问题
帅哥哟，离线，有人找我吗？
hrw68529
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1141 积分：8829 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2020/3/2 12:46:00 [只看该作者]

合并后的数据怎么汇总

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


加好友 发短信
等级：超级版主 帖子：107301 积分：545766 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/2 13:34:00 [只看该作者]

需要使用代码处理，使用报表事件，类似：http://www.foxtable.com/webhelp/topics/1959.htm

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


加好友 发短信
等级：五尾狐 帖子：1141 积分：8829 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2020/3/3 8:41:00 [只看该作者]

合并后的单元格为文本格式，无法计算，怎么写在合并单元格后，将合并单元格由文本格式变成数字格式
如图：
图片点击可在新窗口打开查看此主题相关图片如下：22222.png
图片点击可在新窗口打开查看
代码：Select Case e.Book.TempLate
    Case "物资采购核对表"
        Dim Sum1, Sum2 As Double
        For Each dr As DataRow In e.GroupRows
            If dr("合计") = True
                Sum1 = Sum1 + dr("合计")
            Else
                Sum2 = Sum2 + dr("差额")
            End If
        Next
        e.Book.Marks("合计") = Sum1
        e.Book.Marks("差额") = Sum2
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

代码计算的是foxtable表格的数据，而不是execl的数据，和execl单元格是什么类型没有关系

 回到顶部
总数 14 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03125 秒, 4 次数据查询