奉献出几天心血写的通用代码，大家共享．目前自认比较好了，想请大家挑毛病，谁挑出来用分数感谢．分不够再加

以下程序用于用记录集填充msflexgrid表格，参数一为表格控件名，参数二为ado记录集名．Public Function datatogrid(pGrid As MSHFlexGrid, rs As ADODB.Recordset) As Boolean
    '本函数特别要求，对于含的小数点的数值型数据，要补足小数点后两位
    '功能：将记录添充到表格中
    '接收参数：表格名称和记录集
    '表头内容全部居中，其余单元格根据类型居左或居右

    Dim i As Integer, j As Integer, str As String       'str用于存放字段内容
    Dim rscol As Integer                                '字段的序号,不是表格列的序号
    On Error GoTo gherr

    '首先判断记录集是否有内容[如果无内容则不做任何操作就直接返回]
    If rs.RecordCount < 1 Then
        datatogrid = False
        Exit Function
    End If

    '下面进行表格填充
    pGrid.Redraw = False                                '不重绘，目的是提高速度

    With pGrid
        .Clear
        .FixedRows = 1                                  '固定行
        .Row = 1                                        '活动单元行
        .Col = 1                                        '活动单元列

        rs.MoveLast
        rs.MoveFirst                                '移动记录，如果不移动，有时候RecordCount会统计不准确

        .Cols = rs.Fields.Count + 1                 '设定表格列数，统计字段数量,列数要比字段数多一个，第一列为空列,当记录指示器用
        .Rows = rs.RecordCount + 1                  '该设定决定表格有多少行显示数据，很重要        .TextMatrix(0, 0) = ""                      '设定第0列表头，为空

        '添加各个字段的名称[添加表头]
        For i = 1 To rs.Fields.Count                '循环显示字段名称,有多少个字段则循环多少次

            'i就是表格的当前列，第0列是记录指示器，不在本循环中处理
            rscol = i - 1                                           '比如第1列存放的是rs(0)的内容，故有i-1的关系
            .Row = 0
            .Col = i
            .CellAlignment = 4                                     '表头都设成居中对齐
            .TextMatrix(0, i) = rs.Fields(rscol).Name               '显示字段名称
        Next

        '第一行放字段名，再加上记录数，就是表格应有的总行数
        For i = 1 To rs.RecordCount                     '循环显示记录,有多少条记录则循环多少次
                .Row = i                                '当前行随着添充数据走

                '第0列做记录指示器用，不填充数据,所以每一行都从第一列开始填
                For j = 1 To rs.Fields.Count            '循环处理各个列

                    .Col = j                            '表格定位到相应的列
                    rscol = j - 1                       '字段的序号,第一列对应rs的第0列字段,故有j-1的关系

                    '根据不同的类型，设置不同的格式
                    Select Case rs.Fields(rscol).Type

                        Case adDecimal, adDouble, adSingle, adNumeric

                            '设定为右对齐
                            .CellAlignment = 7

                           If Val(rs.Fields(rscol).Value & "") = 0 Then    '为0要不显示
                                str = ""
                            Else

                                '根据数据库中的字段小数位数的定义设置格式
                                Select Case rs.Fields(rscol).NumericScale
                                    Case 1
                                        str = Format(Trim(rs.Fields(rscol) & ""), "#0.0")
                                    Case 2
                                        str = Format(Trim(rs.Fields(rscol) & ""), "#0.00")
                                    Case 3
                                        str = Format(Trim(rs.Fields(rscol) & ""), "#0.000")
                                    Case Else
                                        str = Format(Trim(rs.Fields(rscol) & ""), "#0.0#")
                                End Select
                            End If

                        Case adBigInt, adInteger, adTinyInt, adSmallInt

                            '设定为右对齐
                            .CellAlignment = 7
                           If Val(rs.Fields(rscol).Value & "") = 0 Then    '为0要不显示
                                str = ""
                            Else
                                str = Trim(rs.Fields(rscol).Value & "")
                            End If

                        Case Else

                            '设定为左对齐
                            .CellAlignment = 1
                            str = Trim(rs.Fields(rscol).Value & "")
                    End Select

                    .TextMatrix(i, j) = str

                Next
                rs.MoveNext                             '显示下一条记录
        Next
        '设定第几行显示在最前面(用toprow属性)
        .TopRow = 1
        datatogrid = True                               '返回true
    End With
    pGrid.Redraw = True              '填完数据后，充许重绘
    Exit Function
gherr:
    datatogrid = False
End Function

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

粗看了一下：
1。循环加载数据过程中使用doevents比较好一些
2。现实使用中经常是不能从数据库读去数据就直接显示的，所以写成过程通用性不够
3。从过程的分割来看，建议分成三个过程一。加载Title  二。加载数据三。数据格式化
   这样维护可能会方便些以上意见不知道对不对,仅供参考
在结果集过大的情况下，这种捆绑模式效率会很低，所以作为通用的rs与msh的捆绑函数，应该考虑到是采用先期绑定还是后期绑定
在结果集过大的情况下，这种捆绑模式效率会很低，所以作为通用的rs与msh的捆绑函数，应该考虑到是采用先期绑定还是后期绑定
-------------
谢谢您的指教,不过这个函数只是完成填充单元格的作用.也就是将一个记录集内容显示在mshflexgrid中,我不太清楚您说的捆绑函数是什么意思,请指教.
还有:先期绑定还是后期绑定是指的什么呀?
For i = 1 To rs.RecordCount
     For j = 1 To rs.Fields.Count
          Select Case rs.Fields(rscol).Type
rs.Fields.Count ,rs.Fields(rscol).Type 可在循环体外部算好，不应多次计算。'根据不同的类型，设置不同的格式
建议分出去单独做为一个函数，速度会变慢，但维护性、通用性会更好
直接用msflexgrid绑定ADO控件,adodc1.Refresh刷新数据库就可以将ADO控件所连接的数据库里的记录显示出来了~~何必写得这么麻烦呢?~~想不通~..
首先谢谢以上诸位老师的指教，我发贴的目的就是争求意见的。以找出问题。
对于以下几个问题，还请各位回贴老师再次请教，谢谢：
---------------------------
您说：
這控件不是可以直接綁定嗎？
為何還要一格格浪費時間去填？直接用msflexgrid绑定ADO控件,adodc1.Refresh刷新数据库就可以将ADO控件所连接的数据库里的记录显示出来了~~何必写得这么麻烦呢?~~想不通~..
我说：
我也想用直接绑定，可是发现绑定的方法无法设置单元格的格式，比如小数型字段，我要求右对齐，而且保留两位小数。可是这个需要用绑定的方法可以实现吗？
你说：
给我的感觉就是写这样的代码没什么用~~最起码我不会用这方法~~速度慢而且浪费时间~~
说到挑毛病~~你用这方法本身就是毛病~~最起码我是这样想的~~我说得不对的话请大家指出来~~学习中~~
我说：
请问您用哪种方法呢？能指教一下吗？
你的效率不高你的记录集肯定必须是 rs.open sql,cn,3,3
如果是1,1
Rows = rs.RecordCount + 1
就会出错通用性不行
我就不明白了  set msh.datasouse=rs不行吗格式可以单独调的写一个通用的调试格式的函数不行吗不用这样吧
我就不明白了 set msh.datasouse=rs不行吗格式可以单独调的写一个通用的调试格式的函数不行吗不用这样吧
-----------------
谢谢，我正要问的，如何在执行了set msh.datasouse=rs之后再设置格式呀？
还有，设置datasource的方法一定快吗？我以前认为填充表格在最底层的操作也是一个格子一个格子的填充呀！
楼主，恕我冒昧，我把您的代码发到这个网站了，请去看看。http://www.mndsoft.com  (枕善居---国内知名vb中文网站 :）
楼主，恕我冒昧，我把您的代码发到这个网站了，请去看看。http://www.mndsoft.com  (枕善居---国内知名vb中文网站 :）
-------------------
谢谢鼓励!
我会按照几位老师的指教修改一下，结贴后再发一次代码。
不可能
SQL中先格式化每个字段的数据格式
然后用 set Grid.DataSource= rs
再重新写一下Grid的表头就OK了