动态设置交叉报表
时 间: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交流群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access小作品】简单的待...(04.30)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
学习心得
最新文章
- 【Access小作品】简单的待办任...(04.30)
- 从另一个ACCESS数据库批量导入...(04.29)
- Access日期格式的数据导出Ex...(04.28)
- ACCESS精华集锦资料.CHM(04.25)
- Access VBA语句If Me...(04.24)
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)