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

sogelen 2008-03-26 08:17:45
'模块名称:过程: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
...全文
48 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
sogelen 2008-03-26
呵呵,,多谢兄弟,,还是有人支点下懂得快!!!!![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]
回复
yangao 2008-03-26
'把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
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7491

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2008-03-26 08:17
社区公告
暂无公告