Foxtable(狐表)用户栏目专家坐堂 → [求助]word报表-子表金额中文大写代码


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

主题:[求助]word报表-子表金额中文大写代码

帅哥哟,离线,有人找我吗?
湛江智
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:812 积分:6676 威望:0 精华:0 注册:2014/11/26 12:32:00
[求助]word报表-子表金额中文大写代码  发帖心情 Post By:2017/9/14 20:28:00 [只看该作者]

<Cumoney(*[%Sum(小計)]*)>  这个代码不能实现转大写金额,求助

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:word报表-子表金额中文大写代码.rar


图片点击可在新窗口打开查看此主题相关图片如下:word报表子表汇总,大寫人民幣代码求助.png
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/14 20:33:00 [只看该作者]

word没有统计一说,请用代码直接给word赋值

 

http://www.foxtable.com/webhelp/scr/2890.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
湛江智
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:812 积分:6676 威望:0 精华:0 注册:2014/11/26 12:32:00
  发帖心情 Post By:2017/9/14 20:37:00 [只看该作者]

 [%室内设计合同分项子表,Sum(小計)] 这个已经统计出阿拉伯数字了,想把这个数字转换成 壹亿贰仟叁佰肆拾伍万陆仟柒佰捌拾玖圆

上面帮助没看懂,代码写在哪里?


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/14 20:45:00 [只看该作者]

直接写

 

<CUMoney([%室内设计合同分项子表,Sum(小計)])>


 回到顶部
帅哥哟,离线,有人找我吗?
湛江智
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:812 积分:6676 威望:0 精华:0 注册:2014/11/26 12:32:00
  发帖心情 Post By:2017/9/15 7:35:00 [只看该作者]

前辈,上面代码可以了,谢谢
还有一个问题请教,报表空白行怎么设置不显示或删除呢?
[此贴子已经被作者于2017/9/15 7:36:00编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/15 8:37:00 [只看该作者]

以下是引用湛江智在2017/9/15 7:35:00的发言:
前辈,上面代码可以了,谢谢
还有一个问题请教,报表空白行怎么设置不显示或删除呢?
[此贴子已经被作者于2017/9/15 7:36:00编辑过]

 

这个做不到。word报表就是单独一条数据套打的,列表形式报表尽量用Excel来做。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/15 8:49:00 [只看该作者]

或者,你在生成word报表之后,重新打开报表,删除空白表格

 

Dim app As New MSWord.Application
try
    Dim fileName = "d:\test.doc"
    Dim doc = app.Documents.Open(fileName)
    Dim t = doc.Tables(1)
    Dim m As Long, n As Long
    m = t.Rows.Count
    For i As Integer = m To 1 Step -1
        If t.cell(i, 1).Range.Text.ToString.length = 2 Then
            t.cell(i, 1).range.rows.delete
        End If
    Next
    app.visible = True
   
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally
    'app.Quit
End try


 回到顶部