用记录集填充表格的VB函数

时间:2010-01-26 10:10:24  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:出一个序号列,所以表格的列数比记录集的字段数多1'-------------------------------------------------------Public Function RsFillFlex2(strcaption As String, _                            grd As MSFlexGrid, _...
  正文:

'---------------------------------------------------------
'函数名:RsFillFlex2
'功能:用记录集填充表格
'创建日期:2007-8-22
'更新日期:2007-8-22
'注意:从第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                                 '表格的列数on Error GoTo errhandler

    

    


    '记录集未打开,则返回错误
    If rs.State <> adStateOpen Then
        MsgBox "没有可供显示的记录集!", 32, "提示"
        RsFillFlex2 = False
        Exit Function
    End If'首先判断记录集是否有内容[如果无内容要清除表格原有内容],因为记录集正常打开的情况下,也可能一条记录都没有
    If rs.BOF = True And rs.eof = True Then

"用记录集填充表格的VB函数"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/VB/12391.html

 1/7    1 2 3 4 5 6 下一页 尾页


关键字:

关于《用记录集填充表格的VB函数》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td