# 再次请教尧哥

Posted by Charles on September 11, 1998 at 02:14:21:

非常多谢您的帮忙, 大致上我已掌握了当中的要诀, 可是当我执行
该程式时总是出现以下的错误讯息:

执行期错误 '91':
没有设定物件变数或 With 区块变数

而侦错后发觉指 Private sub Form_Activate() 中产生错误.

可是我却未有发觉当中有何错误, 这是一串常用的指令, 应该不可
能有错, 而我亦尝以别的方法去加入物件:

Private sub Form_activate()
While not Data1.Recordset.EOF
S1 = ""
For i = 0 to Data1.Recordset.Fields.Count -1
s1 = s1 & Data1.Recordset.Fields("产品名称") & Chr(vbkeyTab)
Next
List1.AddItem S1
Data1.Recordset.MoveNext
Wend
While not Data1.Recordset.EOF
S2 = ""
For i = 0 to Data2.Recordset.Fields.Count -1
s2 = s2 & Data2.Recordset.Fields("产品名称") & Chr(vbkeyTab)
Next
List2.AddItem S2
Data2.Recordset.MoveNext
Wend

但同样有这个讯息出现, 烦劳尧哥可再次指教.

Follow Ups:

- Re: 再次请教尧哥 AndyLin 11:48:43 9/11/98 (1)
  - Re: 再次请教尧哥 尧哥 20:08:08 9/11/98 (0)