水晶报表内容不能实时更新(在线等)

Question

我用的是vb+sql2000,为何用第一就能显示，后来都显示第一条
Private Sub Form_Load()
 'orderNO为传递值
 Set rs = New ADODB.Recordset
  sql = "select *from product where orderNO='" & Trim(OrderNO) & "'"
 rs.Open sql, Conn, adOpenStatic, adLockReadOnly
 
 Report.Database.SetDataSource rs
 
Screen.MousePointer = vbHourglass
CRViewer91.ReportSource = Report
CRViewer91.ViewReport
Screen.MousePointer = vbDefaultEnd Sub

Answer 1

VB中只要简单在填充记录集合前使用DiscardSavedData方式释放掉水晶报表应用中缓存的数据即可     '清除报表中保持的数据 
    objCRReport.DiscardSavedData 
    '赋给报表数据 
    objCRReport.Database.SetDataSource rst http://www.cnblogs.com/babyt/archive/2005/03/13/117753.html