![]() QueryString( 0) = " SELECT dd.* FROM dgdetails as dd INNER JOIN companydetails AS cd ON " # and pany_id in (select pany_id from companydetails whereĬompanydetails.tkr'Pri')" ' Pass the Query ' ReportForm.MdiParent = MainForm 'Pass For Mdi True Me.ViewReport( " DSCDReport.rpt", TableName, QueryString, ) QueryString( 0) = " SELECT * FROM dgdetails where Date_Added_to_List_ between #" & _ ' Asks for DB Login If Me.RdobtnSCompletionDate.Checked() = True Then If () = " " Then Date & " # and Date_Added_to_List_ 'Private' order by company_name_" ' Pass the Query ' ReportForm.MdiParent = MainForm 'Pass For Mdi True Me.ViewReport( " RUCReport.rpt", TableName, QueryString, ) QueryString( 0) = " SELECT * FROM companydetails where Date_Added_to_List_ >= #" &ĭtp_RUC_from.Value. TableName( 0) = " companydetails" ' Pass The Table That you used in the crystal Report ' Works Fine If Me.RdobtnRecentlyUpdatedCompanies.Checked() = True Then MessageBox.Show( " No Records to Display")Įlse : Me.(CrystalReportViewer)Ĭopy Code Dim TableName( 0) As String Dim QueryString( 0) As String If DataSet.Tables( 0).Rows.Count = 0 Then Next ' Report.VerifyDatabase() If Not = " " Then Report.SetParameterValue( 0, )ĬrystalReportViewer.ReportSource = Report ServerName = Application.StartupPath & " \db.mdb"įor Each RTable As Table In Report.Load(Application.StartupPath & " \" & ReportName & " ") ![]() Copy Code Dim Report As = New ĭim CrystalReportViewer As = New ĭim Adapter As New OleDb.OleDbDataAdapterįor I As Integer = 0 To UBound(TableName) ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |