my crystal report don't show more than 80 records '' ??

peace be with you

my crystal report don't show more that 80 record in the sheet ??

why that ....


my data is 200 record


ho to solve this

Quote:

---

Originally Posted by xray

peace be with you

my crystal report don't show more that 80 record in the sheet ??

why that ....


my data is 200 record


ho to solve this

---

i dont know anything about CR but for those who do will need to see your code before they can help you solve your problem.

the code ::

Code:

---

Dim report_app As New CRAXDDRT.Application
Dim report As New CRAXDDRT.report
Dim rep_path As String

Private Function common_report()
    rep_path = App.Path & "\" & report_kind
    'MsgBox rep_path
    'MsgBox report_for
    Set report = report_app.OpenReport(rep_path)
    'report.Database.Tables(1).Location = App.Path & "\cranet.dat"
    report.Database.Tables(1).Location = "\\192.168.0.61\db\cranet.dat"
    With report.Database.Tables(1).ConnectionProperties
        .Add "password", "2041981asamir"
    End With
End Function

Private Sub Command1_Click()
    Dim date_now As String
    '
    date_now = Date
    date_now = Format(date_now, "yyyy/mm/dd")
    '
   
    'Dim rep_path As String
    '=========================================================
    Select Case report_kind
          Case "spchr.rpt"
            'rep_path = App.Path & "\" & report_kind
            'MsgBox rep_path
            'MsgBox report_for
            'Set report = report_app.OpenReport(rep_path)
            'report.Database.Tables(1).Location = App.Path & "\tests.mdb"
            'report.RecordSelectionFormula = "{tests.test_res_all}='áÇÆÞ' and {reg_student.reg_thk}='" + report_for + "'"
            common_report
            report.ParameterFields.Item(1).ClearCurrentValueAndRange
            report.ParameterFields.Item(1).AddCurrentValue report_sp
            report.RecordSelectionFormula = "{tests.test_res2}='" + report_for + "'And {tests.test_date_pbf}=#" + date_now + "#"
    End Select
    cryview1.ReportSource = report
    cryview1.ViewReport
    'cryview1.PrintReport
    'report.ParameterFields(kkk).Value = "150"
End Sub

---

plz fast

Do you mean 80 records on one sheet or only 80 records and there are no other records visible on any page?

Moved

i dont see any problem in ur code.
check the report and see that u have not limit the record size to 80, u can check the record size option with the help of help menu of crystal reports