[Programmer-VB] QUERY KE DALAM SUB REPORT CR8.5

[puthut_vai]

Hi All,...
saya punya masalah mengenai Query ke dalam Sub report dari VB 6 ke
dalam Cr8.5
Saya Punya 4 Buah Tabel, Yaitu

- Tabel 1
- Tabel 2
- Tabel 3
- Tabel 4

dimana dari ketiga tabel tersebut berhubungan 1 : M ke Tabel 1 
Field yang menghubungkan sebut saja fieldX

Pada CR saya merancang ke dalam Report Utama adalah data2x yang ada
pada Tabel 1
kemudian tabel lainnya saya buat ke dalam Subreport dan saya satukan
ke dalam 
Report Utama. 
( Tidak menggunakan detail pada report utama karena informasi yang
ingin ditampilkan ke dalam  report utama karena muatan informasinya di
dalam tabel 
berbeda dan harus dipisahkan)

Pada VB 6 saya ketikan coding di bawah ini untuk menampilkan report
yang telah saya buat :


' CrystalReport1 = CrystalReport Control
' Text1.text   -- Text Box
dim Choice as string
Choice = text1.text

With CrystalReport1
        .DataFiles(0) = App.Path + "\Database.mdb"
        .ReportFileName = App.Path + "\ReportUtama.rpt"
        
        .ReplaceSelectionFormula ("")
        .ReplaceSelectionFormula ("{Tabel 1.FieldX}='" & Choice & "'")
        .ReplaceSelectionFormula ("{Tabel 2.FieldX}='" & Choice & "'")
        .ReplaceSelectionFormula ("{Tabel 3.FieldX}='" & Choice & "'")
        .ReplaceSelectionFormula ("{Tabel 4.FieldX}='" & Choice & "'")
        .Destination = crptToWindow
        .WindowState = crptMaximized
        .Action = 1
End With


Hasil yang diperoleh adalah :
Semua Data pada subreport tersebut keluar semuanya, hanya pada Report
Utama saja yg
hasilnya sesuai dengan choice.


Thanks
Puthut Wibowo