# Re: 再次请教尧哥

Posted by AndyLin on September 11, 1998 at 11:48:43:

In Reply to: 再次请教尧哥 posted by Charles on September 11, 1998 at 02:14:21:

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

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

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

在 Form_Active 事件中,Data控制项可能尚未建立其相关之资讯,所以会有错误产生
: 可是我却未有发觉当中有何错误, 这是一串常用的指令, 应该不可
: 能有错, 而我亦尝以别的方法去加入物件:

: 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: 再次请教尧哥 尧哥 20:08:08 9/11/98 (0)