Membuat laporan berdasarkan kriteria pada Crystal report dan VB6

Kali ini saya akan membagikan cara untuk menampilakan laporan berdasrkan kriteria tertentu seperti nomor nota yang menggunakan bahasa pemrograman Visual Basic 6.  pada program ini menggunakan crystal report sebagai laporannya  semoga bisa menambah wawasan bagi para pembaca semuanya.

source code :

  Me.MousePointer = 11
    With CrystalReport1
        .Reset
        .ReportFileName = App.Path & "\Jual.rpt"
        .DataFiles(0) = App.Path & "\STOKIS.mdb"
        .SelectionFormula = "{TB_Jual.noNota}='" & Text1.Text & "'"
        .WindowMinButton = False
        .WindowShowCancelBtn = True
        .WindowShowCloseBtn = True
        .WindowShowPrintBtn = True
        .WindowShowPrintSetupBtn = True
        .WindowParentHandle = MDIForm1.hWnd
        .WindowState = crptMaximized
        .Action = 1
    End With
Me.MousePointer = 1

untuk memilih kriteria harap diperhatikan "{TB_Jual.noNota}='" & Text1.Text & "'" ---> gantilah agar sesuai dengan kriteria anda.

berikut screenshootnya :