还是上面的问题,帮看一段代码:
Dim lineObj As CrystalDecisions.CrystalReports.Engine.LineObject
lineObj = oRpt.ReportDefinition.ReportObjects.Item("Line19")
For intRecordLoop As Integer = 1 To intRecord
If intRecordLoop Mod 17 = 0 Then
lineObj.LineThickness = 40
lineObj.LineColor = Color.Red
Else
lineObj.LineThickness = 20
lineObj.LineColor = Color.Purple
End If
Next
Name是“Line19”是详细section里的一条线,我这样设了后,怎么预览出来的样子都是
lineObj.LineThickness = 20
lineObj.LineColor = Color.Purple
这种样子啊?