以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  父表没有数据时, 如何让引用的值为空呢?  (http://foxtable.com/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%"))