Foxtable(狐表)用户栏目专家坐堂 → word日期格式问题


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

主题:word日期格式问题

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


加好友 发短信
等级:幼狐 帖子:183 积分:1559 威望:0 精华:0 注册:2014/5/31 8:53:00
word日期格式问题  发帖心情 Post By:2014/9/13 17:12:00 [只看该作者]

<Format([工程开工时间],”yyyyMMdd”)>

出现:Format(2014-07-25,yyyyMMdd日”)

而不是2014年7月25日


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


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2014/9/13 20:03:00 [只看该作者]


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


加好友 发短信
等级:四尾狐 帖子:810 积分:5250 威望:0 精华:0 注册:2009/2/6 10:38:00
  发帖心情 Post By:2014/9/20 21:05:00 [只看该作者]

当日期列的值为空时出现“0.00”该如何解决

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


加好友 发短信
等级:四尾狐 帖子:810 积分:5250 威望:0 精华:0 注册:2009/2/6 10:38:00
  发帖心情 Post By:2014/9/20 21:30:00 [只看该作者]

word报表中,当日期列的值为空时,报表中的值出现0.00,该如何解决

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


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

以下是引用cxabc123在2014-9-20 21:30:00的发言:
word报表中,当日期列的值为空时,报表中的值出现0.00,该如何解决

 

加一个判断

 

<iif([工程开工时间] Is null, "", Format([工程开工时间],"yyyy年MM月dd日"))>


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


加好友 发短信
等级:四尾狐 帖子:810 积分:5250 威望:0 精华:0 注册:2009/2/6 10:38:00
  发帖心情 Post By:2014/9/22 21:31:00 [只看该作者]

不行啊

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


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

 那你试试这样

 

<iif(Format([工程开工时间],"yyyy") = "0000", "", Format([工程开工时间],"yyyy年MM月dd日"))>

 

 再看看 <Format([工程开工时间],"yyyy")> 的值是多少


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


加好友 发短信
等级:四尾狐 帖子:810 积分:5250 威望:0 精华:0 注册:2009/2/6 10:38:00
  发帖心情 Post By:2014/9/24 8:30:00 [只看该作者]

Replace对模板的修改是全局的。
我们也可以用ReplaceOne修改模板,和Repalce不同,RepalceOne仅对下一条记录生效,需要和BuildOne配合使用,例如:

Dim tm As String  = ProjectPath & "Attachments\订单.doc" '指定模板文件
Dim
fl As String = ProjectPath & "Reports\订单.doc" '指定目标文件
Dim
wrt As New WordReport(Tables("订单"),tm,fl) '定义一个WordReport
Dim
sum As Integer
For Each
r As Row In Tables("订单").rows '逐行生成报表
   
sum = sum + r("数量") '逐行累计
   
wrt.ReplaceOne("[合计]",sum)
   
wrt.BuildOne(r)
Next

wrt
.Show() '显示报表


这是我找到的解决办法,用帮助中的例子,wrt.ReplaceOne("[合计]",sum)使用这种办法就可以解决了, wrt.ReplaceOne("0.00","")唯一的 缺点就是又要用到代码了

[此贴子已经被作者于2014-9-24 8:31:43编辑过]

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


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

 你做个例子发上,肯定有变通办法。

 回到顶部