Select Formula Cristal Report

untuk Field berisi huruf (contoh : kode Produk, Nama Barang) :

    CRt1.SelectionFormula = "{nama_tabel.nama_field}='" + text1.text + "'"

2. untuk Field berisi angka (contoh : NIK, harga) :

    CRt1.SelectionFormula = "{nama_tabel.nama_field}=" + text1.text  + ""

3. untuk Field berisi tanggal (contoh : tanggalfaktur) :

 CRt1.SelectionFormula = "{nama_tabel.nama_field}=#" + format(DTPicker1.value,"yyyy-mm-dd")  + "#"

Apabila filter lebih dari satu tinggal menambahkan AND atau OR, contoh :

    CRt1.SelectionFormula = "{nama_tabel.nama_field}=" + text1.text  + " AND {nama_tabel.nama_field}=" + text2.text  + ""

---

tiga filter

"{Nama_Tabel.Nama_Field}= '" & Combo1.Text & "' And {Nama_Tabel.Nama_field}>=# " & TDatePicker1.Value & "# And {Nama_Tabel.Nama_field}<= #" & TDatePicker2.Value & "#"

---

‘Cara menampilkan Cristak Report Melalui Visual Basic  tanpa password

With CrystalReport1

.ReportFileName = App.Path & "\report\Laporan_Harian.rpt"

.WindowState = crptMaximized

.RetrieveDataFiles

.SelectionFormula = "{Nama_Tabel.Nama_Field}>=# " & DatePicker1.Value & "# And {Nama_Tabel.Nama_Field}<= #" & DatePicker2.Value & "#"

.Destination = crptToPrinter

.Action

End With

---

‘Cara menampilkan Cristak Report Melalui Visual Basic databse berpassword

Dim strFormula As String

   strFormula = "{TABEL1.FIELD}= '" & Combo1.Text & "'"

    With CrystalReport1

        .Destination = crptToWindow

        .SelectionFormula = IIf(Combo1.Text = "NONE", "", strFormula)

        .ReportFileName = App.Path & "\Laporan.rpt" 'assign report file

        .Password = Chr(10) & "password" 'membuka password database

        .WindowState = crptMaximized 'maximized - minimized or normal

        .DataFiles(0) = App.Path & "\Database1.mdb" 'get db current path

        .Action = 1 'show report

    End With

Ctt : Jika pada Combo1 = yang di pilih adlah NONE maka  yang di tampilkan semuanya

---