Crystal Rpt gurus

[Lafor]

I have a field in a report that I am supressing if there is no data
for that field...

It seems ok...

Is there a way to adjust the report so that the space left for that field on the report is used by whatever follows instead of having a big gap in its place?

Thanks in advance for responding

[Ken Bradford]

You need to include a summary of your question in the subject line. If you had, I would have responed sooner.

If you are using the report viewer, you can. It requires a lot of code.

In this example, the report contains three lines, each with a literal and it's corresponding database field. You will need to change each item default name in the veiwer.

If you want to display the first record, you pass 'true' to blnDisplay1, and so on.


Public Sub showExpandedView(blnDisplay1 As Boolean, blnDisplay2 As Boolean, blnDisplay3 As Boolean)

Dim intTop As Integer

Dim crxExpandedView As New crExpandedView

Set crxExpandedView = New crExpandedView
'Change report tables locations.
For Each crxDB In crxExpandedView.Database.Tables
crxDB.Location = strSearchResultDataBase
' crxDB.SetSessionInfo "", Chr(10) & strPassWord
Next crxDB

With crxExpandedView
.lblDisplay1.Suppress = Not blnDisplay1
.litDisplay1.Suppress = Not blnDisplay1
.lblDisplay2.Suppress = Not blnDisplay2
.litDisplay2.Suppress = Not blnDisplay2
.lblDisplay3.Suppress = Not blnDisplay3
.litDisplay3.Suppress = Not blnDisplay3

intTop = 50

If blnDisplay1 Then
.lblDisplay1.Top = intTop
.litDisplay1.Top = intTop - 10
intTop = intTop + 200
End If

If blnDisplay2 Then
.lblDisplay2.Top = intTop
.litDisplay2.Top = intTop - 10
intTop = intTop + 200
End If

If blnDisplay3 Then
.lblDisplay3.Top = intTop
.litDisplay3.Top = intTop - 10
intTop = intTop + 200
End If
End With

CRViewer1.ReportSource = crxExpandedView

End Sub

Hope this helps.

[Lafor]

Thanks

How would the formula be expressed in Crystal...?

I would to print data for the last 90 days...
There is a date field


{AdhOrgActivity.OrgID} = {?Pm-AdhOrganizations.OrgID} and
{AdhOrgActivity.OrgActivityDate} in DateTime(0, 0, 0, 00, 00, 00) to DateTime (0, 0, 0, 00, 00, 00)???

Thanks in advance