# Re: listbox选项填入资料库的问题~~~~~求救!!

Posted by 小v on October 14, 1999 at 09:43:07:

In Reply to: listbox选项填入资料库的问题~~~~~求救!! posted by 阿帝拉 on October 13, 1999 at 15:29:52:

: Data1.Recordset.AddNew
: Dim I As Integer
: For I = 0 To List1.ListCount - 1
: Next I
: Data1.Recordset(I) = txtSource.Text
: Data1.Recordset.Update

: 请问一下上面的程式码哪里有误要修正的...
: 我现在是要把选到的项目加到listbox中...
: 而且全部加到资料库中....
: 新手求救........... :~~~

以下程式码是将LIST1所有的项目加到Table中的AAA栏位:
For i = 0 To List1.ListCount - 1
Data1.Recordset.AddNew
Data1.Recordset("AAA") = List1.List(i)
Data1.Recordset.Update
Next i

Follow Ups: