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

[a97191]

我用的是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 = vbDefault

End Sub

[阿泰]

VB中只要简单在填充记录集合前使用DiscardSavedData方式释放掉水晶报表应用中缓存的数据即可

'清除报表中保持的数据
objCRReport.DiscardSavedData
'赋给报表数据
objCRReport.Database.SetDataSource rst

http://www.cnblogs.com/babyt/archive/2005/03/13/117753.html

[a97191]

thanks