📄 5542.html

📁 VB技巧问答10000例 VB技巧问答10000例

💻 HTML

字号:

<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 AndyLin on September 11, 1998 at 11:48:43:<p>
In Reply to: <a href="5521.html">再次请教尧哥</a> posted by Charles on September 11, 1998 at 02:14:21:<p>
:     非常多谢您的帮忙, 大致上我已掌握了当中的要诀, 可是当我执行<br>: 该程式时总是出现以下的错误讯息:<p>: 	执行期错误 '91':<br>: 	没有设定物件变数或 With 区块变数<p>: 而侦错后发觉指 Private sub Form_Activate() 中产生错误.<p>在 Form_Active 事件中,Data控制项可能尚未建立其相关之资讯,所以会有错误产生<br>:      可是我却未有发觉当中有何错误, 这是一串常用的指令, 应该不可<br>: 能有错, 而我亦尝以别的方法去加入物件:<p>:     Private sub Form_activate()<br>: 	While not Data1.Recordset.EOF<br>: 	S1 = ""<br>: 	For i = 0 to Data1.Recordset.Fields.Count -1<br>: 	  s1 = s1 & Data1.Recordset.Fields("产品名称") & Chr(vbkeyTab)<br>: 	Next<br>: 	List1.AddItem S1<br>: 	Data1.Recordset.MoveNext<br>:     Wend<br>: 	While not Data1.Recordset.EOF<br>: 	S2 = ""<br>: 	For i = 0 to Data2.Recordset.Fields.Count -1<br>: 	  s2 = s2 & Data2.Recordset.Fields("产品名称") & Chr(vbkeyTab)<br>: 	Next<br>: 	List2.AddItem S2<br>: 	Data2.Recordset.MoveNext<br>:     Wend<p>:     但同样有这个讯息出现, 烦劳尧哥可再次指教.<p>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 5542-->
<!--top: 5560--><li><a href="5560.html">Re: 再次请教尧哥</a> <b>尧哥</b> <i>20:08:08 9/11/98</i>
(<!--responses: 5560-->0)
<ul><!--insert: 5560-->
</ul><!--end: 5560-->
</ul><!--end: 5542-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -