CARA MENGGUNAKAN SELECTION FORMULA CRYSTAL REPORT DI VB.NET

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 : ane menggunakan VB.Net 2010 , Xamp & CrystalReport

Share :

Tweet

More

Related Post