ActiveReports 的显示问题

登录

错误显示：

正确显示应该是：

请教一下这个[?]为啥会显示成框框

ZenosZeng · ZenosZeng

我注意到蓝框中的【.】显示正常，不知这两个点有什么却别吗，能否将你的报表发给我调试一下，以确定是特殊字符显示的问题或者是其它原因

Noel · Noel

你这两个是不同的字体吧，同一个字符在不同的字体中的显示可能是不一样的。
这个字符看上去是一个非常用的字符或用户自定义的字符，通常的字体中可能未定义这个字符，会使用其特定的字形来表示，比如框，或者点。
以上是猜测，仅供参考。

ZenosZeng · ZenosZeng

回复 3楼Noel的帖子

Noel

看来你的确有很丰富的报表开发经验

lian411624 · lian411624

哦，这个问题已经解决了，确实是两个点在数据库中不一样导致的。
再请教个问题，如何让一张帐票在没有数据时，repeattofill为true，有数据时repeattofill为false，怎样能知道detail中有无数据

ZenosZeng · ZenosZeng

报表有一个NoData事件，不知是不是你想要的结果。

如果报表Detail没有数据就是一个空报表，不显示Detail中的任何信息。

lian411624 · lian411624

通过NoData事件是解决了上面这个问题，可是又引出了另外一个问题，如下图所示，我在帐票中第一列设的底线是只有在第15行和一组group的最后一行才显示，可是从下图来看，现在都是空白的情况下第一组group出现14条数据，所以出现了两条线，还有个问题就是在2页就只显示了表头，这个问题实在是调不好了，麻烦大哥给看看，正确的情况就只应该显示一页。

帐票模板如下：

还请收到后将模板删除，谢谢

ZenosZeng · ZenosZeng

我调整了GroupFooter1和PageFooter1的高度，并设置以下属性
GroupFooter1.CanShrink = true
PageFooter1.CanShrink = true

得到这样的效果，你看是否你需要的

lian411624 · lian411624

大哥，这样的话，行数成14行了，我们这边要求是15行，另外，能不能将我那个模板给屏蔽掉，谢谢。

ZenosZeng · ZenosZeng

在你7楼Demo的基础上设置 ReportFooter1.Height = 0，并将以下代码覆盖报表的去全部后台代码：

Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class f105整合性チェックリスト
Dim RowNo As Integer = 1
Dim NoDataRowNo As Integer = -1
Private Sub Detail1_Format(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Detail1.Format
If ((RowNo Mod 15) = 0) Then
TextBox1.Border.BottomColor = Color.Black
TextBox1.Border.BottomStyle = GrapeCity.ActiveReports.BorderLineStyle.Solid
Else
TextBox1.Border.BottomStyle = GrapeCity.ActiveReports.BorderLineStyle.None
End If
RowNo = RowNo + 1
If NoDataRowNo > -1 Then
For Each item As GrapeCity.ActiveReports.SectionReportModel.ARControl In Me.Detail1.Controls
If TypeOf item Is GrapeCity.ActiveReports.SectionReportModel.TextBox Then
TryCast(item, GrapeCity.ActiveReports.SectionReportModel.TextBox).Value = ""
End If
Next
End If
End Sub
Private Sub f105整合性チェックリスト_FetchData(sender As Object, eArgs As GrapeCity.ActiveReports.SectionReport.FetchEventArgs) Handles Me.FetchData
If NoDataRowNo = -1 AndAlso eArgs.EOF = True Then
NoDataRowNo = 0
eArgs.EOF = False
End If
If NoDataRowNo > -1 Then
If NoDataRowNo < 15 Then
NoDataRowNo = NoDataRowNo + 1
eArgs.EOF = False
Else
eArgs.EOF = True
End If
End If
End Sub
End Class

复制代码

		自动登录	找回密码
密码			立即注册

[已处理] ActiveReports 的显示问题

本帖子中包含更多资源

10 个回复

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

活字格认证

圣诞拼拼乐

微信认证勋章

讲师达人

元老葡萄

悬赏达人