MSHFlexGrid显示速度非常慢

Question

Private Sub showcls() '显示MSHFlexGrid
Dim HH As Integer
Dim I As Integer
HH = 1
With Grid1
    .Clear
    .BackColor = &HFFFFFF
    .FormatString = "^ |^存货代码|^类别编码|^存货名称及规格|^结存数量|^结存金额"
    .ColWidth(0) = 500
    .ColWidth(1) = 1200
    .ColWidth(2) = 1500
    .ColWidth(3) = 4000
    .ColWidth(4) = 1800
    .ColWidth(5) = 2000
    For I = 0 To 5
        .ColAlignmentFixed(I) = 4
    Next I
    For I = 1 To 3 
        .ColAlignment = 1
    Next I
    For I = 4 To 5
        .ColAlignment = 7
    Next I
    If rs.State <> adStateClosed Then
        rs.Close
    End If
    rs.CursorLocation = adUseClient
    '首先读取存货项目表
    rs.Open "select * from ICItem order by FitemID", cn, adOpenKeyset, adLockPessimistic
    If rs.RecordCount <> 0 Then
        rs.MoveFirst
        .Rows = rs.RecordCount + 1
        Do Until rs.EOF
            .Row = HH
            .Col = 0
            .Text = HH
            .Col = 1
            .Text = rs!FitemID
           .CellBackColor = &HC0FFFF  '定义第2、3、4列的背景色为黄色，为以后是否能编辑定义，黄色不能修改
            .Col = 2
            .Text = rs!LbCode
            .CellBackColor = &HC0FFFF
            .Col = 3
            .Text = rs!FitemName & "  " & rs!Fmodel
            .CellBackColor = &HC0FFFF
            .Col = 4
            .Text = Format(rs!FBegQty, "#,##0.00")
            .Col = 5
            .Text = Format(rs!FBegBal, "#,##0.00")
            HH = HH + 1
            rs.MoveNext
        Loop
         If HH = .Rows Then
            .Rows = HH + 1
         End If
            .TextMatrix(HH, 0) = HH
            .TextMatrix(HH, 1) = "合   计"
        If rssum.State <> adStateClosed Then
            rssum.Close
        End If
        rssum.Open "select sum(FBegBal) from ICInitData where left(FClsID," & ijbcd & ")='" & Left(schlb, ijbcd) & "' and FStockID=" & ick & "", cn, adOpenKeyset, adLockPessimistic
        .Col = 5
        .Text = Format(rssum.Fields(0), "#,##0.00")
        For I = 1 To 5
            .Row = HH
           .Col = I
           .CellBackColor = &HC0FFFF '最后一行全为黄色，即单元格不能编辑
        Next I
    Else
        .BackColor = &HC0FFFF
        .Rows = rs.RecordCount + 2
    End If
    rs.Close
    .ReDraw = False
    .BackColorFixed = RGB(190, 218, 178)  '定义固定表头的背景色
    .ReDraw = True
End With
End Sub
这段代码执行下来的时候，记录少的话还可以，但是如果比较多的话，显示出来就非常慢（100条以内都慢），有没有能使显示速度快一点的办法！

Answer 1

你的.ReDraw = False这句放错位置了。
这句话的意思是防止控件重绘的。你应该将这句放在添加数据之前，否则你每添加一条数据，控件都会重新绘制一次，速度可想而知了。
═══════════════════
http://www.egooglet.com 资料、源码下载http://bbs.j2soft.cn 论坛交流
═══════════════════

Answer 2

我一般是在充填数据前将其visible属性设置为false，完了再设回true。

Answer 3

不使用循环增加数据，建议使用记录集绑定。======================================================
红松软件  http://hongsong.huanqiuit.com/
软件论坛  http://5x51.com/hongsong/
本网站推出只要注册本站会员，就送一套正版软件活动，此
活动截至日期2007-08-15。所需要点软件在本网站中自己挑
选一个。论坛前10位会员，赠送VIP会员资格！！！
======================================================