Cara Menggunakan Selection Formula Crystal Report Di VB.Net

Sembari menunggu partai puncak Liga Champions antara Manchester United vs Barcelona, gw akan sharing sedikit mengenai pemanfaatan selection formula di Crystal Report. Pada saat kita sudah membuat laporan di crystal report, terkadang kita ingin mengambil data yang ada sesuai dengan kemauan kita. Kalo hanya keseluruhan laporan yang ditampilkan kayaknya kurang gokil. Akan lebih gokil kalo kita menggunakan combobox atau datetimepicker yang ada di toolbox buat mengambil suatu value di laporan yang kita mau.

Ok, sekarang gw sharing coding untuk combobox dulu : …………………………….

Gw anggap laporan crystal report-nya sudah ada :

   If RBSeluruh.Checked = True Then

LaporanTiketStatus.WindowState = FormWindowState.Maximized

LaporanTiketStatus.Show()

ElseIf RadioButton1.Checked = True Then

LaporanTiketStatus.CrystalReportViewer3.SelectionFormula = “{airlines_ticket.status} = ‘” & ComboBox1.Text & “‘”

LaporanTiketStatus.CrystalReportViewer3.RefreshReport()

LaporanTiketStatus.WindowState = FormWindowState.Maximized

LaporanTiketStatus.Show()

End If

Apabila teman-teman langsung copy paste coding di atas makan perhatikan pada bagian LaporanTiketStatus.CrystalReportViewer3.SelectionFormula = “{airlines_ticket.status} = ‘” & ComboBox1.Text & “‘”

Ketika di copy secara langsung makan tanda ‘ akan berubah. Jadi pastikan tanda tersebut sudah benar. Karena kalo salah, maka program nga akan jalan dengan baik.

Keterangan :

LaporanTiketStatus merupakan Form di VB.Net yang gw gunakan untuk menampung CrystalReportViewer.

CrystalReportViewer3 merupakan properties yang kita gunakan untuk menampilkan Crystal Report

airlines_ticket.status merupakan nama dari database (airlines_ticket) dan field (status) yang akan kita gunakan. Kebetulan gw ingin men-sorting status yang ada di database.

Combobox1 merupakan trigger yang digunakan untuk memilih status yang diinginkan. Sebelumnya inisiate dulu isi di combobox. Kalo dalam aplikasi gw menggunakan status CONFIRM dan CANCEL.

Contoh :

 Private Sub FrmLaporanStatusTiket_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.Text = “Ticket Status”

Me.ComboBox1.Items.Add(“CONFIRM”)

Me.ComboBox1.Items.Add(“CANCEL”)

End Sub

———————————————————————————————————————————————————————————-

Bagian kedua seandainya kita ingin mengambil data berdasarkan tanggal dengan menggunakan datetimepicker

   If RBSeluruh.Checked = True Then

LaporanPengeluaran.WindowState = FormWindowState.Maximized

LaporanPengeluaran.Show()

ElseIf RBPerhari.Checked = True Then

LaporanPengeluaran.CrystalReportViewer2.SelectionFormula = “{pengeluaran_info.tanggal_pengeluaran} = #” & CDate(Format(DTTglHari.Value, “yyyy/MM/dd”)) & “#”

LaporanPengeluaran.CrystalReportViewer2.RefreshReport()

LaporanPengeluaran.WindowState = FormWindowState.Maximized

LaporanPengeluaran.Show()

ElseIf RBPeriode.Checked = True Then

LaporanPengeluaran.CrystalReportViewer2.SelectionFormula = “{pengeluaran_info.tanggal_pengeluaran} >= #” & CDate(Format(DTTgl1.Value, “yyyy/MM/dd”)) & “# and {pengeluaran_info.tanggal_pengeluaran} <= #” & CDate(Format(DTTgl2.Value, “yyyy/MM/dd”)) & “#”

LaporanPengeluaran.CrystalReportViewer2.RefreshReport()

LaporanPengeluaran.WindowState = FormWindowState.Maximized

LaporanPengeluaran.Show()

End If

Keterangan :

LaporanPengeluaran merupakan Form di VB.Net yang gw gunakan untuk menampung CrystalReportViewer.

CrystalReportViewer2 merupakan properties yang kita gunakan untuk menampilkan Crystal Report

pengeluaran_info.tanggal_pengeluaran merupakan nama dari database (pengeluaran_info) dan field (tanggal_pengeluaran) yang akan kita gunakan. Kebetulan gw ingin men-sorting status yang ada di database.

DTTglHari, DTTgl1, DTTgl2 merupakan datetimepicker yang digunakan untuk mengambil value tanggal yang kita mau dari hasil laporan yang telah dibuat sebelumnya.

Sekarang tinggal dijalankan…..Semoga berhasil

Seandainya ada pertanyaan, seperti biasa isi di comment bawah ini. Gw akan jawab semampu gw…

*Bagi yang mau contoh aplikasi-nya dapat isi di comment gw dengan format :

Nama Email :

Pesan : Saya mau contoh aplikasi

Entar tinggal gw attach ke email teman-teman contoh aplikasi yang bisa dijalankan langsung.

Catatan : gw menggunakan VB.Net 2008 dan SQL Server 2005..

“Semoga malam ini Manchester United bisa menang yah…Aminnn ^_* V