Script VB6 untuk selection Crystal Report menggunakan database SQL 2000
Disini saya akan menunjukan script VB6 yang digunakan untuk menyeleksi report yang akan dicetak melalui Crystal Report 8.5
Untuk Selection berdasarkan range Tanggal, scriptnya sama seperti dibawah ini:
Untuk Transaksi.NoTransaksi adalah NamaTable.FieldTable yang digunakan untuk menyeleksi.
Letakan script diatas pada Command Cetak/Print dan sebagainya.
Untuk Selection berdasarkan Text atau label yang berada di VB6, scriptnya seperti dibawah ini:
With CrystalReport1
.reset
.ReportFileName = App.Path &"\Report.rpt" 'Letak File Report
.WindowShowPrintBtn = True
.SelectionFormula = "{Transaksi.NoTransaksi}='"& Text1.Text &"'"
.RetrieveDataFiles
.Action = 1
End With
.reset
.ReportFileName = App.Path &"\Report.rpt" 'Letak File Report
.WindowShowPrintBtn = True
.SelectionFormula = "{Transaksi.NoTransaksi}='"& Text1.Text &"'"
.RetrieveDataFiles
.Action = 1
End With
Untuk Selection berdasarkan range Tanggal, scriptnya sama seperti dibawah ini:
With CrystalReport1
.reset
.ReportFileName = App.Path & "\Report.rpt" 'Letak File Report.WindowShowPrintBtn = True
.SelectionFormula = "{Transaksi.Tgl_Transaksi} in date ('" DTPicker1.Value &"') to date ('"& DTPicker2.Value &"')"
.RetrieveDataFiles
.Action = 1
End With
NB:.reset
.ReportFileName = App.Path & "\Report.rpt" 'Letak File Report.WindowShowPrintBtn = True
.SelectionFormula = "{Transaksi.Tgl_Transaksi} in date ('" DTPicker1.Value &"') to date ('"& DTPicker2.Value &"')"
.RetrieveDataFiles
.Action = 1
End With
Untuk Transaksi.NoTransaksi adalah NamaTable.FieldTable yang digunakan untuk menyeleksi.
Letakan script diatas pada Command Cetak/Print dan sebagainya.
Komentar
Posting Komentar