用 Crsystal report 软件打开这个 .rpt文件
在 report option 中有个 save data with report选项,去掉就可以了

解决方案 »

  1.   

    在 Database 菜单中有个 Verify on Every Print 选项,选中它
      

  2.   

       Dim Cn1 as ADODBConnection
    Private Sub cmdPrint_Click()
      Report.Connect = cn1                             '设置连接
      Report.ReportFileName = "report1.rpt"            ' 设置文件
      Report.Formulas(0) = "ProcMonth='十月份'"        ' 设置参数
      Report.Formulas(1) = "Stock='主仓库'"            ' 设置参数
      Report.SelectionFormula = "{table1.sid}='dddd'"  ' 设置列印条件
      Err = Report.PrintReport                         ' 列印
      if Err<>0   Then
         MsgBox "列印失败" & Report.LastErrorString , 48, Me.Caption
      End If
    end sub