请关注！水晶报表程序执行到CRpt.Action = 1就退出了。

strSql = "select * from t_app_scantmp"
    objDbApQuery.ConnectDB
    objDbApQuery.OpenRecordSet strSql
        
      If Not objDbApQuery.adoRst.EOF Then
          Rpt_path = App.Path & "\rpt\List.rpt"
          CRpt.ProgressDialog = False
          CRpt.Reset
          CRpt.DiscardSavedData = True
          CRpt.Destination = crptToWindow
          CRpt.WindowState = crptMaximized
          CRpt.DialogParentHandle = False
          CRpt.ReportFileName = Rpt_path
          CRpt.SetTablePrivateData 0, 3, objDbApQuery.adoRst
          CRpt.Formulas(1) = "DataBetween = '" & Format(DTPStart.Value, "YYYY-MM-DD") & " -- " & Format(DTPEnd.Value, "YYYY-MM-DD") & "'"
          CRpt.Action = 1
          
       Else
          MsgBox "无相关资料", vbOKOnly + vbInformation, Me.Caption
       End If
       objDbApQuery.CloseConnect
       Set objDbApQuery = NothingList.rpt是用Crystal7.0中Active Data自己定义数据做的。