以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  父表没有数据时， 如何让引用的值为空呢？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=118901)
--  作者：sunion
--  发布时间：2018/5/13 17:00:00
--  父表没有数据时， 如何让引用的值为空呢？
向大家咨询一个问题，在制作doc报表时，table引用如何实现空值不引用？
比如下面代码,当“统计表20”的“语文_优秀率“列中没有数据时， 如何让rt.Cells(rg+2,3).Text 引用的值为空呢？

Dim doc As New PrintDoc \'定义一个报表
       ....
With Tables("统计表20")
    For rg As Integer = 0 To .Rows.Count - 1  \'遍历关联表每一行

       ....
        rt.Cells(rg+2,2).Text = Format(.rows(rg)("语文_平均分"),"0.0")
        rt.Cells(rg+2,3).Text = Format(.rows(rg)("语文_优秀率"), "0.0%")
        rt.Cells(rg+2,4).Text = Format(.rows(rg)("语文_及格率"), "0.0%")

       ...
--  作者：有点甜
--  发布时间：2018/5/13 17:19:00
--  
rt.Cells(rg+2,3).Text = iif(.rows(rg)("语文_优秀率") = nothing, nothing, Format(.rows(rg)("语文_优秀率"), "0.0%"))