共6 条记录, 每页显示 10 条, 页签: [1]

标题：专业报表中如何将逻辑列值标记为勾或叉？

1楼

yangming 发表于：2011/12/13 23:24:00

请教一下:

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

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

[此贴子已经被作者于2011-12-13 23:47:16编辑过]

2楼

kitty 发表于：2011/12/13 23:55:00

可以啊，我给大致做了个例子，您看一下。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目5.rar

3楼

yangming 发表于：2011/12/14 0:33: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

4楼

kitty 发表于：2011/12/14 0:37:00

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

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

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目5.rar

[此贴子已经被作者于2011-12-14 0:41:55编辑过]

5楼

yangming 发表于：2011/12/14 1:05:00

先谢谢kitty老师:

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

6楼

yangming 发表于：2011/12/14 1:23:00

用你的示例可以了,我也找出我的问题了,等号后面和#号之间有空格,所以代码没起作用,呵,刚才那个逻辑列的也是有空格的问题,呵呵,再次感谢kitty老师

共6 条记录, 每页显示 10 条, 页签: [1]