Access免费的完美报表的讲述帖（正式开讲）

真主

轻风 发表于 2013-10-31 14:58
还要VB真麻烦

其实VB中需要写的代码也就一点点，我最初来想发布一个成品就行了，毕竟授人鱼比授人以渔要简单的多，但考虑到大家的应用，所以还是授渔吧，所以需要的朋友可以耐心看看

真主

上次讲了VB调用报表的基本方法，可他无法实现动态调用，接下来我们要完成几个功能：
1、控件大小与窗体一样
2、在当前目录下建一个Reports文件夹，将报表文件统一放在里面，
3、在当前目录下建一个tool文件夹，将动态调用的报表名与报表数据源路径存入在tool文件夹中的print.txt文件夹中（后续在access打印时，动态向print.txt文件中写入，从而实现动态应用）
4、在窗体上新增两个Label控件，分别为Label1与Label2，另加一个框：Shape1
VB的最终代码如下：

1. Dim WithEvents Report As grproLibCtl.GridppReport
   
2. 
   
3. Private Sub Form_Load()
   
4. 
   
5. Me.GRPrintViewer1.Width = Me.Width - Shape1.Width
   
6. Me.GRPrintViewer1.Height = Me.Height - Shape1.Height
   
7. 
   
8. Label1.Caption = ""
   
9. Va_FullName1 = App.Path & "\tools\Print.txt"
   
10. '====创建文件
    
11. If Dir(Va_FullName1, vbDirectory) = "" Then
    
12.     Set fs = CreateObject("Scripting.FileSystemObject")
    
13.     Set D = fs.CreateTextFile(Va_FullName1, True)
    
14. End If
    
15. '====信息读取
    
16. Dim Va_i1 As Integer
    
17. 
    
18. '读取文本文件信息，获取Server信息
    
19. '----------------------------------------------------
    
20. Va_lngHandle1 = FreeFile(0)                   '获得文件的句柄
    
21.    
    
22. Open Va_FullName1 For Input As Va_lngHandle1     'For后面的参数表示以何种方式打开文件，Input是读取，Output是覆盖写入，Append是追加写入
    
23. Do While Not EOF(Va_lngHandle1)              '循环直到文件尾
    
24.     Line Input #Va_lngHandle1, strLine       '每次读取一行存放在strLine变量中
    
25.     If Va_i1 = 0 Then Va_A1 = strLine
    
26.     If Va_i1 = 1 Then Va_A2 = strLine
    
27.     Va_i1 = Va_i1 + 1
    
28. Loop                '显示得到的全部分内容
    
29. Close Va_lngHandle1     '关闭文件
    
30. '====Server信息读取
    
31. Label1.Caption = Va_A1
    
32. Label2.Caption = Va_A2
    
33. 
    
34. '改为全路径
    
35. If Mid(App.Path, Len(App.Path), 1) = "" Then
    
36.     Label2.Caption = App.Path & "Reports" & Label2.Caption
    
37. '    Label1.Caption = App.Path & Label1.Caption
    
38. Else
    
39.     Label2.Caption = App.Path & "\Reports" & Label2.Caption
    
40. '    Label1.Caption = App.Path & "" & Label1.Caption
    
41. End If
    
42. 
    
43. 
    
44. '==========================================================
    
45.     '创建报表对象
    
46.     Set Report = New grproLibCtl.GridppReport
    
47. 
    
48.     '载入报表模板文件，必须保证 Grid++Report 的安装目录在‘C:\Grid++Report 4.5’下，
    
49.     '关于动态设置报表路径与数据绑定参数请参考其它例子程序
    
50. '    Report.LoadFromFile ("C:\Grid++Report 5.0\Samples\Reports\1a.简单表格.grf")
    
51. '    Report.DetailGrid.Recordset.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\Grid++Report 5.0\Samples\Data\Northwind.mdb"
    
52.     Report.LoadFromFile (Label2.Caption)
    
53.     Report.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Label1.Caption & ";password="   '设定参数集合的数据源
    
54.     Report.DetailGrid.Recordset.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Label1.Caption & ";password="  '设定明细网格的数据源
    
55.     '设置报表查询显示器控件的关联报表对象
    
56.     GRPrintViewer1.Report = Report
    
57. 
    
58.     '启动报表运行
    
59.     GRPrintViewer1.Start
    
60.    
    
61. End Sub
    
62. 
    
63. Private Sub Form_Resize()
    
64. Me.GRPrintViewer1.Width = Me.Width - Shape1.Width
    
65. Me.GRPrintViewer1.Height = Me.Height - Shape1.Height
    
66. End Sub
    

复制代码

大愿望

楼主请继续，不要停

yanwei82123300

真主老师，能否给条炖好的鱼吃呀！即例子，谢谢

zhouyio

aaa

xlb004

呵呵呵呵呵呵呵呵哈哈哈

a30088

感谢楼主分享心得，友情再顶一下