kalu anda memakai file rpt, ada optionnya untuk tidak save data (jadi akan
selalu otomatis refresh), atau kalau memakai crystal report designer di vb,
biasanya saya memakai coding seperti ini : Report.DiscardSavedData

pertanyaan pertama agak bingung nih.. agak gak ngerti, dan yang dingertiin
kaga pernah pake... nah loh.. jadinya ngerti kaga.. hehe....
mgkn bisa dengan cara ini, di crystal report kan ada searchnya (jadi bisa
pake search invoice dari crystal reportnya aja), lalu kalu dah ketemu,
nomornya tinggal klik kanan, lalu pilih copy (jangan lupa
enablepopupmenunya), lalu tinggal balik ke program dan di paste, untuk balik
laginya... ya... balik lagi copy data yang mau dicari, balik ke file rpt,
dan search lagi (ini agak kurang pas sih seperti yang anda inginkan, tapi
kalu dah gak ada cara laen, bisa dipaksain gini :p )
=======================
http://www.fire888.com

  -----Original Message-----
  From: [email protected]
[mailto:[EMAIL PROTECTED] Behalf Of FroGie
  Sent: Thursday, May 17, 2007 7:35 PM
  To: [email protected]
  Subject: [Programmer-VB] membuka file RPT dari grid


  Hai...hai..

  saya mo tanya hal lain lagi nih.
  ada yang bisa bantu gak ya ? saya lagi mentok di coding program nya nih.

  gini saya mau membuat pencarian laporan dalam bentuk RPT (Crystal Report)
saya menggunakan Crystal Report 8.5
  Nah yang saya ingin lakukan adalah : ada textbox untuk input KDinvoice
dengan tombol Search.
  Nah setelah ketemu, hasilnya akan di tampilkan pada grid. untuk grid ini
saya menggunakan MSHFlexgrid.

  nah untuk membuka laporan yang sudah di cari, saya ingin nya hanya
mengklik dari baris yang ada di grid saja.
  jadi hanya di klik 2x pada baris tertentu dari hasil pencarian akan
memanggil file RPT.

  Selain itu, saya jg mo tanya coding untuk membuka RPT donk...
  Karena saya sudah coding, tapi setelah proses input beres, datanya tidak
ter-refresh gitu di databasenya.
  jadi kalo di telusuri saya harus merefresh database yang ada di crystal
report yang sudah saya buat.
  gimana ya biar tidak perlu di refresh lagi, ada pemecahannya ???

  saya menggunakan coding untuk membuka RPT nya seperti berikut :

  CR1.SelectionFormula = "{Surat.Nama_Pekerjaan}='" & txtsearchkerjaan.Text
& "' and {Surat.Tanggal} ='" & Tanggal.Value & "'"
  CR1.ReportFileName = "C:\Program Files\ERco\Report.rpt"
  CR1.WindowTitle = "Laporan Surat Perintah Kerja"
  CR1.WindowState = crptMaximized
  CR1.Action = 1

  Jika coding ini saya modif sedikit dengan menambahkan :

  CR1.RetrieveDataFiles

  Diatasnya          CR1.WindowState = crptMaximized

  maka akan terjadi error dengan debug pada :

  CR1.Action = 1

  Kira2 kenapa ya ???

  Mohon bantuannya donk.... thx sebelumnya....

  

Kirim email ke