banyak yang menanyakan masalah selection formula pada vb6 kepada saiah, padahal saiah bukan jagonya, cuman sih inget-inget kagak, ha ha ha..., tapi tidak apa-apa sayah juga terkadang lupa.
berikut beberapa contoh sajah:
selection formula di crystal report 8.5 atau versi di atasnya sama saja. dan itu bisa dilakukan langsung di kode vb6 nya maupun dilakukan pada crystal reportnya langsung, kumaha carana......... kieu yeuhh
1. langsung buat kode di program VB6 nya

sub cetak()

Dim stgl1, stgl2 As String

stgl = Left(dtawal.Value, 2) + "/" + Mid(dtawal.Value, 4, 2) + "/" + Mid(dtawal.Value, 7, 4) 'tgl awal

stgl1 = Left(dtakhir.Value, 2) + "/" + Mid(dtakhir.Value, 4, 2) + "/" + Mid(dtakhir.Value, 7, 4) 'tgl akhir

With crlhp

.Reset

.Destination = crptToWindow

.ReportFileName = "\\Billing\USER\all about facebook\report\lhptkurir.rpt"

'.ReportFileName = App.Path & "\report\lhptkurir.rpt"

.WindowState = crptMaximized

.WindowShowPrintBtn = True

.WindowShowRefreshBtn = True

.WindowTitle = "Laporan Hasil Pengiriman"

.SelectionFormula = "{Ttran_kirim.KodeCos} = '" & cbcostumer.Text & "'" + "And" + "{Ttran_kirim.TglPickup} >= #" & CDate(stgl) & "#" + "And" + "{Ttran_kirim.TglPickup}<=#" & CDate(stgl1) & "#"

'.SelectionFormula = "{Ttran_kirim.TglPickup} >= #" & dtawal.Value & "#" + "And" + "{Ttran_kirim.TglPickup}<=#" & dtakhir.Value & "#"

.Formulas(0) = "Costumer='" & lblcostumer.Caption & "'"

.Formulas(1) = "tglawal='" & dtawal.Value & "'"

.Formulas(2) = "tglakhir='" & dtakhir.Value & "'"

.RetrieveDataFiles

.Action = 1

End With

end sub

        .SelectionFormula = "{ado.tanggal}>=#" & CDate(Format(tgl1.Value, "mm/dd/yyyy")) & "#" + "And" + "{ado.tanggal}<=#" & CDate(Format(tgl2.Value, "mm/dd/yyyy")) & "#"

atau begieu yg di coba di sql 2000