水晶报表代码
2007-03-15 22:03 ruinet 阅读(662) 评论(0) 编辑 收藏 举报 1
Me.AdoCRViewer.DisplayToolbar = True
2
Me.AdoCRViewer.ShowExportButton = True
3
Me.AdoCRViewer.ShowCloseButton = True
4
Me.AdoCRViewer.ShowGotoPageButton = True
5
Me.AdoCRViewer.ShowPageNavigateButtons = True
6
Me.AdoCRViewer.ShowPrintButton = True
7
Me.AdoCRViewer.ShowRefreshButton = True
8
Me.AdoCRViewer.ShowTextSearchButton = True
9
Me.AdoCRViewer.ShowZoomButton = True
10
'/////// 设置显示样式
11
Me.AdoCRViewer.DisplayGroupTree = False
12
Me.AdoCRViewer.Dock = DockStyle.Fill
13
Me.AdoCRViewer.Zoom(110)
14
Me.AdoCRViewer.ShowFirstPage()
15![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
16
'设置Button1命令控件的属性
17
Me.AdoButton.Dock = DockStyle.Bottom
18![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
19
'取得ADO.NET中的数据集
20
'/////// 获取数据库CrystalReport.mdb的文件路径
21
Dim FilePath As String
22
FilePath = System.Reflection.Assembly.GetExecutingAssembly.Location()
23
FilePath = Microsoft.VisualBasic.Left(FilePath, InStr(FilePath, "\AdoReport"))
24
'/////// 连接数据源
25
Dim ConnectionString As String
26
ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FilePath & "CrystalReport.mdb"
27
Dim connstr As New String(ConnectionString)
28
Dim searchSql As New String("select * from 产品资料")
29
'/////// 取得数据集
30
Dim da As New OleDbDataAdapter(searchSql, connstr)
31
Dim dsDatab As New DataSet
32
da.Fill(dsDatab)
33![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
34![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
35
'创建报表文件
36
'/////// 根据ProductInfo.rpt模版创建报表文件
37
Dim MyReportDoc As New ReportDocument
38
MyReportDoc.Load(FilePath & "\AdoReport\ProductInfo.rpt")
39
'/////// 设置报表文件的数据集
40
MyReportDoc.SetDataSource(dsDatab.Tables(0))
41![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
42
'为Crystal Report Viewer报表查看器控件设置报表文件
43
Me.AdoCRViewer.ReportSource = MyReportDoc
44![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
45
'消除创建的对象
46
da.Dispose()
47
dsDatab.Dispose()
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
2
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
3
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
4
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
5
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
6
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
7
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
8
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
9
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
10
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
11
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
12
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
13
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
14
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
15
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
16
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
17
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
18
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
19
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
20
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
21
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
22
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
23
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
24
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
25
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
26
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
27
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
28
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
29
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
30
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
31
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
32
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
33
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
34
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
35
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
36
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
37
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
38
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
39
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
40
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
41
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
42
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
43
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
44
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
45
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
46
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
47
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)