计算机科学论坛--显示贴子

以文本方式查看主题

-  计算机科学论坛  (http://bbs.xml.org.cn/index.asp)
--  『 Dot NET,C#,ASP,VB 』  (http://bbs.xml.org.cn/list.asp?boardid=43)
----  实时错误91，对象变量或with块变量未设置  (http://bbs.xml.org.cn/dispbbs.asp?boardid=43&rootid=&id=8442)

--  作者：nightgale
--  发布时间：6/23/2004 10:00:00 AM

--  实时错误91，对象变量或with块变量未设置
为什么我在运行vb的时候会出现上面所说的情况呢~
我是在一个循环里运行程序的~

--  作者：cwzb
--  发布时间：7/1/2004 10:52:00 PM

--
给代码看看。

--  作者：tatook
--  发布时间：1/3/2005 4:53:00 PM

--
Private Sub Command1_Click()
Dim str As String
If Combo1.Text = "" Or Text1.Text = "" Then
MsgBox "请输入查询条件和内容!"
Exit Sub
End If
str = Combo1.Text & "like" & " '" & Text1.Text & " '"
datPrimaryRS.Recordset.Find str
If datPrimaryRS.Recordset.AbsolutePosition < adPosBOF Then
MsgBox "没有相应记录！"
datPrimaryRS.Recordset.MoveFirst
End If
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Combo1.Text = ""
End Sub

Private Sub Form_Load()
Me.datPrimaryRS.ConnectionString = "provider=microsoft.jet.oledb.8.51;"
datasourse = App.Path & "\database\客户关系管理1.mdb"
Me.datPrimaryRS.RecordSource = "select 谈话人,内容,日期,备注 from 谈话备忘录 order by 联系ID"

Combo1.AddItem "谈话人"
Combo1.AddItem "内容"
Combo1.AddItem "日期"
Combo1.AddItem "备注"
End Sub

--  作者：tatook
--  发布时间：1/3/2005 4:56:00 PM

--
我也遇到这种问题
查过说是91错误，但是不知道错在什么地方
怎么修改更是无从下手？

--  作者：hhhcddd
--  发布时间：6/1/2005 3:34:00 PM

--
我的更搞笑
就这么几行
MSChart1.Width = screen.ActiveForm.Width
MSChart1.Height = screen.ActiveForm.Height - 1200
几个窗体差不多,要是最大化以后,关闭一个就出现错误"91"
完了

W 3 C h i n a ( since 2003 ) 旗下站点
苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》

46.875ms