请问MSFlexGrid怎么才能实现像Excel那样删除一行的效果

Question

Excel里面删除一行,
最左边的固定列的行号自动向上补齐,
即删除了一行后各行号之间仍然是连续的.我已经用最苯的办法了,但是速度不能接受啊
dim a '删除的那一行的行号
for i=a+1 to MSFlexGrid1.Rows
  MSFlexGrid.Row=i
  MSFlexGrid1.col=0
  MSFlexGrid1.Text=CStr(i)
Next

Answer 1

好象也没有好办法:dim a as Integer'删除的那一行的行号
Dim b as Integer
b=MSFlexGrid1.Rows
for i=a+1 to b
  MSFlexGrid1.TextMatrix(i,0)=i
Next

Answer 2

Dim lngRows as long ,lngRow as long 
with MSFlexGrid1
   .Redraw = False
   lngRows=.Rwos
   For lngRow=.RowSel+1 To lngRows
      .TextMatrix(lngRow,0)=lngRow-1
   Next   .RemoveItem .RowSel
   .Redraw = True
End with

Answer 3

Dim lngRows as long ,lngRow as long 
with MSFlexGrid1
   .Redraw = False
   lngRows=.Rows
   For lngRow=.RowSel+1 To lngRows
      .TextMatrix(lngRow,0)=lngRow-1
   Next   .RemoveItem .RowSel
   .Redraw = True
End with

Answer 4

呵呵，解决了。稍微改了一下
Dim lngRows as long ,lngRow as long 
with MSFlexGrid1
   .Redraw = False
   lngRows=.Rows
   For lngRow=.RowSel+1 To lngRows-1
      .TextMatrix(lngRow,0)=lngRow
   Next   .RemoveItem .RowSel
   .Redraw = True
End with