Latihan 56
Public Class Latihan056_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 = "{barang.kodebarang}='" & 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