[CODE=VB]
For i = 1 To rs.RecordCount
Set List = .ListItems.Add '这句你是增一个空白行吗?
'可以这样改
Set List = .ListItems.Add , "NO" & i, i '要不要后面这个i ,如果是就不要最后一个i了.增加空白行有什么意思?
With List
.Text = CStr(i)
.SubItems(1) = rs.Fields(0)
.SubItems(2) = rs.Fields(1)
End With
rs.MoveNext
Next i
[/Code]
我是以下这样啊
For i = 1 To rs.RecordCount
Set List = .ListItems.Add
With List
.Text = CStr(i)
.SubItems(1) = rs.Fields(0)
.SubItems(2) = rs.Fields(1)
End With
rs.MoveNext
Next i