如何在Crystal Report明细节中通过编程为控件绘制线条？

问题1：对应Access的Detail_Print的事件选择 #

你之前使用Load事件是错误的，Load事件仅在报表整体初始化时触发1次，无法逐行处理明细数据。Crystal Report中与Access Detail_Print 事件功能完全匹配的是明细区段的Format事件，该事件会在每一行明细数据绑定完成、正式渲染前逐行触发，刚好满足你逐行计算高度、绘制边框的需求。

问题2：明细节控件引用方式 #

Crystal Report中引用明细节内的控件有两种方式：

• 全路径引用：Report.Sections("你的明细节名称").ReportObjects("你的控件名称")，例如引用Remarks控件：Report.Sections("Detail1").ReportObjects("Remarks")
• 区段事件内简化引用：如果是在明细节自身的Format事件中编写代码，可以直接用 Section.ReportObjects("你的控件名称") 引用当前区段的控件，不需要写完整报表路径。

问题3：获取控件的高度和宽度 #

Crystal Report的所有控件（ReportObject对象）都内置Height、Width、Left、Top四个属性，单位为缇（和Access默认单位一致，无需额外转换），如果控件开启了「可以增长（Can Grow）」属性，运行时读取的Height会自动更新为控件内容渲染后的实际高度，直接读取即可。

完整实现步骤 #

1. 打开Crystal Report设计视图，右键点击明细节，选择「格式化节」，切换到「事件」标签，找到Format事件，点击公式按钮进入脚本编辑器，选择Basic语法。
2. 粘贴以下代码，替换对应的明细节名称、控件名称即可使用：

Private Sub DetailSection1_Format(ByVal pFormattingInfo As Object)
    Dim MaxHt As Integer
    Dim ctl As ReportObject
    ' 初始化高度为三个目标控件高度之和
    MaxHt = Report.Sections("Detail1").ReportObjects("Remarks").Height + _
            Report.Sections("Detail1").ReportObjects("RemUpdate").Height + _
            Report.Sections("Detail1").ReportObjects("Client").Height
    ' 遍历当前明细行所有控件，取最大高度
    For Each ctl In Section.ReportObjects
        If ctl.Height > MaxHt Then
            MaxHt = ctl.Height
        End If
    Next
    ' 为每个控件绘制等高边框
    For Each ctl In Section.ReportObjects
        ' 参数依次为：边框颜色、线宽、左边界、上边界、右边界、下边界
        Section.DrawBorder RGB(0,0,0), 1, ctl.Left, ctl.Top, ctl.Left + ctl.Width, ctl.Top + MaxHt
    Next
End Sub

注意事项 #

• 代码中的Detail1需要替换为你自己明细节的实际名称，可在「节专家」中查看对应名称
• 控件名称需要和你在Crystal Report中为字段控件设置的名称完全匹配
• 确保三个目标字段的「可以增长」属性已开启，才能正确读取内容撑开后的实际高度

内容的提问来源于stack exchange，提问作者Meho2016