Results 1 to 3 of 3

Thread: Crystal Rpt gurus

  1. #1

    Thread Starter
    Fanatic Member
    Join Date
    Aug 2000
    Posts
    617

    Crystal Rpt gurus

    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

  2. #2
    Addicted Member
    Join Date
    Apr 1999
    Posts
    178
    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.

    Code:
    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.

  3. #3

    Thread Starter
    Fanatic Member
    Join Date
    Aug 2000
    Posts
    617

    How would the formula ...?

    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

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width