coba cari di sini: http://xbasicpro.brinkster.net/DaftarTanya.asp
kata kunci 'report viewer' semoga membantu, Salam ---------------------------------------------------------------------------------------------------------------------------- * Software Developer Solution - XBasicPro Flexi:061-77783749 http://xbasicpro.brinkster.net ----- Original Message ---- From: Yeffriansjah Salim <[EMAIL PROTECTED]> To: [email protected] Sent: Friday, June 27, 2008 8:05:50 Subject: [indoprog-vb] refresh data pada crystal report saya ada masalah dengan pencetakan data menggunakan crystal report, sebagai ilustrasi saya memiliki suatu tabel sementara dimana datanya (record) setiap saat berubah sesuai dengan pilihan criteria pemilahan data menggunakan SQL. nah di saat saya mencetak data yang dipilah tersebut selalu saja data yang ditampilkan pada crystal report adalah data yang terdahulu tidak terkini, harus 2x click report baru data yang terkini ditampilkan. mohon petunjuk dari rekan-rekan untuk menangani masalah ini berikut saya tampilkan listing code program pada bagian form : Private Sub Command1_Click( ) Dim bulan As Byte Select Case Trim(Combo1. Text) Case "januari" bulan = 1 Case "juli" bulan = 7 Case "agustus" bulan = 8 Case "september" bulan = 9 End Select Call kosongkan DJurnal.Recordset. MoveFirst Do While Not DJurnal.Recordset. EOF = True If Month(DJurnal. Recordset! tanggal) = bulan And Year(DJurnal. Recordset! tanggal) = Val(Text1.Text) Then With DSem.Recordset .AddNew !periode = Trim(Me.Combo1. Text) + "-" + Text1.Text !kode_nama_perk = Trim(Me.DataCombo1. Text) + " (" + Trim(Label5. Caption) + ")" !uraian = DJurnal.Recordset! uraian !nomorku = DJurnal.Recordset! norek !tanggal = DJurnal.Recordset! tanggal !debet = DJurnal.Recordset! debet !kredit = DJurnal.Recordset! kredit .Update End With End If DJurnal.Recordset. MoveNext Loop DSem.Refresh With CrystalReport1 .ReportSource = crptReport .RetrieveDataFiles .ReportFileName = App.Path & "\bukub.rpt" .Destination = crptToWindow .WindowState = crptMaximized .Action = 1 End With End Sub Private Sub pilahdata() DJurnal.RecordSourc e = "select * from jurnal where norek='" & Trim(Label5. Caption) & "' order by tanggal" DJurnal.Refresh Me.DBGrid1.Refresh End Sub Private Sub Command2_Click( ) Unload Me End Sub Private Sub DataCombo1_Change( ) AdodcPerk.Recordset .MoveFirst AdodcPerk.Recordset .Find "nama='" & Trim(DataCombo1. Text) & "'" If Not AdodcPerk.Recordset .EOF = True Then Label5.Caption = AdodcPerk.Recordset !nomor Call pilahdata End If End Sub Private Sub Form_Load() DSem.Caption = "DSem" DSem.DatabaseName = App.Path & "\workshop.mdb" DSem.RecordSource = "sem" DJurnal.Caption = "DJurnal" DJurnal.DatabaseNam e = App.Path & "\workshop.mdb" DJurnal.RecordSourc e = "" With Combo1 .AddItem "januari" .AddItem "juli" .AddItem "agustus" .AddItem "september" End With Text1.Text = Year(Date) End Sub [Non-text portions of this message have been removed] Send instant messages to your online friends http://uk.messenger.yahoo.com [Non-text portions of this message have been removed]
