Buat Parameter Di Crystal Report VB.Net 2005

Sebelumnya Buat Dulu Parameter Di Crystal Report dengan cara :

Tahap 1 : buka field explorer CR di sisi kiri lalu klik kanan pada Parameter Field

  

Tahap 2 : (isi Nama pilih type String atau yg lain tergantg kebutuhan)
 

Tahap 3 : Buat Parameter dengan nama Set_Parameter :

Sub Set_Parameter(ByVal pfds As ParameterFieldDefinitions, ByVal pfd As ParameterFieldDefinition, ByVal pv As ParameterValues, ByVal pdv As ParameterDiscreteValue, ByVal value As String, ByVal kolom As String)
        pdv.Value = value
        pfds = rptDoc.DataDefinition.ParameterFields
        pfd = pfds.Item(kolom)
        pv = pfd.CurrentValues

        pv.Clear()
        pv.Add(pdv)
        pfd.ApplyCurrentValues(pv)
    End Sub

Tahap 4 : buat form untuk memanggil form report
 
 Dim a1 As ParameterFieldDefinitions
 Dim b1 ParameterFieldDefinition
 Dim c1  New ParameterValues
 Dim d1 ParameterDiscreteValue

Private Sub CRViewer_Kwitansi_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CRViewer_Kwitansi.Load

Set_Parameter(a1, b1, c1, d1, Terbilang(ExecSc("SELECT JML_PEMB FROM SPP WHERE NO_SPP = '1' )) & " Rupiah", "Terbilang")
End Sub

Semoga Bermanfaat ^^