有人在ACCESS中使用过MSFlexGrid控件的吗？

zhengjialon

有使用过的可以交流一下

tz-chf

好象没必要用这个，我在VB里不得不用这个。

andymark

MSFlexGrid 胜在免费,功能没有VSFlexGrid强

huanghai

龙哥要干什么呀？

zhengjialon

现在的一些功能用ACCESS中的子窗体实现不了，只好用MSFlexGrid来实现，现在有几个问题，知道的帮我看一下：
1.是不是要装了VB才行使用？现在看别人的示例是没问题的，但是控件不能复制，不能在新窗体中插入，如果装了VB可以使用，发布给用户的时候需要注意哪些问题？
2.加载大量数据的时候速度问题是怎么解决的？目前看了一些方法，一般都是分页形式，但如果和滚动条结合起来使用不是很好
3.目前的3种比较流行的控件中我知道VSFlexGrid是最强，但是价格不便宜，还有MSFLXGRD和MSHFLXGD两种，刚才andymark说MSFLXGRD是免费，我查了一下，好你是VSFlexGrid对MSFLXGRD向下兼容的，我想可能会先使用MSFLXGRD开发，如果将来有需要就转到VSFlexGrid，这样是不是可行？

zhengjialon

顶上来

tz-chf

1，VB情况下，不需要装VB，ocx文件放在同一目录下就行。
2，多大量的数据，慢到什么程度？贴代码上来看。
3，应该可行。

zhengjialon

2.  100条左右没问题，到3000条左右需要10秒钟，这样就不切实际了，下面的代码是从示例中（FlexGrid_Demo）截取的，主要是慢在需要一个一个的循环行和列去填充
示例中的数据本来是10条，我加到3000条再测，速度就比较慢了：
Set RST = CurrentDb.OpenRecordset("SELECT * FROM qryProjects")                              'make list of Projects
    mRowCount = 2                                                                               'set initial (non-fixed) row counter
    Do Until RST.EOF                                                                            'step thru recordset
        flxgrd.AddItem RST!ProjectID & vbTab _
        & "     " & RST!ProjectName & vbTab _
        & Format(RST!StartDate, "Short Date") & vbTab _
        & Format(RST!EndDate, "Short Date") & vbTab _
        & RST!ResourceID                                                                        'and add each Project record to list
        
        SelectRange flxgrd, mRowCount, 1, mRowCount, 4                                          'show Project rows in Bold (Cols 1-4 only)
        flxgrd.CellFontBold = True
        
        ProgressLine flxgrd, vPath & "PurpleLine.bmp", vBeginDate, RST!StartDate, RST!EndDate   'draw line on grid (if any)
        
        mRowCount = mRowCount + 1                                                               'inc Row counter
        
        flxgrd.Col = 1                                                                          'set Col No for +/-/x sign
        If DCount("ID", "tblProjectTasks", "ProjectID = " & RST!ProjectID) > 0 Then             'if this Project has 1 or more Task records then
            If InStr(1, mExpand, "." & RST!ProjectID & ".") > 0 Then                            'if this .ProjectID. is in expand string then
                Set flxgrd.CellPicture = LoadPicture(vPath & "Minus Sign.bmp")                  'copy - image to Project rows (Col 1)
                ShowTasks flxgrd, RST!ProjectID, vPath, vBeginDate                              'show Tasks for this Project
            Else
                Set flxgrd.CellPicture = LoadPicture(vPath & "Plus Sign.bmp")                   'copy + image to Project rows (Col 1)
            End If
        Else
            Set flxgrd.CellPicture = LoadPicture(vPath & "Cross Sign.bmp")                      'copy x image to Project row if no Tasks data
        End If
        RST.MoveNext                                                                            'move to next Order record
    Loop
    RST.Close
    Set RST = Nothing

tz-chf

我的比较简单，固定49行。你还要图片什么，可能是慢点。一下出3000条数据，出这么多干什么，也看不过来啊。

andymark

DCOUNT  数据量大会很慢的