用记录集填充表格函数
时 间:2008-02-18 08:00:36
作 者:ggyy66 ID:11 城市:上海 QQ:3002789054
摘 要:用记录集填充表格函数
正 文:
'------------------------------------------------------------------------------------------------------------------------
'函数名:RsFillFlex2
'功能:用记录集填充表格
'创建日期:2007-8-22
'更新日期:2007-8-22
'作者:ggyy66
'注意:从第1列开始填充数据,第0列自动生成一个序号列
'由于多出一个序号列,所以表格的列数比记录集的字段数多1
'---------------------------------------------------------------
Public Function RsFillFlex2(strcaption As String, _
grd As MSFlexGrid, _
rs As adodb.Recordset, _
Optional alignFlag As Integer = 0, _
Optional showZeroFlag As Integer = 0, _
Optional Rows_Fixed As Integer = 1, _
Optional TableHead As Integer = 1) As Boolean
'本函数特别要求,对于含的小数点的数值型数据,要根据数据表中的结构显示小数点个数
'功能:将记录添充到表格中
'参数一:表头格式
'参数二:表格控件名称
'参数三:记录集
'参数四:表示是否指定"列对齐方式",为1根据记录集的字段类型来设置,为0根据表格的formatstring设置
'参数五:是否显示数字0,为0不显示,为1要显示
'参数六:固定行数,默认为1
'参数七:表头所占的行数,默认为1 (该参数有何意义?)
'好象记录集必须是客户端游标才行,服务器端游标记录数不好取
Dim i As Long, j As Long, strField As String 'strField用于存放字段内容
Dim vnttmp As Variant '临时存放每个单元格内容[要能存放各种类型数据,故为variant型]
Dim rsCols As Long '记录集的字段数
Dim grdCols As Long 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软件网站长张志简介 (05.05)
- 【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)