Dear Teh Lilis
Saya mau kirim variable dari VB ke CR dengan data hasil looping,
saya kasih contoh kodingnya, masalahnya data yang masuk cuma
record terakhir, maunya sih tampil di detainya CR kaya ngambil
data langsung dari table, any have solution ?
Thanks before.
Private Sub cmbPrint_Click()
Dim table As ADODB.Recordset
Dim sql As String
Dim i As Integer
Set table = New ADODB.Recordset
sql = "select * from transaksi"
table.Open sql, MdbConnection, adOpenDynamic, adLockOptimistic
table.MoveFirst
CrystalReport1.ReportFileName = App.Path & "\Reports\print_report.rpt"
CrystalReport1.DiscardSavedData = True
For i = 1 To table.RecordCount
CrystalReport1.Formulas(0) = "no = '" & table!no & "'"
CrystalReport1.Formulas(1) = "tanggal = '" & table!tanggal & "'"
CrystalReport1.Formulas(2) = "nama = '" & table!nama & "'"
CrystalReport1.Formulas(3) = "bayar = '" & table!bayar & "'"
CrystalReport1.Formulas(4) = "sisa = '" & table!sisa & "'"
table.MoveNext
Next
CrystalReport1.WindowTitle = "Print Report"
CrystalReport1.WindowState = 2
CrystalReport1.Destination = 0
CrystalReport1.Action = 1
End Sub
