小第有一支程式如下 ﹕-
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
確定能抽取資料但為何報表內容空白﹐請指教
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(1) 人氣()