0 Membuat Laporan dengan Crystal Report

Membuat laporan dengan crystal report, berdasarkan tanggal tertentu pada vb.net

Ketikan sourece code dibawah ini pada form laporan

Public Class FPrinPesanan
Dim rep As New laporanPesanan
Dim dt As DataTable


Dim dttransaksi As DataSetLpesananTableAdapters.table_pesananTableAdapter
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
dttransaksi = New DataSetLpesananTableAdapters.table_pesananTableAdapter
dt = dttransaksi.GettanggalNota(Me.TextBox1.Text)
rep.SetDataSource(dt)
Me.CrystalReportViewer1.ReportSource = rep
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
dttransaksi = New DataSetLpesananTableAdapters.table_pesananTableAdapter
dt = dttransaksi.GetDatapesanan
rep.SetDataSource(dt)
Me.CrystalReportViewer1.ReportSource = rep
End Sub

Private Sub FPrinPesanan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = "d/mm/yyyy"
End Sub
End Class