Crystal Report : Source Code Filter dengan Bulan dan Tahun (2)

Pada bagian Crystal report kali ini adalah versi lain dari filter berdasarkan bulan dan tahun dan ini adalah masukan dari teman saya tegar thx for masukannya bro

Apa yang dibutuhkan

Tetap saja sama seperti posting saya sebelumnya Filter Bulan dan Tahun baca dulu, tidak ada yang berubah dan yang membedakan dengan postingan sebelumnya ada pada saat koding jadi kita langsung menuju koding.


Koding Time

Public Form ClassTransaksi

Dim xReports as new ReportPenjualan

Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
Try

ReportPenjualan.Load()

CrystalReportViewer1.ReportSource = xReport
CrystalReportViewer1.Zoom(1)
CrystalReportViewer1.SelectionFormula = “{Transaksi.TglTransaksi} in datetime(” & cbTahun.Text & “,” & cbBulan.SelectedIndex + 1 & “,1) to datetime(” & cbTahun.Text & “,” & cbBulan.SelectedIndex + 1 & “,” & Now.Day.ToString() & “)”
CrystalReportViewer1.Refresh()
Catch(ex As Exception)
MsgBox(ex.Message() & ex.StackTrace() & ex.Source())
End Try
End Sub
End Class

Ini apaan lagi, kok beda terus bedanya apa ma yang kemarin ?

ha4 oke2 untuk yang kali ini sesuai dengan saran dari teman saya tegar saya akan coba tidak menggunakan select case akan tetapi menggunakan fungsi dari event combobox yaitu selectedindex, yang mana (” & cbTahun.Text & “,” & xBulan.ToString() & “,1) menjadi (” & cbTahun.Text & “,” & cboBulan.selectedIndex + 1 & “,1) dikarenakan xBulan merupakan bagian dari select case maka di ganti seperti di atas

ini adalah versi yang lain dari pemanipulasian Crystal Report silahkan di coba dan terima kasih buat akang tegar buat masukannya

by

WAL