水晶报表如何才能更新问题，请教各位！

Question

我在VB6里引用水晶报表9.1。用以下代码实现报表生成，但有一个问题：我只能在第一次生成报表时得到正确的信息，以后如果再次生成报表的话，都只显示第一次的结果，该如何清空报表的数据，然后再生成报表呢？一下是我的代码：
Private Sub Form_Load()
Dim strSQL As String
Dim i As Long
Dim capp As New CRAXDRT.Application
Dim carp As New CRAXDRT.ReportDim rs As ADODB.RecordsetMe.ShowSet rs = New ADODB.RecordsetstrSQL = "select * from actionrecord where actiontime between '" & StartDate & "' and '" & EndDate & "' and actor='" & strActor & "'"If rs.State = adStateOpen Then rs.Close
rs.Open strSQL, cn, adOpenStatic, adLockReadOnlySet carp = ReportFor i = 1 To carp.Database.Tables.Count
    If carp.Database.Tables.Item(i).Name = "ActionRecord" Then
        carp.Database.Tables(i).SetDataSource rs
    End If
NextCRViewer91.ReportSource = carp
CRViewer91.ViewReport
Screen.MousePointer = vbHourglass
Screen.MousePointer = vbDefaultEnd Sub

Answer 1

在你报表的parameter中加一参数IntTest(integer),然后你每次调用报表时,传一参数
每次自动加1即可,因为crystal有cache,他会自动保存数据(菜单file的savedata)