用记录集填充表格函数-麥田专栏

'------------------------------------------------------------------------------------------------------------------------
'函数名：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