动态设置交叉报表
时 间:2012-09-17 17:24:36
作 者:薛武元 ID:240 城市:常州
摘 要: 最近为交叉报表的问题苦恼,记得以前有人发过一个动态设置的,找不到了,思路是设置足够多的字段,然后用代码设置标签和字段数据源,然后隐藏不需要显示的。
我按此思路做了个例子,不知道有没有更好的办法~ 如果有的话,欢迎跟帖!~
正 文:
最近为交叉报表的问题苦恼,记得以前有人发过一个动态设置的,找不到了,思路是设置足够多的字段,然后用代码设置标签和字段数据源,然后隐藏不需要显示的。
我按此思路做了个例子,不知道有没有更好的办法~ 如果有的话,欢迎跟帖!~
主要代码如下:
Private Sub Command0_Click()
On Error GoTo Err_Command0_Click
Dim FieldCount As Integer '字段数
FieldCount = CurrentDb.QueryDefs("score_交叉查询").Fields.Count
Dim stDocName As String '报表名称
Dim Lb As Label
Dim txt As TextBox
stDocName = "score_交叉报表"
DoCmd.OpenReport stDocName, acViewDesign
'-------------------------------------------------------------------------------------------------------------------------------------
'设置报表标签和数据源
Dim i As Integer
For i = 1 To FieldCount - 1
Reports("SCORE_交叉报表").Controls("Label" & i).Caption = CurrentDb.QueryDefs("score_交叉查询").Fields(i).Name '设置标签
Reports("SCORE_交叉报表").Controls("TXT" & i).ControlSource = CurrentDb.QueryDefs("score_交叉查询").Fields(i).Name '更改数据源
Next
'-------------------------------------------------------------------------------------------------------------------------------------
'将没有用到的控件隐藏
Dim n As Integer
Dim INTcount As Integer
INTcount = 9 - FieldCount '9是此报表预先准备的字段数量
For n = 1 To 9
If n < FieldCount Then
Reports("SCORE_交叉报表").Controls("Label" & n).Visible = True
Reports("SCORE_交叉报表").Controls("txt" & n).Visible = True
Else
Reports("SCORE_交叉报表").Controls("Label" & n).Visible = False
Reports("SCORE_交叉报表").Controls("txt" & n).Visible = False
End If
Next
'-----------------------------------------------------------------------------------------------------
DoCmd.Close acReport, "score_交叉报表", acSaveYes
DoCmd.OpenReport "score_交叉报表", acViewPreview
Exit_Command0_Click:
Exit Sub
Err_Command0_Click:
MsgBox Err.Description
Resume Exit_Command0_Click
End Sub
附件点击下载此
Access软件网QQ交流群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)