Question

谁帮我解决此问题，一定高分悬赏。

ListView1中明明我已经选择了好几项，为什么只能添加一项而且无论选择哪个都永远是第一项到paper表里？

代码：
set dbrs=DataEnv.rspaper
dim i as integer
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).Selected Then
dbrs.AddNew
dbrs.Fields("PaperID") = dbrs.RecordCount + 1
dbrs.Fields("PaperName") = Trim(Text1.Text)
dbrs.Fields("QuestionID") = ListView1.ListItems(i)
dbrs.Fields("Score") = ListView1.ListItems(i).SubItems(2)
dbrs.Fields("QType") = "填空题"
End If
Next i

Answer 1

sorry