小第有一支程式如下 ﹕-
Dim Application As New CRAXDDRT.Application
Dim Report As CRAXDDRT.Report
Private Sub Form_Load()
Dim rstDataSet As New ADODB.Recordset
Dim strConnect As String
Set Report = Nothing
Set Report = Application.NewReport
strConnect = "select ... from ... where ..."
rstDataSet.CursorLocation = adUseServer
rstDataSet.Open strConnect, cnn, adOpenForwardOnly, adLockReadOnly
CrystalReport1.Database.SetDataSource rstDataSet
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
Set rstDataSet = Nothing
End Sub
確定能抽取資料但為何報表內容空白﹐請指教
Dim Application As New CRAXDDRT.Application
Dim Report As CRAXDDRT.Report
Private Sub Form_Load()
Dim rstDataSet As New ADODB.Recordset
Dim strConnect As String
Set Report = Nothing
Set Report = Application.NewReport
strConnect = "select ... from ... where ..."
rstDataSet.CursorLocation = adUseServer
rstDataSet.Open strConnect, cnn, adOpenForwardOnly, adLockReadOnly
CrystalReport1.Database.SetDataSource rstDataSet
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
Set rstDataSet = Nothing
End Sub
確定能抽取資料但為何報表內容空白﹐請指教
全站熱搜
留言列表