我原来都是在VB中直接设计报表,但是那样不便于报表的修改,所以现在想改用rpt文件,但是不知道怎么调用,我用以下的代码提示:Report Not Found,不知道是什么原因?不知道是不是我引用的控件低于9.0的版本而我用9.0设计的报表:
Dim Csql As String
Csql = "SELECT BAR_STANDARD_ID,BAR_STANDARD_NAME,BAR_STANDARD_QUANTITY,T_PRO_ID From PRO_SHEBEI_TOTAL " 'WHERE T_PRO_ID = '" & CurPROID & "' order by BAR_STANDARD_ID"
CrystalReport1.Connect = "DSN=CLTJ;UID=sa;PWD=;"
CrystalReport1.ReportFileName = App.Path & "\Rpt\PriProSBGX.rpt"
MsgBox App.Path & "\Rpt\PriProSBGX.rpt"
CrystalReport1.SQLQuery = Csql
CrystalReport1.Action = 1