📄 20120.html
字号:
<html> <head> <title>Re: listbox选项填入资料库的问题~~~~~求救!!</title> </head> <body bgcolor="#FFFFFF" vlink="#808080"> <center> <h1>Re: listbox选项填入资料库的问题~~~~~求救!!</h1> </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by 小v on October 14, 1999 at 09:43:07:<p>In Reply to: <a href="20086.html">listbox选项填入资料库的问题~~~~~求救!!</a> posted by 阿帝拉 on October 13, 1999 at 15:29:52:<p>: Data1.Recordset.AddNew<br>: Dim I As Integer<br>: For I = 0 To List1.ListCount - 1<br>: Next I<br>: Data1.Recordset(I) = txtSource.Text<br>: Data1.Recordset.Update<p>: 请问一下上面的程式码哪里有误要修正的...<br>: 我现在是要把选到的项目加到listbox中...<br>: 而且全部加到资料库中....<br>: 新手求救........... :~~~<p>以下程式码是将LIST1所有的项目加到Table中的AAA栏位:<br>For i = 0 To List1.ListCount - 1<br> Data1.Recordset.AddNew<br> Data1.Recordset("AAA") = List1.List(i)<br> Data1.Recordset.Update<br>Next i<p><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 20120--></ul><!--end: 20120--><br><hr size=7 width=75%><p></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -