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

Posted by 大汉堡 on October 21, 1999 at 00:17:18:

In Reply to: Re: listbox选项填入资料库的问题~~~~~高手求救!! posted by Joint on October 20, 1999 at 09:44:47:

:
: : For I = 0 To List1.ListCount - 1
: : If List1.Selected(I) Then
: : Data1.Recordset(I) = txtSource.Text
: : End If
: : Next I

: 我不太明白为什么是txtSource.text
: 若是我会用list1.list(i)
如果你是希望存成两笔,那
你的Data1.Recordset(I)指定的是栏位
,不是一笔资料录,应该是不行的
因为没用过Data Control所以
只能告诉你ADO的方式:
: : For I = 0 To List1.ListCount - 1
: : If List1.Selected(I) Then
ADODC1.Recordset.AddNew
: : ADODC1.Recordset(FieldName) = list1.list(i)
ADODC1.Recordset.Update
: : End If
: : Next I

Follow Ups: