以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  word日期格式问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=56851)
--  作者：gslxgl
--  发布时间：2014/9/13 17:12:00
--  word日期格式问题

<Format([工程开工时间],”yyyy年MM月dd日”)>

出现：Format(2014-07-25,”yyyy年MM月dd日”)

而不是2014年7月25日
--  作者：狐狸爸爸
--  发布时间：2014/9/13 20:03:00
--  

参考：

http://www.foxtable.com/help/topics/2885.htm

 
--  作者：cxabc123
--  发布时间：2014/9/20 21:05:00
--  
当日期列的值为空时出现“0.00”该如何解决
--  作者：cxabc123
--  发布时间：2014/9/20 21:30:00
--  
word报表中，当日期列的值为空时，报表中的值出现0.00,该如何解决
--  作者：有点甜
--  发布时间：2014/9/21 9:17:00
--  
以下是引用cxabc123在2014-9-20 21:30:00的发言：
word报表中，当日期列的值为空时，报表中的值出现0.00,该如何解决

 

加一个判断

 

<iif([工程开工时间] Is null, "", Format([工程开工时间],"yyyy年MM月dd日"))>
--  作者：cxabc123
--  发布时间：2014/9/22 21:31:00
--  
不行啊
--  作者：有点甜
--  发布时间：2014/9/22 21:36:00
--  

 那你试试这样

 

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

 

 再看看 <Format([工程开工时间],"yyyy")> 的值是多少
--  作者：cxabc123
--  发布时间：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编辑过]
--  作者：有点甜
--  发布时间：2014/9/24 9:08:00
--  
 你做个例子发上，肯定有变通办法。