零值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

共有1691人关注过本帖树形打印复制链接主题：零值

nbsugu_z

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：一尾狐帖子：408 积分：3642 威望：0 精华：0 注册：2017/4/8 8:59:00

零值

Post By：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” 零值的字段显示为空白

nbsugu_z

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：一尾狐帖子：408 积分：3642 威望：0 精华：0 注册：2017/4/8 8:59:00

Post By：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

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编辑过]

主题：零值