这段代码怎么理解? 看了n遍还是迷糊!!

[sogelen]

'模块名称：过程：SetOrderNO
'功能描述:用与设置VSFlexGrid控件的记录序号。
'编写日期:2004-10-10
'作者:ZQ
'特殊说明:
'修改日期:
Public Sub SetOrderNO(ByVal ctrName As Control)
Dim i As Long
Dim j As Long
j = ctrName.Rows - 1
For i = 1 To j
ctrName.TextMatrix(i, 0) = i
Next
End Sub

[yangao]

'把VSFlexGrid传到这个方法里面
Public Sub SetOrderNO(ByVal ctrName As Control)
Dim i As Long
Dim j As Long
'获取VSFlexGrid的除了标头的行数
j = ctrName.Rows - 1
'通过循环为第一列赋值序号
For i = 1 To j
ctrName.TextMatrix(i, 0) = i
Next
End Sub

[sogelen]

呵呵,,多谢兄弟,,还是有人支点下懂得快!!!!![Quote=引用楼主 sogelen 的帖子:]
'模块名称：过程：SetOrderNO
'功能描述:用与设置VSFlexGrid控件的记录序号。
'编写日期:2004-10-10
'作者:ZQ
'特殊说明:
'修改日期:
Public Sub SetOrderNO(ByVal ctrName As Control)
Dim i As Long
Dim j As Long
j = ctrName.Rows - 1
For i = 1 To j
ctrName.TextMatrix(i, 0) = i
Next
End Sub
[/Quote]