MSTR = MS1.TextMatrix(9, 3)
List1.AddItem MS1.TextMatrix(9, 3)
For i = 9 To MS1.Rows
If MSTR <> MS1.TextMatrix(i, 3) Then
Set Item = ListView1.ListItems.Add(, , MS1.TextMatrix(i, 3), 1)
MSTR = MS1.TextMatrix(i, 3)
Else
End If

能帮我写个注释吗？上面这段代码我看不太懂，麻烦了哈

MSTR = MS1.TextMatrix(9, 3) '賦值
List1.AddItem MS1.TextMatrix(9, 3) 'LIST新建
For i = 9 To MS1.Rows '循環從9到MS1的行數
If MSTR <> MS1.TextMatrix(i, 3) Then
Set Item = ListView1.ListItems.Add(, , MS1.TextMatrix(i, 3), 1)
MSTR = MS1.TextMatrix(i, 3)
Else
End If '如果MSTR不等于mms1.textmatrix(9,3)則LIST新建I項````

[此贴子已经被作者于2006-12-27 10:42:28编辑过]