15712.html

来自「VB技巧问答10000例 VB技巧问答10000例」· HTML 代码 · 共 23 行

HTML
23 行
字号 
<html>
  <head>
    <title>Re: 我这样写错了吗?</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>Re: 我这样写错了吗?</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:live4war@yahoo.com">战豪</a> on July 16, 1999 at 01:11:54:<p>
In Reply to: <a href="15711.html">我这样写错了吗?</a> posted by 新学友 on July 16, 1999 at 00:11:53:<p>
: >我有一个程式,用一个ADO元件,ComboBox,和一个资料表(Table,mdb),资料表中<br>: >有两个栏位,甲和乙,共约有15笔记录<br>: >我想要在表单载入时(Form Load),将资料表中乙栏位中所有的值,加入到<br>: >ComboBox中写法如下:<p>: 	Private Sub Form_Load()<br>: 	For i = 0 To Adodc1.Recordset.RecordCount <br>:     	Combo1.AddItem Adodc1.Recordset("乙")<br>: 	Next i<br>: 	End Sub<p>: >但是执行之后的结果是"乙"栏位中的第一笔栏位重复了" i "次<br>: >到底是那里错了, 请各位前辈多多指教....Tks<p><p><p><br>这个程序在取用较少的资料录时不会太大分别!因回圈在每次For时都要统计一次Adodc1共有几笔所以建议增加一个存放资料笔数的变数;至于你的ComboBox中多余及重复资料项,其起因于"0"这基数和未有在Adodc1之资料间移动!!<p>Private Sub Form_Load()<br>Dim iNo as Integer   '计算器,如估计大于3万笔,建议宣告为Long型别<br>With Adodc1    '简化程式存取物件时之动作<br>iNo = .Recordset.RecordCount '事先读取资料笔数<br>For i = 1 To iNo   '由1开始回圈,至iNo数<br>Combo1.AddItem .Recordset("乙")  '读取资料并向下加进ComboBox物件<br>.MoveNext   '移到下一笔资料录<br>Next i<br>End With<br>End Sub<p><p>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 15712-->
</ul><!--end: 15712-->
<br><hr size=7 width=75%><p>

</body></html>

15712.html - 源码说明

本页面展示了「VB技巧问答10000例 VB技巧问答10000例」中的 15712.html 源码文件，采用 HTML 编程语言编写，共 23 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与10000相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?