列表框的问题，很急~~~~呀！！！???

Question

代码应改为：For i = 0 To List2.ListCount - 1
  If List2.Selected(i) Then
    rec.addnew
    rec.Fields("khdm").Value = List2.list(i)
    rec.update
  End If
Next i

Answer 1

For i = 0 To List2.ListCount - 1
  If List2.Selected(i) Then
  rec.addnew  
  rec.Fields("khdm").Value = List2.list(i)
  End If
next 
  

Answer 2

For i = 0 To List2.ListCount - 1
  If List2.Selected(i) Then
  rec.Fields("khdm").Value = List2.list(i)
  rec.movenext
  End If
  Next i

Answer 3

For i = 0 To List2.ListCount - 1
  If List2.Selected(i) Then
    rec.addnew
    rec!字段名 = List2.list(i)
    rec.update
  End If
Next i绝对可以!!!!!!!

Answer 4

上面If List2.Selected(i) Then
    end if
这些去掉看看！

Answer 5

谁能告诉我在列表框里选多个项目后，怎样把选的多个项目同时存到SQL数据库里面？？？
我的程序是这样的，但还是不能把选择的多项同时存到库里。急呀~~~~~~~~~~
Private Sub Command1_Click()
  Dim i As Integer
  rec.Open " select * from zdgckh", serverconnect, adOpenKeyset, adLockOptimistic
  rec.AddNew
  rec.Fields("gcdm").Value = Left$(List1.Text, 5)
  For i = 0 To List2.ListCount - 1
  If List2.Selected(i) Then
  rec.Fields("khdm").Value = Left$(List2.List(i), 4)
  rec.MoveNext
  End If
  Next i
  rec.Update
  rec.Close
End Sub