用MSHFLEXGRID显示从数据库中取出的数据(1000行以上)则出现屏幕不断闪烁情况

[jtycgs]

小菜请教:用MSHFLEXGRID显示从数据库中取出的数据时如行数较多(1000行以上)则出现屏幕不断闪烁情况直到全部数据填充完才停止(行数少可以),请教大侠是不是有什么更好的显示方式或者有什么解决办法,谢谢各位大哥.
代码如下:
Set conpayrs = New ADODB.Recordset
Set db1 = New ADODB.Connection
db1.Open ConStra
conpayrs.Open "SELECT * FROM xs200409 order by fhrq desc", db1, adOpenStatic, adLockOptimistic
createMSHFLEXGRID1
MSHFLEXGRID1.Row = MSHFLEXGRID1.Row
MSHFLEXGRID.Col = 1
If conpayrs.RecordCount <> 0 Then
For r = 1 To conpayrs.RecordCount
With conpayrs
MSHFLEXGRID.rows = MSHFLEXGRID1.rows + 1
MSHFLEXGRID.Col = 1: MSHFLEXGRID1.Text = Format(!fhrq, " yyyy/mm/dd")
MSHFLEXGRID.Col = 2: MSHFLEXGRID1.Text =!fhdw
MSHFLEXGRID.Col = 3: tjgrid1.Text = !fhsl
MSHFLEXGRID.Col = 4: tjgrid1.Text = Format(!fhje, "###,###,##0.00")
MSHFLEXGRID1.Row = MSHFLEXGRIDtjgrid1.Row + 1
MSHFLEXGRID1.Col = 1
.MoveNext
End With
Next
End If

[RUKYO]

Redraw 属性


返回或设置一个值，决定 MSHFlexGrid 是否应该在每次更改后自动地重绘。

语法

object.Redraw [=Boolean]

Redraw 属性的语法包含如下部分：

部分 描述
object 一个对象表达式，其值为“应用于”列表中的一个对象。
Boolean 一个布尔表达式，指定 MSHFlexGrid 是否应该在每次更改后自动地重绘。


设置值

对 Boolean 的设置如下所示：

部分 描述
True MSHFlexGrid 在每次更改后自动地重绘。这是缺省设置。
False MSHFlexGrid 在每次更改后不重绘。


说明

可以在代码中使用这一属性，来减少当 MSHFlexGrid 的内容进行广泛更新时的闪烁。

[RUKYO]

Redraw 属性示例
下面的代码关闭重绘，对 MSHFlexGrid 的内容作了几次更改，然后打开重绘来显示结果。

注意 如果正在使用 MSFlexGrid，用“MSFlexGrid1”代替“MSHFlexGrid1”。

Dim i As Integer
' 冻结 MSHFlexGrid 避免闪烁。
MSHFlexGrid.Redraw =False
' 更新 MSHFlexGrid 内容
For i =MSHFlexGrid1.FixedRows To MSHFlexGrid1.Rows - 1
MSHFlexGrid1.TextMatrix(i, 1) =GetName(i, 1)
MSHFlexGrid1.TextMatrix(i, 2) =GetName(i, 2)
Next
' 显示结果
MSHFlexGrid1.Redraw =True

[jtycgs]

先谢谢楼上兄弟,我去试一下

[guxizhw]

我试过用visible＝false visible＝true来搞定的，时间不长的话可以试试：）

[zwjleo]

我写MSHFLEXGRID的时候用TEXTMETRIX这个属性来填充表格的
10000多条记录写进去也没有什么闪
最多等了3秒多一点

[yingxiangchen]

我建议最好使用MSHFLEXGRID的DataSouce属性来获得数据，非常快，不闪

[yjyqhyx]

可是用绑定的办法，如何设置数值型的对齐方式呢？
默认是左对齐的，可是数值就是右对齐的。如何设置呢？