同题
因为我在设计程序代码的时候
调用了水晶报表4.5的版本
但没有数据报表实用
所以想试试9.0的版本不知道哪里有下?
给个地址
------------------------------------
babyzhou
《CSDN论坛新助手 CSDN's forum Explorer》
1、更快速的浏览
2、更方便地保存
3、更快捷的收/发短信
下载地址:http://www.seeyou.com.cn/CoolSlob/CSDNExplorer.exe
------------------------------------ 《CSDN论坛新助手 CSDN's forum Explorer》
1、更快速的浏览
2、更方便地保存
3、更快捷的收/发短信
下载地址:http://www.seeyou.com.cn/CoolSlob/CSDNExplorer.exe
因为我在设计程序代码的时候
调用了水晶报表4.5的版本
但没有数据报表实用
所以想试试9.0的版本不知道哪里有下?
给个地址
------------------------------------
babyzhou
《CSDN论坛新助手 CSDN's forum Explorer》
1、更快速的浏览
2、更方便地保存
3、更快捷的收/发短信
下载地址:http://www.seeyou.com.cn/CoolSlob/CSDNExplorer.exe
------------------------------------ 《CSDN论坛新助手 CSDN's forum Explorer》
1、更快速的浏览
2、更方便地保存
3、更快捷的收/发短信
下载地址:http://www.seeyou.com.cn/CoolSlob/CSDNExplorer.exe
这是一段代码,需要引用水晶報表9Dim Report As New CrystalReport1
Dim mans_reco As New ADODB.Recordset
Option ExplicitPrivate Sub Form_Load()
Dim sql As String
sql = "Select * from report_holiday"
mans_reco.Open sql, Local_Conn, 1, 3
Report.Database.SetDataSource mans_reco
Screen.MousePointer = vbHourglass
CRViewer91.ReportSource = Report
CRViewer91.ViewReport
Screen.MousePointer = vbDefault
mans_reco.CloseEnd SubPrivate Sub Form_Resize()
CRViewer91.Top = 0
CRViewer91.Left = 0
CRViewer91.Height = ScaleHeight - 500
CRViewer91.Width = ScaleWidthEnd Sub