mshflexgrid 显式自动排列序号问题？？

Question

我想让它自动排列序号，编写的源代码为：'增加记录时，表格编号自动加一
With MSF1
.Col = 0
.Row = MSF1.Rows - 1
X = .Text
.AddItem X + 1
End With
'删除记录时，表格编号自动减一
With MSF1
N = .Row
.RemoveItem (N)
For j = N To MSF1.Rows - 1
.Col = 0
.Row = j
.Text = str(Val(.Text) - 1)
Next
'删除时编号自动递减
End With
结果是隐式的，点击时显示一下，接着就没了？？？？

Answer 1

to myhgpy: 你用过吗？我是这还是只显一下？？？？？？？