Latihan 57
Public Class Latihan057_46109023


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        laporan = New Latihan_045_46109023
        Latihan_053_46109023.honda.SelectionFormula = "(detailtransaksi.harga) <=" & cimi46109023.Text & ""

        Latihan_053_46109023.honda.ReportSource = laporan
        If Latihan_053_46109023.Visible = False Then
            Latihan_053_46109023.Show()
            Latihan_053_46109023.Activate()
        End If
    End Sub
End Class