My friends yang baik
gue bikin formula di VB untuk CR 8
Private Sub Command5_Click()
CrystalReport1.ReportFileName = App.Path & "\rpt_kwitansi_BARU5.rpt"
If Check1.Value = 0 Then
CrystalReport1.SelectionFormula = "{DATEVALUE
(kwitansi.tgl_input)} >= Date (" & DTP_awal.Year & "," &
DTP_awal.Month & "," & DTP_awal.Day & ") "
CrystalReport1.SelectionFormula = CrystalReport1.SelectionFormula
+ " And {kwitansi.tgl_input} <= Date (" & DTP_akhir.Year & "," &
DTP_akhir.Month & "," & DTP_akhir.Day & ")"
Else
CrystalReport1.SelectionFormula = ""
End If
CrystalReport1.WindowState = crptMaximized
CrystalReport1.RetrieveDataFiles
CrystalReport1.Action = 1
End Sub
Tapi munculnya selalu semua tanggal, cara filter nya gimana ya yang
bener ?
thx
wawan
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/Programmer-VB/join
(Yahoo! ID required)
<*> To change settings via email:
mailto:[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
