📄 5521.html

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

💻 HTML

字号:

<html>
  <head>
    <title>再次请教尧哥</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>再次请教尧哥</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by Charles on September 11, 1998 at 02:14:21:<p>
    非常多谢您的帮忙, 大致上我已掌握了当中的要诀, 可是当我执行<br>该程式时总是出现以下的错误讯息:<p>	执行期错误 '91':<br>	没有设定物件变数或 With 区块变数<p>而侦错后发觉指 Private sub Form_Activate() 中产生错误.<p>     可是我却未有发觉当中有何错误, 这是一串常用的指令, 应该不可<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>    但同样有这个讯息出现, 烦劳尧哥可再次指教.
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 5521-->
<!--top: 5542--><li><a href="5542.html">Re: 再次请教尧哥</a> <b>AndyLin</b> <i>11:48:43 9/11/98</i>
(<!--responses: 5542-->1)
<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-->
</ul><!--end: 5521-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -