以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 零值 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=139880) |
-- 作者:nbsugu_z -- 发布时间:2019/8/24 8:46:00 -- 零值 Dim r As Row = Tables("gcht").current Dim tm As String = ProjectPath & "Attachments\\" & "购销合同样本.doc"\'指定模板文件 Dim fl As String = ProjectPath & "Reports\\" & "购销合同样本.doc" \'指定目标文件 Dim wrt As New WordReport(Tables("gcht"),tm,fl) \'定义一个WordReport wrt.Build() \'逐行生成报表 wrt.Show() \'显示报表 老师,生成的word表中 如何不显示“0” 零值的字段显示为空白 |
-- 作者:有点蓝 -- 发布时间:2019/8/24 8:50:00 -- 在生成报表之前把表格的0值设置为空,如 for each r as row in tables("表A").rows if r("第一列") = 0 then r("第一列") = nothing end if next
|
-- 作者:nbsugu_z -- 发布时间:2019/8/24 9:00:00 -- For Each r As Row In Tables("gcht").rows If r("数量3") = 0 Then r("数量3") = Nothing End If Next Dim r As Row = Tables("gcht").current Dim tm As String = ProjectPath & "Attachments\\" & "购销合同样本.doc"\'指定模板文件 Dim fl As String = ProjectPath & "Reports\\" & "购销合同样本.doc" \'指定目标文件 Dim wrt As New WordReport(Tables("gcht"),tm,fl) \'定义一个WordReport wrt.Build() \'逐行生成报表 wrt.Show() \'显示报表 代码错误(第一行代码好象不对)
[此贴子已经被作者于2019/8/24 9:01:33编辑过]
|
-- 作者:有点蓝 -- 发布时间:2019/8/24 9:13:00 -- 提示什么错误? |