请教一下:

现在有一个逻辑列,打印出专业报表后,原来的勾选,就变成了:True 和 False,如何将此标记改成勾或叉呢,也就是继承原表中的格式呢?我本想采用替换的做法,但是提示说不是字符型,无法做到.

同时还发现一个日期列的问题,在专业报表中,日期列如果为空的话,其实还是会有显示,只不过显示的是:0:00:00,比如,我有一张表中有两列,一列是已付款列,是逻辑列,一列是付款截止日期,是日期型,如果已付款打勾了,那么付款截止日期列就为空,但是在专业报表中均没有达到继承原表中的格式,如何能达到呢?

我刚才就是这样写的啊,怎么总是报错呢?怪事了

For r As Integer = 0 To tb.Rows.Count -1 \'开始填入该列内容
        If tb.Cols(ColNames(c)).IsBoolean Then
            If tb.Rows(r)(ColNames(c))=True
                rt.Cells(r + 1, c).Text = "已付款"
            Else rt.Cells(r + 1, c).Text = ""
            End If
        Else           
            rt.Cells(r + 1, c).Text = tb.Rows(r)(ColNames(c))
        End If
    Next

可能是你逻辑关系没有理顺吧，IF,ELSE太多了吧。

很奇怪，判断日期为空用Is Nothing竟然判断不了，最后用日期型的初始值#1/1/1 0:00:00#，进行判断，可以了。

这个我把是日期列的问题也做了一下。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目5.rar

先谢谢kitty老师:

我和你一样对日期列做了,用IsNull 和 #1/1/1 0:00:00#,我发现都不行,不报错,但是没改啊,我看看你的