操作Excel的问题未设置对象变量或With block变量-CSDN论坛

论坛帮助

CSDN论坛 > Delphi > VCL组件开发及应用

操作Excel的问题未设置对象变量或With block变量 [问题点数：50分]

⋅操作Excel的问题未设置对象变量或With block变量 ⋅关于安装第三方控件SuperObject的问题！ ⋅关于IdHTTP的一个问题。请大家帮看一下！谢谢. 更多帖子 关注空间博客 钞票搬运工 本版专家分：13 结帖率 78.95%: procedure output_excel_file(file_path:string;report_type:Toutput_report_type;report_CDS:TADOQUERY);
var
Ecloum,Erow,row1,row2,i:integer;
Excel_application:variant;
strFormat:OleVariant;
begin

   try
    Excel_application:=createoleobject('Excel.application');
    Excel_application.workbooks.add;

    except
    application.MessageBox('excel没有安装请检查','worng',mb_iconerror+mb_ok);
    Excel_application.quit;
    Excel_application:=unassigned;
    exit;
    end;
............................................
................................................

Excel_application.workbooks[1].SaveAs(file_path);

end;

工具:Delphi2010
环境:windows7  office2010 plus

运行到:
Excel_application.workbooks[1].SaveAs(file_path);
时;
报错
运行时错误"91"
未设置对象变量或With block变量
请大家帮看看该如何决绝。谢谢!

0 2019-01-09 15:39:13

回复数 2 只看楼主引用举报楼主

⋅2019年新年快乐万事如意码家接分 ⋅XML 空节点保持开始与结束符号完整 ⋅Delphi Dll封闭Form 嵌入TabSheet中，失去焦点 更多帖子 关注空间博客 lyhoo163 本版专家分：49950 红花 2018年11月 Delphi大版内专家分月排行榜第一 2018年5月 Delphi大版内专家分月排行榜第一 2018年2月 Delphi大版内专家分月排行榜第一 2018年1月 Delphi大版内专家分月排行榜第一 2017年12月 Delphi大版内专家分月排行榜第一 2017年8月 Delphi大版内专家分月排行榜第一 2017年7月 Delphi大版内专家分月排行榜第一 2017年5月 Delphi大版内专家分月排行榜第一 2017年3月 Delphi大版内专家分月排行榜第一 2017年2月 Delphi大版内专家分月排行榜第一 2016年12月 Delphi大版内专家分月排行榜第一 2016年11月 Delphi大版内专家分月排行榜第一 2016年10月 Delphi大版内专家分月排行榜第一 2016年9月 Delphi大版内专家分月排行榜第一 2016年8月 Delphi大版内专家分月排行榜第一 2016年7月 Delphi大版内专家分月排行榜第一 2016年6月 Delphi大版内专家分月排行榜第一 2016年5月 Delphi大版内专家分月排行榜第一 2016年4月 Delphi大版内专家分月排行榜第一 2016年3月 Delphi大版内专家分月排行榜第一 2016年2月 Delphi大版内专家分月排行榜第一 2016年1月 Delphi大版内专家分月排行榜第一 2015年12月 Delphi大版内专家分月排行榜第一 2015年11月 Delphi大版内专家分月排行榜第一 2015年10月 Delphi大版内专家分月排行榜第一 2015年9月 Delphi大版内专家分月排行榜第一 2015年8月 Delphi大版内专家分月排行榜第一 2015年7月 Delphi大版内专家分月排行榜第一 2015年6月 Delphi大版内专家分月排行榜第一 2015年5月 Delphi大版内专家分月排行榜第一 2015年4月 Delphi大版内专家分月排行榜第一 2015年3月 Delphi大版内专家分月排行榜第一 2015年2月 Delphi大版内专家分月排行榜第一 2015年1月 Delphi大版内专家分月排行榜第一 2014年12月 Delphi大版内专家分月排行榜第一 2014年11月 Delphi大版内专家分月排行榜第一 黄花 2017年11月 Delphi大版内专家分月排行榜第二 2017年4月 Delphi大版内专家分月排行榜第二 2017年1月 Delphi大版内专家分月排行榜第二 2014年10月 Delphi大版内专家分月排行榜第二 2014年9月 Delphi大版内专家分月排行榜第二: 关注。。。。。。。

0 2019-01-09 17:06:30

只看TA 引用举报 #1 得分 0

未设置对象变量或with block 变量用金蝶K3，打开主控台，双击里面的子功能和明细功能的时候，提示未设置对象变量或with block 变量，错误代码:91(5BH) Source :KDSvrMgrClient.Connect.1 谁

⋅玩了18年DELHI，很好的一个语言，没有强大的靠山，我也准备离去了，去学他妈的JS ⋅grid控件 ⋅ACCESS与SQL SERVER中的日期类型的长度 更多帖子 关注空间博客 minizhuxianchun 本版专家分：2545: procedure TSearchForm.Ygnsr_DcbtnClick(Sender: TObject);
var
  Excel: Variant;
  WorkBook: OleVariant;
  SavePath: OleVariant;
  i,c: integer;
  StatePanel: TMiniTitlePanel;
begin
  if Ygnsr_Grid.RowCount=0 then
  begin
    MiniToolTip1.ShowBalloonTip(Ygnsr_Grid.Handle,2,'提示','无可导出的数据！');
    Exit;
  end;
  DocSaveDialog.Title:='保存在';
  DocSaveDialog.DefaultExt:='xlsx';
  DocSaveDialog.Filter:='EXCEL文档|*xlsx';
  if DocSaveDialog.Execute then
    SavePath:=DocSaveDialog.FileName
  else
    Exit;

  StatePanel:=TMiniTitlePanel.Create(nil);
  StatePanel.Parent:=Ygnsr_Grid;
  StatePanel.Width:=185;
  StatePanel.Height:=32;
  StatePanel.Left:=(StatePanel.Parent.Width-StatePanel.Width) div 2;
  StatePanel.Top:=(StatePanel.Parent.Height-StatePanel.Height) div 2;
  StatePanel.ShowTitle:=False;
  StatePanel.Caption:='进度：0/'+IntToStr(Ygnsr_Grid.RowCount);
  StatePanel.Font.Color:=clBlue;
  StatePanel.Color:=clSkyBlue;
  StatePanel.Show;
  StatePanel.Repaint;
  Self.Repaint;
  try
    Excel:=CreateOleObject('Excel.Application');
    try
      Excel.Visible:=False;
      WorkBook:=Excel.WorkBooks.Add;
      try
        Excel.WorkSheets[1].Activate;

        Excel.ActiveSheet.Columns[1].HorizontalAlignment:=2; //左对齐
        Excel.ActiveSheet.Columns[1].ColumnWidth:=12;
        Excel.Cells[1,1].Value:='员工姓名';
        Excel.ActiveSheet.Columns[2].HorizontalAlignment:=4; //右对齐 3为居中
        Excel.ActiveSheet.Columns[2].ColumnWidth:=12;
        Excel.Cells[1,2].Value:='1月工资';
        Excel.ActiveSheet.Columns[3].HorizontalAlignment:=4;
        Excel.ActiveSheet.Columns[3].ColumnWidth:=12;
        Excel.Cells[1,3].Value:='2月工资';
        Excel.ActiveSheet.Columns[4].HorizontalAlignment:=4;
        Excel.ActiveSheet.Columns[4].ColumnWidth:=12;
        Excel.Cells[1,4].Value:='3月工资';
        Excel.ActiveSheet.Columns[5].HorizontalAlignment:=4;
        Excel.ActiveSheet.Columns[5].ColumnWidth:=12;
        Excel.Cells[1,5].Value:='4月工资';
        Excel.ActiveSheet.Columns[6].HorizontalAlignment:=4;
        Excel.ActiveSheet.Columns[6].ColumnWidth:=12;
        Excel.Cells[1,6].Value:='5月工资';
        Excel.ActiveSheet.Columns[7].HorizontalAlignment:=4;
        Excel.ActiveSheet.Columns[7].ColumnWidth:=12;
        Excel.Cells[1,7].Value:='6月工资';
        Excel.ActiveSheet.Columns[8].HorizontalAlignment:=4;
        Excel.ActiveSheet.Columns[8].ColumnWidth:=12;
        Excel.Cells[1,8].Value:='7月工资';
        Excel.ActiveSheet.Columns[9].HorizontalAlignment:=4;
        Excel.ActiveSheet.Columns[9].ColumnWidth:=12;
        Excel.Cells[1,9].Value:='8月工资';
        Excel.ActiveSheet.Columns[10].HorizontalAlignment:=4;
        Excel.ActiveSheet.Columns[10].ColumnWidth:=12;
        Excel.Cells[1,10].Value:='9月工资';
        Excel.ActiveSheet.Columns[11].HorizontalAlignment:=4;
        Excel.ActiveSheet.Columns[11].ColumnWidth:=12;
        Excel.Cells[1,11].Value:='10月工资';
        Excel.ActiveSheet.Columns[12].HorizontalAlignment:=4;
        Excel.ActiveSheet.Columns[12].ColumnWidth:=12;
        Excel.Cells[1,12].Value:='11月工资';
        Excel.ActiveSheet.Columns[13].HorizontalAlignment:=4;
        Excel.ActiveSheet.Columns[13].ColumnWidth:=12;
        Excel.Cells[1,13].Value:='12月工资';
        Excel.ActiveSheet.Columns[14].HorizontalAlignment:=4;
        Excel.ActiveSheet.Columns[14].ColumnWidth:=12;
        Excel.Cells[1,14].Value:='年终奖';
        Excel.ActiveSheet.Columns[15].HorizontalAlignment:=4;
        Excel.ActiveSheet.Columns[15].ColumnWidth:=12;
        Excel.Cells[1,15].Value:='总计';
        StatePanel.Caption:='任务处理中...0/'+IntToStr(Ygnsr_Grid.RowCount);
        StatePanel.Update;
        for i:=1 to Ygnsr_Grid.RowCount do
          for c:=1 to Ygnsr_Grid.Titles.Count do
          begin
            Excel.Cells[i+1,c].Value:=Ygnsr_Grid.Cells[c-1,i-1];

            StatePanel.Caption:='任务处理中...'+IntToStr(i)+'/'+IntToStr(Ygnsr_Grid.RowCount);
            StatePanel.Update;
          end;

        StatePanel.Caption:='正在保存...';
        StatePanel.Repaint;
        WorkBook.SaveAs(SavePath);
      finally
        WorkBook.Close;
        Excel.Quit;
        Excel:=Unassigned; //退出时不保留进程。
      end;
    except
      Abort;
      MessageBox(Handle,'系统未安装EXCEL！','提示',MB_OK+MB_ICONWARNING);
    end;
  finally
    StatePanel.Free;
  end;
end;

0 2019-01-09 20:32:51

只看TA 引用举报 #2    得分 0

未设置对象变量或 With block 变量急急急！！！我在把类模块编译成DLL，而后用ASP调用时出现这样的问题，向高手请教。工程名：Z1 类模块：A1和类模块A2 A1内容： Private Context As ScriptingContext P

收藏帖子

固定资产“未设置对象变量或with block变量”: 导入ufdata_001_2003..fa_items记录至ufdata_001_2004..fa_items

Excel2007 运行时错误'91' 对象变量或 With 块变量没有设置的一种解决办法: 运行时错误'91'对象变量或 With 块变量没有设置今天用了一段VBA小程序，在同事机器上能用，在我机器上用就是不行，具体是这段代码报错：Set Sheet1 = ThisWorkbook.Worksheets(1)调试时添加监视发现，ThisWorkbook对象是有效的，可以输出文档名称，但其子对象Worksheets、sheets等东东全部是nothing网上也找不到有效解决办法，什么注册控件，安装office补丁包都试了，也没解决，就差重装office。仔细观察，发现问题有这3个特点：1.同事机器上

实时错误 ‘91’ 对象变量或with块变量未设置” 解决办法: 一，引言不管我们在做学生系统还是机房收费系统，在过程中总会遇到“实时错误‘91’ ”这个错误，但是在学生系统里遇到之后也没有深究，并不知道是哪里的错误，在做机房的时候遇到是就有了一定的了解。二，分析当出现这种情况时先不要盲目的去做，去搜，先想一下，可能会发生这些错误的原因有哪些？开始做之前的一些准备工作有没有做好，像数据库配置，ODBC的连接，一些查询语句的书写，代码的书写，以及数据库...

运行时，出现出错提示,“实时错误91,对象变量或with或块变量未设置”，如何解决？: 编写一高考查询系统，运行时出现如标题所示错误，请问各位高手,如何解决？谢谢Private Sub Form_Load() ado.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "/db1.mdb" ado.CommandType = adCmdText

对象变量或with块变量未设置: 原因：因为没有成功连接数据库。解决方面：一.确定自己建立好连接了 1.确认自己模块没问题（曾经成功连接过数据库，就证明没问题）。 2.窗体中连接数据库的代码没问题。 Dim txtSQL As String Dim MsgText As String Dim mrc As ADODB.Recordset txtSQL = "select * from s...

“对象变量或with块变量未设置”的错误: 今天又遇见一个错误，本以为会是一个小错误，结果号了我一个多小时，其实真是个低级错误，只不过我粗心检查了四五遍仍未看出来。建立了一个select的sql语句查询，总是跳出“对象变量或with块变量未设置”的错误，叫了师兄过来给检查，结果一下就找出了错误。师兄的小计巧挺实用的，在Access中运行SQL语句：打开Access数据库——>在对象栏中,选择查询选项——>打开“在设计师图中创建查询

对象变量或with块变量未设置————问题根源: 由于今年的

【学生信息管理系统】对象变量或者With块变量未设置: 连上数据库的原因有很多，最常见的是下面的3种。 1.ODBC数据源没有配置好 2.模块出连接数据库的代码出错 3.SQL语句是否敲错。以及笔者体验的解决办法。

【MIS】错误91 对象变量或with块变量未设置: 高高兴兴把学生系统敲完了，可接下来可是遇到了不少问题啊，错误91，对象变量未设置或With块变量未设置，着实把我折腾蒙了，查了一天的资料终于搞定了，心里顿时有点小欢喜，这种错误多数是因为数据库没连接上，于是我按以下思路调试起来：【数据库连接及ODBC配置】 1、首先查看服务管理器如图，把所有项启动运行就可以了。 2、看O

Linux内核数据学习总结: 目录 1. 进程相关数据结构 1) struct task_struct 2) struct cred 3) struct pid_link 4) struct pid 5) struct signal_struct 6) struct rlimit 2. 内核中的队列/链表对象 1) singly-linked lists

求助高手，出现“实时错误91,对象变量或with或块变量未设置”，怎么解决？: 我编写一段高考成绩查询系统，运行时提示:实时错误91,对象变量或with或块变量未设置",请问如何解决？，谢谢Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)End

“未设置对象变量或With Block变量”: 我在设计一个ocx控件。当调用我自己写的过程时，经常出现提示：“未设置对象变量或With Block变量”。害得我不得不把好多代码写在一个过程里。rn这是为什么呀。应该如何解决呢？rn

未设置对象变量或 With block 变量: 我是新手，如题的错误很多人都碰到过，但是网上真正解决的人好象很少rnrn以下是我在VB环境下的代码以及在asp页面里面调用运行后出现的错误：rnrn''''''''''''''''''''''''''=================================rnDim myRequest As RequestrnDim myResponse As ResponsernDim myServer As ServerrnDim mySession As SessionrnDim myApplication As ApplicationrnrnPrivate Conn As ADODB.ConnectionrnPrivate Rs As ADODB.RecordsetrnPrivate strSclass As String, strAction As StringrnPrivate intBclass As Integer, intPid As IntegerrnrnrnPrivate Sub OnStartPage(myScriptingContent As ScriptingContext)rn Set myRequest = myScriptingContent.Requestrn Set myResponse = myScriptingContent.Responsern Set myServer = myScriptingContent.Serverrn Set mySession = myScriptingContent.Sessionrn Set myApplication = myScriptingContent.Applicationrn Call OpenDBrn If OpenDB = True Thenrn myResponse.Write "数据库连接成功!"rn End IfrnEnd SubrnPrivate Sub OnEndPage()rn myResponse.Write "所有操作结束!"rn Set myRequest = Nothingrn Set myResponse = Nothingrn Set myServer = Nothingrn Set mySession = Nothingrn Set myApplication = NothingrnEnd Subrnrn''定义属性============================================rnPublic Property Get Sclass() As Stringrn Sclass = strSclassrnEnd PropertyrnPublic Property Let Sclass(ByVal newValue As String)rn strSclass = newValuernEnd PropertyrnPublic Property Get Bclass() As Integerrn Bclass = intBclassrnEnd PropertyrnPublic Property Let Bclass(ByVal newValue As Integer)rn intBclass = newValuernEnd PropertyrnPublic Property Get Pid() As Integerrn Pid = intPidrnEnd PropertyrnPublic Property Let Pid(ByVal newValue As Integer)rn intPid = newValuernEnd Propertyrnrn''属性定义完毕=========================================rnrnPublic Function OpenDB() As ADODB.Connectionrn Set Conn = New ADODB.Connectionrn Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;DataSource=" & myServer.MapPath("/dfgdrgrh/eragerterg.mdb")rn Conn.Openrn Set OpenDB = ConnrnEnd Functionrnrnrnrn''=========================================================rnrnrn在页面里这样测试：rn Set wtype=Server.CreateObject("Xmbiz.WType")rn wtype.Sclass="Sclass的值被赋予了"rn Response.Write(wtype.Sclass)rn wtype.OpenDB()rn Set wtype=nothingrnrnrnrnrn运行的结果就是：rnrnXmbiz (0x800A005B)rn未设置对象变量或 With block 变量rn/dll.asp, 第 13 行rnrnrn''===========================另外各位兄弟有没有《ASP组件开发指南》一书分享一下，网上有个地方找到但是要解压密码！·#￥%……—rnrnrn我的QQ是278812478rn

sql server常有的问题-实时错误'91' 对象变量或with块变量未设置: 这样的问题，对于我们这样的初学者来说，无疑是一个接触sql server后第一个艰难的问题，“实时错误'91' 对象变量或with块变量未设置”这句话到底透露出什么信息？直至写此博文，我依然看不出什么，但是却知道引起的一些原因，是它提示的有问题，还是我学的还不足以理解其中的玄机？。。。。。。总感觉还有什么我没有记住，也许哪还有出处，夜已深，乎来一阵清风，白炽灯下人未眠，关上门，等待着另一个清晨，一躺床上寻找梦中的女神，躺也！躺也！

VB-sql server编程“对象变量或with块变量未设置”: 今天在做数据库编程中遇到了几次相同的问题：对象变量或with块未设置。该错误主要是在连接数据库时出了错。既然数据库链接有问题就应该先检查数据源的设置是否正确，方法是在控制面板里找性能和维护——管理工具——数据源，然后进行添加数据源再检查一下ConnectionString属性的"fileDSN=;User_id=;PassWord="是否正确，注意链接数据库时的用户名和密码。再有就

学生信息管理系统之—对象变量或者with变量未设置错误: 在这几天弄学生信息管理系统中，遇到了很多麻烦，刚开始尤其是这个对象变量或者是with变量未设置，出现这个错误让我很揪心，我上网上查了查，其根本原因是数据库链接出现问题，因为任何对数据库的操作都必须建立在连接的基础上，以下是我出现的错误和解决方法。 1 ADO对象库没有引用在弄数据库之前，首先要将Microsoft ActiveX date Obje

VB程序变得很卡，并显示对象变量或with块变量未设置: 刚解决完自己with变量未定义的问题，结果再次打开程序的时候，自己的程序变得很卡。只需一键，直接出现小圈圈转不停。有时候等半天，显示对象变量或with块变量未设置。出现这句话的原因，是因为没有从数据库中调用出来东西。但是各种都检查没问题，原来是自己忽略了这个，数据库没有连接上，如图：如何解决呢。找到自己数据库的SQL server配置管理器，如图：在SQL server服务...

实时错误91，对象变量或with块变量未设置，如何解决？: Private Sub Command1_Click() Dim part As Object Dim strfilename As String Dim longstatus As Long Dim d1 As Integer Dim d2 As Integer Dim h As Single If Dir(strfilename) = "" Then MsgBox ("文

【学生管理系统】对象变量或With块变量未设置: 方案一：这个问题很典型，相应的对象没有在数据库中取得相应的值,数据库连接不通，数据库连接失败的一些因素有： 1.服务管理器没有启动服务 2.数据源(ODBC)里面“文件DSN”里有添加数据库 3.在代码里“select*from ”这后面应该接的是表的名字，而不是数据库名

设置innerHTML时出现"未知的运行时错误: 在Ajax里经常会通过innerHTML来改变界面，这个比使用DOM要简单一些。比如：element.innerHTML = "something"不过，在IE中，有时候会出现"未知的运行时错误(unknown runtime error)",而在firefox里不会。这主要是IE在对innerHTML进行写操作的时候会检查element是否具备做为这些内容中html对象容器的要求，比如如果你是在

VB读取excel文件: 该小程序可以实现VB对excel文档的调用，并且可以实现多次读取excel文档，而不会出现"对象变量或with块变量未设置"的实时错误。

ObjectControl接口与“未设置对象变量或 With block 变量”的问题: 最近的项目在.NET(C#)中使用合作方从前开发的COM组件，在调用其方法时遇到了“未设置对象变量或 With block 变量”错误。这个组件已经使用了很长一段时间，但这是第一次用于.NET环境。我搜索了一些相关的文章，大抵有以下几种情况会引起该错误：rnrn1、在COM组件开发时“将变量设为公有，或使用了晚绑定”。rn由于该组件已经应用了很长时间，所以应该不会是这个问题。况且即便这里有问题，修改它的可能性也不大。rnrn2、在应用该组件的时候“使用了晚绑定”。rn应用该组件的客户代码我可以控制，没有用晚绑定。rnrn网上大部分描述或“解决”该问题的文章我都看过了，用处不大。该组件本身不太可能出现问题，最接近的应该是下面这个原因rnrn3、MTS的问题，确切说是ObjectControl接口的问题。rn由于这个原因导致问题的可能性比较大。MSDN上有一篇文章讨论这个问题，但仍是针对COM组件本身的实现。包括组件要实现ObjectControl接口、在Activate方法中调用GetObjectContext方法获取对象的上下文等等。该文档在http://support.microsoft.com/?scid=http%3a%2f%2fask.support.microsoft.com%2fkb%2f250309%2f。rn我研究了一下这个组件，其中的类应该实现了ObjectControl接口。rnrn是否还有其它原因？rnrn那么在客户代码中应该怎样使用这样的类型？假设COM组件中有类型名为SQLCall，其中有方法名为GetProductEntry()。那么是否需要在客户代码中为其设置上下文环境？还是需要在机器上配置COM+服务的某些设置？rnrn谢谢！

dll调用问题“未设置对象变量或With block变量”: 我在一个dll中编写了两个class，其中一个用到asp中的对象和属性因此引入rnPublic Sub OnStartPage(PassedScriptingContext As ScriptingContext) rnSet MyScriptingContext = PassedScriptingContext rnSet MyApplication = MyScriptingContext.Application rnSet MyRequest = MyScriptingContext.Request rnSet MyResponse = MyScriptingContext.Response rnSet MyServer = MyScriptingContext.Server rnSet MySession = MyScriptingContext.Session rnEnd Sub rn而且编写了一个函数a()，函数体中调用了以上对象的方法rn而我在另一个class中的函数b()中调用这个a()rn在asp页面测试是老是出现以下错误“未设置对象变量或With block变量”rn请指点！谢谢！

金蝶K3修复: 金蝶K3修复打开软件主界面后出现错误: 未设置对象变量或WITH BLOCK 变量 代码：91（5bh) source:EBCGLVIEW 点确定后，再点明细操作时出现错误提示 'NT AUTHORITY\NETWORK SERVICE' 登录失败

实时错误‘91’:对象变量或With块变量未设置——学生系统调错总结二: 上一篇博客，我总结了由于粗心而不该犯的一些错误：点击打开链接今天来总结一下，在调错过程中我们经常碰见的一些错误。一. .实时错误‘91’:对象变量或With块变量未设置 1. 在运行程序之前没有配置ODBC数据源或者ODBC数据源配置错误，当然前提得是SQL Server执行了相关的SQL代码（学生系统中用到的stude

[VB]未设置对象变量或 With block 变量: 最近要用VB写成一个DLL文件，引入了数据库对象。要取得所有的数据表信息，我用了下面这个函数rnrn[code=VBScript]rnPrivate Function getTables()rn rn Dim gettblrn Set tbls = conn.OpenSchema(20)rn rn tbls.MoveFirstrn If Not tbls.EOF Thenrn rn Do Until tbls.EOFrn If tbls("TABLE_TYPE") = "TABLE" Thenrn gettbl = gettbl & "," & tbls("TABLE_NAME")rn End Ifrn Looprn rn End Ifrn getTables = gettblrnEnd FunctionrnrnPublic Function tb()rn Dim gtbrn gtb = getTables()rn Response.Write gtbrnEnd Functionrn[/code]rnrnrn然后调用的时候就出现这个错误：rnrndata '800a005b' rnrn未设置对象变量或 With block 变量 rnrnrnrnrnrn有没有哪位知道是为什么啊？

运行时错误 91 未设置对象变量或 with block 变量: 程序在VB里面调试的时候没发现有问题rnrn但是生成 .exe 运行这个.exe就会提示"运行时错误 91 未设置对象变量或 with block 变量"rnrn用到的是 WebBrowser控件rnrn(现在没什么分等以后有了分我会多给一点的谢谢)

运行时错误,91, 未设置对象变量或with block 变量: 我的论文学生管理系统数据库连接那块，代码如下：rn Dim WithEvents adoPrimaryRS As Recordsetrn Dim mbChangedByCode As Booleanrn Dim mvBookMark As Variantrn Dim mbEditFlag As Booleanrn Dim mbAddNewFlag As Booleanrn Dim mbDataChanged As Booleanrn rn Private Sub Form_Load()rn '连接数据库rn Dim db As Connectionrn Set db = New Connectionrn db.CursorLocation = adUseClientrn db.Open "PROVIDER=MSDASQL;dsn=studentinfo.dsn;uid=;pwd=;"rn rn '连接字段rn Set adoPrimaryRS = New Recordsetrn adoPrimaryRS.Open "select UserID,password from user_Info", db, adOpenStatic, adLockOptimisticrn rn Dim oText As TextBoxrn '绑定文本框到数据提供者rn For Each oText In Me.txtFieldsrn Set oText.DataSource = adoPrimaryRSrn Nextrn rn mbDataChanged = Falsern End Subrn rn Private Sub Form_Resize()rn On Error Resume Nextrn '设计仿ADO控件的按钮位置rn lblStatus.Width = Me.Width - 1500rn cmdNext.Left = lblStatus.Width + 700rn cmdLast.Left = cmdNext.Left + 340rn End Subrn rn Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)rn If mbEditFlag Or mbAddNewFlag Then Exit Subrn rn Select Case KeyCodern Case vbKeyEscapern cmdClose_Clickrn Case vbKeyEndrn cmdLast_Clickrn Case vbKeyHomern cmdFirst_Clickrn Case vbKeyUp, vbKeyPageUprn If Shift = vbCtrlMask Thenrn cmdFirst_Clickrn Elsern cmdPrevious_Clickrn End Ifrn Case vbKeyDown, vbKeyPageDownrn If Shift = vbCtrlMask Thenrn cmdLast_Clickrn Elsern cmdNext_Clickrn End Ifrn End Selectrn End Subrn rn Private Sub Form_Unload(Cancel As Integer)rn Screen.MousePointer = vbDefaultrn End Subrn rn Private Sub adoPrimaryRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)rn '为这个 recordset 显示当前记录位置rn lblStatus.Caption = "Record: " & CStr(adoPrimaryRS.AbsolutePosition)rn End Subrn rn Private Sub adoPrimaryRS_WillChangeRecord(ByVal adReason As ADODB.EventReasonEnum, ByVal cRecords As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)rn '验证代码置于此处rn '下列动作发生时该事件被调用rn Dim bCancel As Booleanrn rn Select Case adReasonrn Case adRsnAddNewrn Case adRsnClosern Case adRsnDeletern Case adRsnFirstChangern Case adRsnMovern Case adRsnRequeryrn Case adRsnResynchrn Case adRsnUndoAddNewrn Case adRsnUndoDeletern Case adRsnUndoUpdatern Case adRsnUpdatern End Selectrn rn If bCancel Then adStatus = adStatusCancelrn End Subrn rn Private Sub cmdAdd_Click() '“新增记录”按钮代码rn On Error GoTo AddErrrn With adoPrimaryRSrn If Not (.BOF And .EOF) Thenrn mvBookMark = .Bookmarkrn End Ifrn .AddNewrn lblStatus.Caption = "添加记录"rn mbAddNewFlag = Truern SetButtons Falsern End Withrn rn Exit SubrnAddErr:rn MsgBox Err.Descriptionrn End Subrn rn Private Sub cmdDelete_Click() '“删除记录”按钮代码rn On Error GoTo DeleteErrrn With adoPrimaryRSrn .Deletern .MoveNextrn If .EOF Then .MoveLastrn End Withrn Exit SubrnDeleteErr:rn MsgBox Err.Descriptionrn End Subrn rn Private Sub cmdRefresh_Click() '“刷新数据库”按钮代码rn '只有多用户应用程序需要rn On Error GoTo RefreshErrrn adoPrimaryRS.Requeryrn Exit SubrnRefreshErr:rn MsgBox Err.Descriptionrn End Subrn rn Private Sub cmdEdit_Click() '“编辑记录”按钮代码rn On Error GoTo EditErrrn rn lblStatus.Caption = "编辑记录"rn mbEditFlag = Truern SetButtons Falsern Exit Subrn rnEditErr:rn MsgBox Err.Descriptionrn End Subrn rn Private Sub cmdCancel_Click() '“取消修改”按钮代码rn On Error Resume Nextrn rn SetButtons Truern mbEditFlag = Falsern mbAddNewFlag = Falsern adoPrimaryRS.CancelUpdatern If mvBookMark > 0 Thenrn adoPrimaryRS.Bookmark = mvBookMarkrn Elsern adoPrimaryRS.MoveFirstrn End Ifrn mbDataChanged = Falsern rn End Subrn rn Private Sub cmdUpdate_Click() '“确定修改”或“更新修改”按钮代码rn On Error GoTo UpdateErrrn rn adoPrimaryRS.UpdateBatch adAffectAllrn rn If mbAddNewFlag Thenrn adoPrimaryRS.MoveLast '移到新记录rn End Ifrn rn mbEditFlag = Falsern mbAddNewFlag = Falsern SetButtons Truern mbDataChanged = Falsern rn Exit SubrnUpdateErr:rn MsgBox Err.Descriptionrn End Subrn rn Private Sub cmdClose_Click()rn Unload Mern End Subrn rn Private Sub cmdFirst_Click() '“第一条记录”按钮代码rn On Error GoTo GoFirstErrorrn rn adoPrimaryRS.MoveFirstrn mbDataChanged = Falsern rn Exit Subrn rnGoFirstError:rn MsgBox Err.Descriptionrn End Subrn rn Private Sub cmdLast_Click() '“最后一条记录”按钮代码rn On Error GoTo GoLastErrorrn rn adoPrimaryRS.MoveLastrn mbDataChanged = Falsern rn Exit Subrn rnGoLastError:rn MsgBox Err.Descriptionrn End Subrn rn Private Sub cmdNext_Click() '“下一条记录”按钮代码rn On Error GoTo GoNextErrorrn rn If Not adoPrimaryRS.EOF Then adoPrimaryRS.MoveNextrn If adoPrimaryRS.EOF And adoPrimaryRS.RecordCount > 0 Thenrn Beeprn '已到最后返回rn adoPrimaryRS.MoveLastrn End Ifrn '显示当前记录rn mbDataChanged = Falsern rn Exit SubrnGoNextError:rn MsgBox Err.Descriptionrn End Subrn rn Private Sub cmdPrevious_Click() '“上一条记录”按钮代码rn On Error GoTo GoPrevErrorrn rn If Not adoPrimaryRS.BOF Then adoPrimaryRS.MovePreviousrn If adoPrimaryRS.BOF And adoPrimaryRS.RecordCount > 0 Thenrn Beeprn '已到最后返回rn adoPrimaryRS.MoveFirstrn End Ifrn '显示当前记录rn mbDataChanged = Falsern rn Exit Subrn rnGoPrevError:rn MsgBox Err.Descriptionrn End Subrn rn Private Sub SetButtons(bVal As Boolean) '按钮代码显示设计rn cmdAdd.Visible = bValrn cmdEdit.Visible = bValrn cmdUpdate.Visible = Not bValrn cmdCancel.Visible = Not bValrn cmdDelete.Visible = bValrn cmdClose.Visible = bValrn cmdRefresh.Visible = bValrn cmdNext.Enabled = bValrn cmdFirst.Enabled = bValrn cmdLast.Enabled = bValrn cmdPrevious.Enabled = bValrn End Subrnrn执行时老是显示：运行时错误,91, 未设置对象变量或with block 变量

adodc 运行时错误91 未设置对象变量或WITH BLOCK变量???: 请教各位，adodc 运行时错误91 未设置对象变量或WITH BLOCK变量??? rn这是怎么回事？我用adodc控件连接access数据库，程序在装有vb6.0的机器上运行没有问题。但是到另外一台电脑上，没有安装vb,就出现这个问题了。然后程序就关掉了。请教各位大虾，这是怎么回事？不胜感激。

未设置对象变量或 With block 变量_愁啊: 小弟用ｖｂ编写了ActiveX DLL 控件，作用是访问数据库．　然后我在ａｓｐ中调用之．rnrn在ｖｂ中　小弟编写了一个函数，在ａｓｐ中向ｖｂ控件传递了几个参数（查询条件）rnrn可是在执行时经常出现　未设置对象变量或 With block 变量　的错误提示．rnrn小弟用的连接字符串rnProvider=SQLOLEDB.1;Network Library=DBMSSOCN;Persist Security Info=False;User ID=swyd;password=swyd;Initial Catalog=SWYD1;Data Source=serverrnrn然后小弟将返回值导到文本文件中，发现rnrnconn.open 　返回错误值０rn执行查询语句　返回错误值　０rn得到的　res.RecordCount　值为　-1 (小弟将导出册查询语句放到ｓｑｌ查询分析器中，明明可以查到记录）rn总之返回的错误值都是０rn但是，在ａｓｐ页面中却出现了＂未设置对象变量或 With block 变量＂　的提示rnrn小弟又将　ActiveX DLL 加了一个窗口改成ｅｘｅ程序，然后设置一个按钮调用那个函数，一切正常．rnrn这是怎么回事啊？？？？？　rn

急！运行时错误91：未设置对象变量或WITH BLOCK 变量: Option ExplicitrnPrivate Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As LongrnrnrnPublic OK As Booleanrn'记录确定次数rnDim miCount As IntegerrnPrivate Sub Form_Load()rn Dim sBuffer As Stringrn Dim lSize As Longrnrnrn sBuffer = Space$(255)rn lSize = Len(sBuffer)rn Call GetUserName(sBuffer, lSize)rn If lSize > 0 Thenrn txtUserName.Text = ""rn rn Elsern txtUserName.Text = vbNullStringrn End Ifrn rnrn OK = Falsern miCount = 0rnEnd SubrnrnrnrnPrivate Sub cmdCancel_Click()rn OK = Falsern Me.HidernEnd SubrnrnrnPrivate Sub cmdOK_Click()rn Dim txtSQL As Stringrn Dim mrc As ADODB.Recordsetrn Dim MsgText As Stringrn 'ToDo: create test for correct passwordrn 'check for correct passwordrn rn UserName = ""rn If Trim(txtUserName.Text = "") Thenrn MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"rn txtUserName.SetFocusrn Elsern txtSQL = "select * from user_Info where user_ID = '" & txtUserName.Text & "'"rn Set mrc = ExecuteSQL(txtSQL, MsgText)rn If mrc.EOF = True Thenrn MsgBox "没有这个用户，请重新输入用户名!", vbOKOnly + vbExclamation, "警告"rn txtUserName.SetFocusrn Elsern If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Thenrn OK = Truern mrc.Closern Me.Hidern UserName = Trim(txtUserName.Text)rn Elsern MsgBox "输入密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"rn txtPassword.SetFocusrn txtPassword.Text = ""rn End Ifrn End Ifrn End Ifrn rn miCount = miCount + 1rn If miCount = 3 Thenrn Me.Hidern End Ifrn Exit SubrnEnd Subrnrn请各位高手帮帮忙看看哪里的错呀~~谢谢拉！rn

怎么老是报错：未设置对象变量或with block变量？？？: Private Sub Form_Load()rnDim abc As New Example.HelloworldrnSet abc = New Example.HelloworldrnCall abc.LoginrnSet abc = NothingrnEnd Subrnrn我实在是在工程中引用了example.dll文件的这个类模块！！！rn

关于“运行时错误91，未设置对象变量或with block变量“: 我在win2000下并装有vb6.0下运行程序是正常的。而在没有装vb6.0系统下运行时，就出现“运行时错误91，未设置对象变量或with block变量“。我将所有的dll和ocxrn文件都包含进去了，问题也没有得解决。我在程序中只要用的对象是：rndim ado1 as new rescordsetrn....rnrnSet db = New Connectionrn db.CursorLocation = adUseClientrn db.Open "PROVIDER=MSDASQL;driver=SQL Server;server=" + servername + ";uid=" + entername + ";pwd=" + enterpass + ";database=" + databasename + ";"rn rn Set adoPrimaryRS = New Recordsetrn Set adoenter = New Recordsetrn adoPrimaryRS.Open "select 学号,密码 from " + tablename + "", db, adOpenStatic, adLockOptimisticrn rn adoenter.Open "select 学号,密码 from " + tablename + "", db, adOpenStatic, adLockOptimisticrn rn rn Set ado1= adoPrimaryRSrn请各位帮帮我吧！定给高分。

未设置对象变量或 With block 变量该怎样解决？: 我用vb写了一个连接数据库的组件如下：rn工程名：dataAsp 类名：ConnectionsrnPrivate myscriptingcontext As ScriptingContextrnPrivate myapplication As ApplicationrnPrivate myrequest As RequestrnPrivate myresponse As ResponsernPrivate myserver As ServerrnPrivate mysession As SessionrnrnPublic Sub onstartpage(passedscriptingcontext As ScriptingContext)rn Set myscriptingcontext = passedscriptingcontextrn Set myapplication = myscriptingcontext.Applicationrn Set myrequest = myscriptingcontext.Requestrn Set myresponse = myscriptingcontext.Responsern Set myserver = myscriptingcontext.Serverrn Set mysession = myscriptingcontext.SessionrnEnd SubrnrnPublic Sub onendpage()rn Set myscriptingcontext = Nothingrn Set myapplication = Nothingrn Set myrequest = Nothingrn Set myresponse = Nothingrn Set myserver = Nothingrn Set mysession = NothingrnEnd SubrnrnrnPublic Function Conn() As ADODB.Connectionrn Dim strConn As Stringrn Dim strData As Stringrn Dim myConn As ADODB.Connectionrn Dim i As Stringrn strData = "E:\data\test.mdb"rn strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDatarn myConn.Open strConnrn lawerConn = myConnrnEnd Functionrnrn在asp中调用：rndim myConn,connrnset myConn=server.createobject("dataAsp.Connections")rnconn=myconn.Conn()rnrn提示错误：rn错误类型：rndataAsp (0x800A005B)rn未设置对象变量或 With block 变量rnrn请问该怎样解决?rn

adodc运行时错误91未设置对象变量或WITH BLOCK变量: adodc运行时错误91未设置对象变量或WITH BLOCK变量, 请教各位，怎么回事啊？

细说vb91错误: 相信大家都再敲学生或是机房的时候都会出现：“”“91”错误的吧那么我在这里简单的介绍一下这个错误出现的原因：第一：与数据库连接出了问题，这个是比较麻烦的。 1，需要我们检查数据库管理器2.检查odbc是否连接正确。3.检查连接数据库的一系列操作，解决它需要耐心啊。第二：vb的格式错误 1，所需要在

运行时错误91问题汇总: 在总账中，查询管理费用时报"7-内存溢出"或“未设置对象变量，运行时91错误”。此问题请检查机器环境: 机器名是否含特殊字符或中文,登陆操作系统的操作员名是否含特殊字符或中文,其权限是否为超级管理员或高级用户. 重新注册软件的所有组件,可使用通网站服务工具中的维护通2.0中的三十九号工具进行注册. 清空系统临时文件夹,路径: C:\Documents and Settings\Adm

未设置对象变量或 With 块变量: 有一数据表，字段包括标题（title）、新增日期（opdate）等，rn我想实现的功能是：用datagrid绑定取出的符合条件的记录，同时，对"新增日期"在最近一个月的记录，能显示一个NEW的图片。rn我现在的做法是：在页面上放了一个DATAGRID1，其中有一个模板列，放有一image控件，该控件的ID为imgnew；rndatagrid1的OnItemDataBound="DataGrid1_ItemDataBound"。rn下面是DataGrid1_ItemDataBound中的代码：（注：txtdateflag.text里存的是year(today()*10000+month(today())*100+day(today())）rn Sub DataGrid1_ItemDataBound(ByVal sender As System.Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs)rn If Year(e.Item.DataItem("opdate")) * 10000 + Month(e.Item.DataItem("opdate")) * 100 + Day(e.Item.DataItem("opdate")) >= CInt(txtDateFlag.Text) Thenrn e.Item.FindControl("imgnew").Visible = Truern Elsern e.Item.FindControl("imgnew").Visible = Falsern End Ifrn End Subrnrn测试时，一直出错：“未设置对象变量或 With 块变量”。rn请问有没有哪位老大知道是什么原因，或可用什么其他方法实现？？？急！在线等！

对象变量或WITH变量未设置。: 以前用VB写了个小程序调用office97中的Excel生成一个新的Excel表rnDim Excel as Excel.ApplicationrnSet Excel97=new Excel.Application rn....rn在Excel97中编译通过能运行且正确，现在在Excel2003中编译运行时，在Set Excel97=new Excel.Application 这一行提示对象变量或WITH变量未设置,引用中也将Microsoft Excel11 object Lib 这一项钩上了，不知是什么原因，请各位大侠帮帮忙！

对象变量或With块变量未设置: [code=VB]rnPrivate Function AynsURL()rn Dim Body As Stringrn Dim lnks As Variantrn rn WebBrowser1.Visible = Falsern WebBrowser1.navigate "http://www.78.com"rn rn rn MsgBox WebBrowser1.Document.getElementsByTagName("a")(0).href '此行出错rn rnEnd Functionrn[/code]rnrnrn上面的代码.为什么会报实时错误"91" 对象变量或WITH 块变量未设置?

对象变量或with变量未设置。: MSFlexGrid1 控件,出现此错误提示:对象变量或with变量未设置。rnPublic cmd As ADODB.CommandrnrnSet cmd = New ADODB.Commandrn With cmdrn .ActiveConnection = cnrn .CommandText = sql1 '"Select * from ruzhang "rn .Prepared = Truern .CommandType = adCmdTextrn End Withrn' Set hflxgrdProc.DataSource = cmd.ExecuternrnSet rs = cmd.ExecuternSet hflxgrdProc.DataSource = rsrnrnconnection已经打开了,rnrs也是一样的,rn但是错误停止在这一行rnSet hflxgrdProc.DataSource = rsrn

对象变量或 With 块变量未设置: 我是初学者,按照书本上的方法去学习和试验rnrn书本内容如下:rnrn rnrn在Visual Basic的应用程序中，还可以通过编写代码来建立一个数据库文件，以及对数据库进行索引、查询等许多操作。这样就需要用到几个心的对象，如“DataBase”、“TableDef”、“Field”等，这些被统称为数据库存取对象 DAO（Data Access Object)。DBEngine是DAO的最高层接口，在它下面可以生成一个Workspace对象**，可以利用某一个Workspace对象的CreateDatabase方法建立心的数据库文件。首先要定义对象变量，例如：rnrndim ws as workspacerndim DB as database '指明用WS代表DBEngine生成的哪个 Workspace 。rnset WS=DBEngine.workspace(0)rnrn在上列中将工作环境定义为使用 DBEngine 的 Workspace (0) 对象，实际这个对象是缺省值，不定义也将使用该对象，但当使用其他对象时，如 Workspace (1) ，就必须重新定义。rnrn利用Workspace的 CreateDatabase方法来创建数据库文件，其语法格式为：rnrnSet database = Workspace.CreateDatabase(name,local[,Option])rnrn其中，Database 为已定义的数据库类型变量，代表新建立的数据库对象。rnWorkspace 为已定义 Workspace 类型变量，表示所使用的工作环境，包含新的数据库对象。rnname 为将要新建的数据库文件路径和名称。rnLocal 该表达式用来指定字符串比较的规则，一般按英文字母顺序比较，可以指定为 dbLanggeneral 。rnoption 该项为可选项，用来指定数据格式的版本及数据库是否解密，一般情况下，可以不指定此项。rnrn例如，要在 D 盘 tsgl 目录下建立一个名为 xxjs_book的数据库文件，可采用如下代码来实现：rnrndim WS as Workspacerndim DB as Databasernset DB = WS.CreateDatabase("D:\tsgl\xxjs_book",dblanggeneral)rnrn******************书本内容结束*********************rnrn但是我做了,却提示错误,后来引用了 microsoft DAO 3.6 object library rnrn又提示:对象变量或 With 块变量未设置rnrn弄多了,有时候提示 :vb 找不到可安装的 ISAMrnrnrn希望有人能帮我解决,非常感谢..

未设置对象变量或With 块变量: Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Loadrn If Not IsPostBack Thenrn Label1.Text = "请输入邮件发送地址："rn Label2.Text = "请输入邮件目的地址："rn Label3.Text = "请输入邮件抄送地址："rn Label4.Text = "请输入邮件密送地址："rn Label5.Text = "请输入邮件主题："rn Label6.Text = "请输入邮件主体："rn Label7.Text = "请加入附件名称："rn Label8.Text = "使用ASP.NET发送电子邮件"rn Label9.Text = "编写日期：2009年2月"rn Button1.Text = "发送"rn End Ifrn End Subrnrn Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clickrn Dim MailObj As New MailMessagern MailObj.From = TextBox1.Textrn MailObj.To = TextBox2.Textrn MailObj.Cc = TextBox3.Textrn MailObj.Bcc = TextBox4.Textrn MailObj.Subject = TextBox5.Textrn MailObj.BodyFormat = MailFormat.Textrn MailObj.Priority = MailPriority.Normalrn MailObj.Body = TEXTAREA1.Valuern Dim filename As Stringrn filename = Emailfile.postedfile.filenamern If filename <> "" Thenrn MailObj.Attachments.Add(New MailAttachment(filename))rn SmtpMail.SmtpServer = ""rn SmtpMail.Send(MailObj)rn Panel1.Visible = Falsern Panel2.Visible = Truern End Ifrn End SubrnEnd Classrn代码如上：rnemailfile这里未声明

对象变量或WITH块变量未设置: 我想用VB做一个库存月报表，程序如下：但系统报错，"对象变量或WITH块变量未设置"请大家帮忙看一下问题在那？谢谢rn我用的是ADODC连接的数据库。rnPublic adoCon As New ADODB.Connection rnPublic adoRs As New ADODB.Recordset rnPublic adoRs1 As New ADODB.Recordset rnrnPublic Name1 As StringrnPublic StrNums As IntegerrnPublic Temps 'rnrnPublic Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As LongrnPublic rtnrnPublic TWidth As LongrnPublic THeigth As LongrnrnPublic Sub main() rnDim temp As Stringrntemp = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=ck;Data Source=liuping-727f568“rnadoCon.Open (temp)rnEnd Sub ####应该也不会有问题，我别的窗体也调用了的，正常！####rn-----------------------------------------------rnrnrnPrivate Sub Command1_Click()rnCall main 《模块的里的公用函数》rnDim fx As IntegerrnrnrnAdodc1.CommandType = adCmdTextrnAdodc1.RecordSource = "select 料号,sum( 出入数量)as 返修入库数 from cryd where datediff(m, 出入时间,getdate())rnSet DataGrid1.DataSource = Adodc1rnAdodc1.RefreshrnrnrnEnd Subrnrnrnrn

对象变量或 with块变量未设置: 第一次执行 timer1.timerd的时候不出错第二次eventIE_NavigateComplete Call Timer1_Timer 到 wangye = doc.body.innerHtml 这句的时候就出错 对象变量或 with块变量未设置 求教 rnrnrnOption Explicitrn rnrnDim dWinFolder As New ShellWindowsrnDim WithEvents eventIE As WebBrowser_V1rn rnPrivate Sub eventIE_NavigateComplete(ByVal URL As String)rn Text1.Text = Text1.Text + Chr(13) + Chr(10) + URLrn Timer1.Enabled = Truern Call Timer1_TimerrnEnd SubrnrnPrivate Sub Timer1_Timer()rn Dim objIE As Objectrn Dim doc As Objectrn Dim wangye As Stringrn rn' On Error Resume Nextrn rn For Each objIE In dWinFolderrn If InStr(objIE.Document.Title, "xxx公司") <> 0 And objIE.ReadyState = READYSTATE_COMPLETE Thenrn Set eventIE = objIErn Set doc = objIE.Documentrn rn Print objIE.Document.Titlern wangye = ""rn [color=#FF0000]wangye = doc.body.innerHtml[/color] ' 第一次执行 timer1.timerd的时候不出错第二次eventIE_NavigateComplete Call Timer1_Timer 到这句的时候就出错 对象变量或 with块变量未设置 求教 rn Text2.Text = ""rn Text2.Text = wangyern Timer1.Enabled = Falsern Exit Forrn End Ifrn NextrnEnd Sub

对象变量或with块变量未设置？？？？: 做数据库时有以下一部分login代码：rnOption ExplicitrnPrivate Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As LongrnrnrnPublic OK As Booleanrn'记录确定次数rnDim miCount As IntegerrnPrivate Sub Form_Load()rn Dim sBuffer As Stringrn Dim lSize As Longrnrnrn sBuffer = Space$(255)rn lSize = Len(sBuffer)rn Call GetUserName(sBuffer, lSize)rn If lSize > 0 Thenrn txtUserName.Text = ""rn rn Elsern txtUserName.Text = vbNullStringrn End Ifrn rnrn OK = Falsern miCount = 0rnEnd SubrnrnrnrnPrivate Sub cmdCancel_Click()rn OK = Falsern Me.HidernEnd SubrnrnrnPrivate Sub cmdOK_Click()rn Dim txtSQL As Stringrn Dim mrc As ADODB.Recordsetrn Dim MsgText As Stringrn 'ToDo: create test for correct passwordrn 'check for correct passwordrn rn UserName = ""rn If Trim(txtUserName.Text = "") Thenrn MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"rn txtUserName.SetFocusrn Elsern txtSQL = "select * from user_Info where user_ID = '" & txtUserName.Text & "'"rn Set mrc = ExecuteSQL(txtSQL, MsgText)rn If mrc.EOF = True Thenrn MsgBox "没有这个用户，请重新输入用户名!", vbOKOnly + vbExclamation, "警告"rn txtUserName.SetFocusrn Elsern If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Thenrn OK = Truern mrc.Closern Me.Hidern UserName = Trim(txtUserName.Text)rn Elsern MsgBox "输入密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"rn txtPassword.SetFocusrn txtPassword.Text = ""rn End Ifrn End Ifrn End Ifrnrn错误提示：rn对象变量或with块变量未设置rn If mrc.EOF = True Thenrn行出错rn如何解决，谢谢！！！～～～

OC 重点block-------2-------block内部访问外部变量的问题: 1).在block 代码块的内部，可以取定义在外部的变量的值，定义在外部的局部变量和全局变量 2).在block代码块中可以修改全局变量的值，但是不能修改定义在外部的局部变量的值。（如果希望定义的的局部变量，可以允许block代码的内部去修改，那么就在局部变量加上一个__block） #import typedef void

实时错误91，对象变量或with块变量未设置: 问题：在添加用户信息的过程中，执行到while(mrc.EOF=False)的时候，提示如下错误，对象变量或with块变量未设置 当把光标放到set mrc=executesql(txtsql,msgtext)上面的时候，会发现mrc返回值为Nothing.mrc的值为空，所以就会提示对象变量未设置这样的错误提示。解决办法：

Block变量，被__block修饰的变量称作Block变量。基本类型的Block变量等效于全局变量、或静态变量。: Block变量，被__block修饰的变量称作Block变量。基本类型的Block变量等效于全局变量、或静态变量。

关于block中调用外部基本数据类型变量问题: bock中调用外部基本数据类型变量

c#变量未赋值: c#在新建的windowsforms程序中，在form1.designer.cs中的private void InitializeComponent() 窗体设计生成的代码里写了一个线程th = new Thread(gensui); 然后出现警告警告变量“th”未声明或从未赋值。转到设计界面报错：若要在加载设计器前避免可能发生的数据丢失，必须纠正以下错误:

对象变量未设置?: 有一段代码rnrnrn没有global.asa 文件,也就是没有Session_OnStart函数 rnrn应该说,Account = "" ,但是却提示"对象变量未设置"rnrn请问为什么??

对象变量未设置: 我做了一个小项目，在自己的机器上用时好用，再另一台机器上打包运行了，调试好了。再换一台机器，就出现“对象变量或with块变量未设置”问题。很奇怪啊，不清楚错在什么地方。希望有经验的前辈指点一下rn我是要ACCESS数据库的

对象变量未设置??: 在类模块中声明：rnrnOption ExplicitrnPrivate mdtmCreated As DatarnrnPrivate Sub Class_Initialize()rn mdtmCreated = Now rnEnd Subrnrn语句　mdtmCreated = Now　错误！rn错误：　　　　　rn　　　　　　实时错误‘91’rn　　　　　　对象变量未设置rn该怎么解决？？

设置变量或with block变量"">点击Treeview出错,"未设置变量或with block变量": 我点击TREEVIEW1的代码是rnPublic Scfl As StringrnPrivate Sub TreeView1_Click()rnScfl = TreeView1.SelectedItem.TextrnIf Scfl = "所有" Then '所有是表头 rnScfl = ""rnExit SubrnEnd IfrnScfl = TreeView1.SelectedItem.Textrnend subrn我在同一个程序里前面那个TREEVIEW乱点时总选定了表头“所有”这项。rn但是在新的这个TREEVIEW1里只要点不中NODE 就会"未设置变量或with block变量" 出错 rn真是难死新人了请有空的老师指点下谢谢

vb封装报800a005b 未设置变量或with block对象: 我是把ASP封装成DLL用的。如果没有记录集或者数据库，那就没有问题。rn我引用了active server page liberaryrnMicrosoft activex data 2.5rn还有一个带recordset的。rnrnrnrn代码如下：rn[code=VB]rnrnoption ExplicitrnrnPrivate Context As ScriptingContextrnPrivate Application As ApplicationrnPrivate Response As ResponsernPrivate Request As RequestrnPrivate Session As SessionrnPublic conn As ADODB.ConnectionrnPublic rs As ADODB.RecordsetrnPrivate Server As ServerrnPrivate key As StringrnrnrnPublic Sub OnStartPage(PassedscriptContext As ScriptingContext)rnSet Context = PassedscriptContextrnSet Application = Context.ApplicationrnSet Request = Context.RequestrnSet Response = Context.ResponsernSet Server = Context.ServerrnSet Session = Context.SessionrnEnd SubrnrnrnrnrnPublic Function setKey(key_)rn key = key_rnEnd FunctionrnrnPublic Function getKey()rn getKey = keyrnEnd Functionrnrnrnrn'==========================rn' connect to databasern'==========================rnPublic Function DbConn()rn Dim connstr As Stringrn Dim conn As New ADODB.Connectionrn Set conn = Server.CreateObject("adodb.connection")rn connstr = "driver=mysql odbc 3.51 driver;database=biran;uid=root;password=7321203;server=localhost;stmt=set names 'gbk'"rn conn.Open connstrrn If Err <> 0 Thenrn Err.Clearrn End Ifrn DbConn = connrnEnd FunctionrnrnPublic Function getData()rn Dim con As ADODB.Connectionrn con = test.DbConn()rn Dim rs As New ADODB.Recordsetrn rn Set rs = Server.CreateObject("adodb.recordset")rn rs.Open "select * from aa", conn, 1, 1rn If Not rs.EOF Thenrn Do While Not rs.EOFrn rn Response.Write rs("name") & " "rn rn rs.MoveNextrn Looprn rn Elsern Response.Write "NO Data"rn End Ifrn rs.Closern Set rs = Nothingrn rn rn rnrnEnd FunctionrnrnPublic Sub OnEndPage()rnSet Application = NothingrnSet Request = NothingrnSet Response = NothingrnSet Server = NothingrnSet Session = NothingrnSet Context = NothingrnEnd Subrnrnrn[/code]

MATLAB数据过大，无法保存: 如果matlab提示如下警告：警告: 未保存变量 ‘**’。对于大于 2GB 的变量，请使用 MAT-file 版本 7.3 或更高版本。解决方案如下：进入matlab主页，点击“布局”旁边的预设按钮，点击常规，点击MAT-File，选择第一个MAT-file保存格式，点击确定即可。 ...

关于block访问外部变量的一些小注意点: Block类型是一个C级别的语法和运行机制。它与标准的C函数类似,不同之处在于,它除了有可执行代码以外,它还包含了与堆、栈内存绑定的变量。因此,Block对象包含着一组状态数据,这些数据在程序执行时用于对行为产生影响。　　你可以用Block来写一些可以传到API中的函数语句,可选择性地存储,并可以使用多线程。作为一个回调,Block特别的有用,因为block既包含了回调期间的代码,又包含了执

运行时出现“对象变量或With对象变量未设置“: rnrnrn运行时出现“对象变量或With对象变量未设置“rn代码如下：rnPrivate Sub Command1_Click()rnDim mrc As ADODB.Recordsetrntxtsql = "select uname from use where uname='" & Trim(Text1.Text) & "'"rnSet mrc = ExecuteSQL(txtsql)rnIf mrc.EOF = True Then这里出错，“对象变量或With对象变量未设置“rn MsgBox " 用户名错误或密码错误！", vbExclamation + vbOKOnly, "警告"rn Text1.SetFocusrn Text1.SelStart = 0rn Text1.SelLength = Len(Text1.Text)rn Exit SubrnEnd Ifrnuname = mrc.Fields(0)rntxtsql = "select uname from use where password='" & Trim(Text2.Text) & "'"rnSet mrc = ExecuteSQL(txtsql)rnIf mrc.EOF = True Thenrn MsgBox " 用户名错误或密码错误！", vbExclamation + vbOKOnly, "警告"rn Text2.SetFocusrn Text2.SelStart = 0rn Text2.SelLength = Len(Text2.Text)rn Exit SubrnEnd If MDIForm1.ShowrnUnload MernEnd SubrnPublic Function ExecuteSQL(ByVal sql As String) As ADODB.RecordsetrnDim mycon As ADODB.ConnectionrnDim rst As ADODB.RecordsetrnSet mycon = New ADODB.Connectionrnmycon.ConnectionString = connstringrnmycon.OpenrnDim stokens() As StringrnOn Error GoTo exectuesql_errorrnstokens = Split(sql)rnIf InStr("INSER,DELETE,UPDATE", UCase(stokens(0))) Thenrn mycon.Execute sqlrnElsern Set rst = New ADODB.Recordsetrn rst.Open Trim(sql), mycon, adOpenKeyset, adLockOptimisticrnSet ExecuteSQL = rstrnEnd Ifrnexectuesql_exit:rn Set rst = Nothingrn Set mycon = Nothingrn Exit Functionrnexectuesql_error:rn Resume exectuesql_exitrnEnd Functionrnrn请多多指教

【iOS】block作为属性时候的坑: 今天在开发LemonBest开源项目的时候，写了一个小demo，遇到一个大坑，在LemonBestItem中我采用属性的方式进行保存一个回调block，在点击之后调用这个block，发现crash了，怎么办呢？开始解决

“对象变量或with块变量未设置”问题: Private Sub AddUser_Click() '将密码写入数据库rn On Error GoTo errhrn Set rs = New ADODB.Recordsetrn Set rs = CN.Execute("select * From User")rn rs.MoveFirstrn Dorn If rs.Fields("ID") = txtID.Text Thenrn If Me.txtName.Text <> "" Thenrn If Me.txtUserName.Text <> "" Thenrn If Me.txtPassword.Text <> "" Thenrn If Me.txtTel.Text <> "" Thenrn Set rs = New ADODB.Recordsetrn MakeConnectionrn rs.LockType = adLockOptimisticrn rs.CursorType = adOpenKeysetrn rs.Open "用户", CN, , , adCmdTablern rs.AddNewrn rs.Fields("Name").Value = Me.txtName.Textrn rs.Fields("UserName").Value = Me.txtUserName.Textrn rs.Fields("Password").Value = Me.txtPassword.Textrn rs.Fields("Tel").Value = Me.txtTel.Textrn rs.Updatern delConnection '断开连接数据库rn Me.Hidern MsgBox "恭喜您！您已注册成功！"rn Elsern MsgBox "用户的电话号码不能为空，请输入您的电话号码！"rn End Ifrn Elsern MsgBox "用户的密码不能为空，请输入您的密码！"rn End Ifrn Elsern MsgBox "用户昵称不能为空，请输入您的昵称！"rn End Ifrn Elsern MsgBox "用户真实姓名不能为空，请输入您的真实姓名！"rn End Ifrn End Ifrn rs.MoveNextrn Loop Until rs.EOFrn If rs.EOF Then '用户ID不存在时rn MsgBox "对不起！你输入的ID不存在！", , "Login"rn txtID.SetFocusrn End Ifrn Exit Subrnerrh: '出错处理rn MsgBox Err.DescriptionrnEnd Subrnrn这段代码运行时总出现“对象变量或with块变量未设置”的错误提示，请问是什么问题？

对象变量或With块变量未设置问题！！: 我要模拟抽奖系统，两个按钮一个Label或TextBox，点击开始按钮，就是让数据库中的号码不停地在窗体上多行滚动，点击停止按钮，就停下来。但不能重复抽！！！rn在下是个菜鸟只能想到如下：rn Dim CN As ADODB.Connectionrn Dim StartLoop As Booleanrn Dim SqlStr As Stringrn rn Private Sub Form_load()rn CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\...\db1.mdb;Persist Security Info=False"rn CN.Openrn End Subrn rn Private Sub CommandButton1_Click()rn Dim starTime As Singlern Dim rs As ADODB.Recordsetrn StartLoop = Truern SqlStr = "select call_no from pd_users where 1=1"rn Set rs = CN.Execute(SqlStr)rn rs.MoveFirstrn Do While StartLooprn starTime = Timerrn Do While Timer - starTime < 0.1rn DoEventsrn If StartLoop = False Then Exit Dorn Looprn TextBox1 = rs("call_no")rn rs.MoveNextrn On Error Resume Nextrn If rs.EOF Thenrn rs.MoveFirstrn Elsern rs.MoveNextrn End Ifrn Looprn rs.Closern End Subrn rn Private Sub CommandButton2_Click()rn StartLoop = Falsern End Subrn系统提示说：对象变量或With块变量未设置，并指向这句“Set rs = CN.Execute(SqlStr)”请大家帮忙看看；rn还有，我在SQL语句查询后在多一步操作，将查询处的call_no的state字段的值改为1rn应该怎么改！！谢谢大家！！rn

关于对象变量或with块变量未设置问题。。。。: [code=VB]Private Sub Form_Load()rnDim i As IntegerrnrnCall Connent '调用模块连接数据库rnCombo1.ClearrnCombo2.Clearrn rn '把值检索出来赋值给combo1控件，rnIf Adodc2.Recordset.RecordCount > 0 Then （★★程序提示此行代码有误★★rn提示内容为“对象变量或with块变量未设置”。）rnrn Adodc2.Recordset.MoveFirstrnFor i = 0 To Adodc2.Recordset.RecordCount - 1rn Combo1.AddItem Adodc2.Recordset.Fields(0).Valuern Combo2.AddItem Adodc2.Recordset.Fields(1).Valuern Adodc2.Recordset.MoveNextrnNextrnEnd IfrnCombo1.ListIndex = 0rnCombo2.ListIndex = 0rnEnd Sub[/code]rnrn我想问下应该是怎么解决？为什么会产生这个问题？rn谢谢

新手问题，提示对象变量或WITH块变量未设置: 我是新手，刚刚用VB6.0编的一个小程序，新建记录和删除都正常，就是选中表中的一条数据，点编辑按钮就提示“实时错误‘91’对象变量或WITH块变量未设置”rnVB程序文件在http://www.redfoxcn.com/vb.rarrn哪位大哥帮忙解决下啊

iOS block截获变量: block截获变量是什么意思？我们先来看一段代码：int i = 10; void (^block)(void) = ^{ NSLog(@"In block, i = %d", i); }; i = 200; block(); NSLog(@"i = %d", i);这段代码的输出结果是什么呢？控制台输出结果为：有人肯定会想，在 block 执行之前已经把变量 i 的值改成 20 了，为什...

vs2017 编译KBEngine 出现未将对象引用设置到对象的实例: 最近项目服务器开始使用kbe开发，闲时下载研究研究，用vs编译出现未将对象引用设置到对象的实例，尝试了各种升级vs sdk等，都没有得到解决，后来发现是vs的设置的问题，解决方法如下：将C:\Users\user\AppData\Local\Microsoft\VisualStudio下所有的文件都删除掉，然后重新打开vs进行设置，然后问题就解决了，哈哈 ...

解决循环引用问题系列 - 成员变量访问问题: 项目中遇到的一个比较容易忽略的而且容易导致循环引用的问题,这里记录一下,供大家分享!

又见block（五）： __block变量和对象: __block说明符可指定任何类型的自动变量 ARC时，id类型以及对象类型变量一定有所有权修饰符，缺省是__strong，因此__block id obj = [[NSObject alloc] init];等同于 __block __strong id obj = [[NSObject alloc] init]; 通过在终端下clang该代码，得到的转换源码主要如下： stat...

ASP组件错误：没有设置对象变量或with Block变量: Vb组件代码：rnPrivate obj As ScriptingContextrnPrivate objserver As serverrnPrivate response As responsernrnPublic Function responsetest()rnSet response = obj.responsern response.Write "a"rnEnd FunctionrnASP调用：rnrn可能是Response对象没有实例化，但我不知道怎么才可实例化rndim response as new response 这种形式是错误的。

对象变量或with块未设置: 对象变量 或with块未设置 ,什么原因啊，说代码错误所在行是 rn Dim email As Integerrn email = WebBrowser1.Document.body.innertext 说这行有错误如何改正啊，在关闭窗口是提示这个错误。有时候运行还正常

对象变量或with未设置，这怎么改？: 提示：实时报错“91”，对象变量或with未设置，这怎么改？谢谢！rn[code=VB.NET]Private Sub cmdOK_Click()rnDim txtSQL As StringrnDim rstLogin As ADODB.RecordsetrnDim flag As StringrngUserName = ""rngUserKind = ""rnIf Trim(txtUserName.Text = "") Thenrn MsgBox "用户名不能为空!", vbOKOnly + vbExclamation, "警告"rn txtUserName.SetFocusrnElsern txtSQL = "select * from tbUser where UserId = '" & txtUserName.Text & "'"rn flag = ExecuteSQL(txtSQL, rstLogin, False)rn [color=#FF0000] If rstLogin.EOF = True Then[/color]rn MsgBox "没有这个用户，请重新输入!", vbOKOnly + vbExclamation, "警告"rn txtUserName.SetFocusrn Elsern If Trim(rstLogin.Fields(1)) = Trim(txtPassword.Text) Thenrn gUserName = Trim(txtUserName.Text)rn gUserKind = Trim(rstLogin.Fields(2))rn gLoginSucceeded = Truern rstLogin.Closern Me.Hidern frmMain.Showrn Elsern MsgBox "密码不正确，请重新输入!", vbOKOnly + vbExclamation, "警告"rn txtPassword.SetFocusrn txtPassword.Text = ""rn End Ifrn End IfrnEnd IfrnmiCount = miCount + 1rnIf miCount = 3 ThenrnMe.HidernExit SubrnEnd IfrnEnd Sub[/code]

如何在block内部修改外部变量: 默认情况下，在block中访问的外部变量是复制过去的，即：写操作不对原变量生效。但是你可以加上 __block 来让其写操作生效，示例代码如下: __block int a = 0; void (^foo)(void) = ^{ a = 1; }; foo(); //这里，a的值被修改为1 你同样可以在面试中这样回答，但你并没有答到“点子上”。真正的原因，并没有书这本书里写的这么“神

使用Excel公式解析变量表达式: 使用Excel公式解析变量表达式在PDM中，使用一个字符串表达零件的一组变量的值，形如：｛变量1=值1;变量2=值2;｝格式，根据变量的名称取出变量的值。通过如下步骤使用如下公式解决：定位变量的位置：L1=find(var,exp) 定位等号的位置：L2=find(“=”,exp,L1) 定位分号的位置：L3=find(“;”,exp,L2) 截取该变量的值：=mi...

你真的理解__block修饰符的原理么？: 开篇自测在本文的开头，提出两个简单的问题，如果你不能从根本上弄懂这两个问题，那么希望你阅读完本文后能有所收获。为什么block中不能修改普通变量的值？ __block的作用就是让变量的值在block中可以修改么？如果有的读者认为，问题太简单了，而且你的答案是：因为编译器会有警告，各种教程也都说了不能修改。应该是的吧。那么我也建议你，抽出宝贵的几分钟时间阅读完本文吧。在开始揭开__block

Java多线程之对象及变量的并发访问: Java对象及变量的并发访问当多个线程同时对同一个对象中的实例变量进行并发访问时可能会产生线程安全问题。产生的后果就是”脏读”，即收到的数据其实是被更改过的。如果访问的是方法中的变量，则不存在”非线程安全”问题 可以通过以下几种方式来解决，在对对象及变量并发访问过程中的安全问题 1. synchronize同步方法 2. 同步语句块 3. volatile关键字synchronize同步

未设置对象或 WITH BLOCK 对象: 我用ASP封装DLL，在引用的时候，凡是有recrodset 的时候，就会出现下面的错误rnrn'800a005b' rnrn未设置对象变量或 With block 变量rnrnrnrn我引入了数据库对象，然后在全局变量中写入了 Dim rs as adodb.recordsetrnrn然后在函数中写了Dim rs as new adodb.recordsetrnrn但是还是出这个问题，有没有谁知道是什么问题？

机房收费系统——对象变量或with块变量未设置: 前言：首先，我之所以写这个问题，是因为我从学生管理系统开始到机房收费系统，我见过好多次的 “对象变量或with块变量未设置” 这个破问题，于是我终于受不了了，要写一篇我的总结，关于这个破问题的总结！正文：实例91这个错误我遇到的原因能够

奇怪--对象变量或With块变量未设置: 同样的一个Function，当放到Module中就抱错对象变量或With块变量未设置rnrn而当整个Function放在Form中就可以正常执行rnrn各位大侠这是为什么呀？？rnrn谢谢！！！

提示“对象变量或with块变量未设置”错误: [code=VB]rnOption ExplicitrnPrivate cn As New ADODB.ConnectionrnPrivate rs As New ADODB.RecordsetrnPrivate cnStr As StringrnrnPrivate Sub Form_Load()rnDim sql As Stringrnsql = "Select * from [doc]"rngetDate (sql)rnshowDatarnEnd SubrnrnPrivate Function getDate(cnStr)rnSet cn = New ADODB.Connectionrncn.CursorLocation = adUseClientrncn.Open "PROVIDER=microsoft.jet.oledb.4.0;persist security info =false;data source=" & App.Path & "\data\data.mdb" & ";Jet OLEDB:Database"rnSet rs = New ADODB.Recordsetrnrs.Open cnStr, cn, 1, 3rnEnd FunctionrnrnPrivate Function showData()rnWith MSHFlexGrid1rn.Clearrn.Cols = 6rn.ColWidth(0) = 0rn.ColWidth(1) = 1400.ColWidth(2) = 4670rn.ColWidth(3) = 1200rn.ColWidth(4) = 1800rn.ColWidth(5) = 1200rn.ColAlignmentFixed = flexAlignCenterCenterrn.Recordset = rsrnEnd WithrnEnd Functionrn[/code]rn上面这段代码在.Recordset = rs这句提示“对象变量或with块变量未设置”错误rn网上搜了半天，应该是rs没有实例化rn可是我不知道具体该怎么做，请教大家了rn麻烦详细点，非常感谢~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

如何判断对象变量或 With 块变量未设置？？: 如果ListView中没有数据，我的双击时程序想读出点的是那行，但会出现错误，如何判断这个错误的产生？rnNowColume = ListView1.SelectedItem.Indexrn例如想实现这样的效果：rn IF ListView1.SelectedItem.Index=NULL Then MsgBox "表格中没有数据！"

出错：对象变量或with块变量未设置: 会是什么原因？

求救：对象变量或With块变量未设置　怎么解决？？？？？: ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝主程序rnPrivate Sub cmdt_Click()rnDim cn As New Adodb.ConnectionrnDim rs As New Adodb.RecordsetrnDim sql As StringrnDim username As StringrnDim password As Stringrnusername = Trim(tbusername.Text)rnIf username = "" Thenrn MsgBox "用户名不能为空！", vbInformation, "系统登陆提示"rn Exit SubrnEnd Ifrnpassword = checkpwd.md5((tbpwd.Text))rnsql = "select * from 系统表 where 用户名='" & username & "'"rnMsgBox sqlrnSet rs = ExeSQL(sql)rnrnIf rs.EOF = True Then　　　　　　＇＝＝＝＝对象变量或With块变量未设置rn If errortime > 2 Thenrn MsgBox "连续三次输入错误,系统自动退出!如果有何疑问请与系统管理员联系.", vbCritical, "系统提示"rn Unload Mern Elsern MsgBox "没有此用户，请重新输入用户名！", vbExclamationrn errortime = errortime + 1rn tbusername.Text = ""rn tbusername.SetFocusrn End IfrnElsern If password = rs!密码 Thenrn Load frmmainrn Load MDIFormmainrn MDIFormmain.Showrn frmmain.Showrn Me.Hidern Unload Mern Elsern MsgBox "密码输入错误,请重试!", vbInformation, "系统登陆提示"rn errortime = errortime + 1rn tbpwd.Text = ""rn tbpwd.SetFocusrn End IfrnEnd Ifrnrs.ClosernSet rs = NothingrnEnd Subrnrn＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝调用的ExeSQL(sql)过程rnrnrnPublic Function ExeSQL(ByVal sql As String) As Adodb.Recordsetrn On Error GoTo ErrHandler:rn rn Dim cn As Adodb.Connectionrn Dim rs As Adodb.Recordsetrn Dim strArray() As Stringrn　　ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\jxcdbase.mdb;Persist Security Info=False"rnrn rn Set cn = New Adodb.Connectionrn Set rs = New Adodb.Recordsetrn cn.Open ConnStrrnrn strArray = Split(sql)rn rn If StrComp(UCase$(strArray(0)), "select", vbTextCompare) = 0 Thenrn rs.Open Trim$(sql), cn, adOpenKeyset, adLockOptimisticrn Set ExeSQL = rsrn Elsern cn.Execute sqlrn End IfrnrnExeSQl_Exit:rn Set rs = Nothingrn Set cn = Nothingrn Exit Functionrn rnErrHandler:rn ' 显示错误信息rn MsgBox "错误号:" & Err.Number & " 错误信息：" & Err.Description, vbExclamationrn Resume ExeSQl_Exitrn End Function

实时错误91 对象变量或with块变量未设置: [code=VB]Option ExplicitrnrnPrivate Sub Form_Load()rnDim cnn As New ADODB.ConnectionrnDim cmd As New ADODB.CommandrnDim rs As New ADODB.Recordsetrncnn.Open "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=WMS;Data Source=192.168.0.3"rncmd.ActiveConnection = cnnrncmd.CommandText = "Select * from UDept"rnrs.Open cmd, , adOpenStatic, adLockBatchOptimisticrnIf rs.RecordCount > 0 ThenrnSet DBCombo1.RowSource = rs '这里报错rnDBCombo1.ListField = "FDeptName "rnDBCombo1.BoundColumn = "FDeptID "rnDBCombo1.RefreshrnEnd IfrnEnd Subrnrn[/code]rn我新建一应用程序,全部代码如上,怎么还会报错呢?rnVB6.0

错误'91'对象变量或with块变量未设置: Private Sub Command3_Click()rn Adodc2.RecordSource = "select*from t_vocher order by FVoucherID"rn ' Adodc2.RefreshrnIf Adodc2.Recordset.RecordCount > 0 Thenrn Adodc2.Recordset.MoveLastrn Text2.Text = Adodc2.Recordset.Fields("FVoucherID")rn Text2.Text = Val(Adodc2.Recordset.Fields("fvoucherid")) + 1rn Text10.Text = Text2.TextrnElsern Text2.Text = 1rn Text9.Text = 1rnEnd Ifrn Adodc1.RecordSource = "select * from h_xiaofeijilu order by id"rn Adodc1.Refreshrn Text1.Text = Format(Adodc1.Recordset.Fields("xiaofeishijian"), "yyyy-mm-dd")rn Text3.Text = "会员编号为" + Adodc1.Recordset.Fields("kahao") + "的会员刷卡消费"rn Text4.Text = Text3.Textrn Text5.Text = 1111rn Text6.Text = 1112rn Text7.Text = Adodc1.Recordset.Fields("xiaofeijine")rn Text8.Text = Adodc1.Recordset.Fields("xiaofeijine")rn Text11.Text = Format(Adodc1.Recordset.Fields("xiaofeishijian"), "yyyy")rn Text12.Text = Format(Adodc1.Recordset.Fields("xiaofeishijian"), "mm")rnEnd Subrnrnrn到If Adodc2.Recordset.RecordCount > 0 Then时提示错误'91'对象变量或with块变量未设置错误。高手给指点一下。其中Adodc2的connectionstring属性已经在界面上通过属性选择设置过了。

实时错误‘91’，对象变量或with块变量未设置: Private Sub cmdOK_Click()rn Dim txtSQL As Stringrn Dim mrc As ADODB.Recordsetrn Dim MsgText As Stringrn 'ToDo: create test for correct passwordrn 'check for correct passwordrn rn UserName = ""rn If Trim(txtUserName.Text = "") Thenrn MsgBox "用户名不允许为空，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"rn txtUserName.SetFocusrn Elsern txtSQL = "select * from user_Info where user_ID = '" & txtUserName.Text & "'"rn Set mrc = ExecuteSQL(txtSQL, MsgText)rn If Not mrc.EOF Thenrn MsgBox "没有这个用户，请重新输入用户名!", vbOKOnly + vbExclamation, "警告"rn txtUserName.SetFocusrn Elsern If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Thenrn OK = Truern mrc.Closern Me.Hidern UserName = Trim(txtUserName.Text)rn Elsern MsgBox "输入密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"rn txtPassword.SetFocusrn txtPassword.Text = ""rn End Ifrn End Ifrn End Ifrn rn miCount = miCount + 1rn If miCount = 3 Thenrn Me.Hidern End Ifrn Exit SubrnEnd Subrnrn报出错的是： If Not mrc.EOF Then，大侠帮帮忙看看，不胜感激！！！！！！

急！对象变量或with块变量未设置: Private Sub Command1_Click(Index As Integer)rnrnDim mrc As ADODB.RecordsetrnDim MsgText As StringrnDim txtSQL As StringrnIf Not Testtxt(txtClassno.Text) ThenrnMsgBox "请输入班号!", vbOKOnly + vbExclamation, "警告"rntxtClassno.SetFocusrnExit SubrnEnd IfrnIf Not Testtxt(ComboGrade.Text) ThenrnMsgBox "请选择年级!", vbOKOnly + vbExclamation, "警告"rnComboGrade.SetFocusrnExit SubrnEnd IfrnIf Not Testtxt(txtDirector.Text) ThenrnMsgBox "请输入班主任姓名!", vbOKOnly + vbExclamation, "警告"rntxtDirector.SetFocusrnExit SubrnEnd IfrnIf Not Testtxt(txtClassroom.Text) ThenrnMsgBox "请输入教室房间号!", vbOKOnly + vbExclamation, "警告"rntxtClassroom.SetFocusrnExit SubrnEnd IfrnIf Not IsNumeric(Trim(txtClassno.Text)) ThenrnMsgBox "请输入数字!", vbOKOnly + vbExclamation, "警告"rnExit SubrntxtClassno.SetFocusrnEnd IfrntxtSQL = "select * from class_Info"rnSet mrc = ExecuteSQL(txtSQL, MsgText)rnrnmrc.MoveFirstrnrnWhile (mrc.EOF = False)rnIf (Trim(mrc.Fields(0)) = Trim(txtClassno.Text)) ThenrnMsgBox "班号已经存在,请重新输入班号!", vbOKOnly + vbExclamation, "警告"rnExit SubrntxtClassno.Text = ""rntxtClassno.SetFocusrnElsernmrc.MoveNextrnEnd IfrnWendrnmrc.AddNewrnmrc.Fields(0) = Trim(txtClassno.Text)rnmrc.Fields(1) = Trim(ComboGrade.Text)rnmrc.Fields(2) = Trim(txtDirector.Text)rnmrc.Fields(3) = Trim(txtClassroom.Text)rnmrc.Updaternmrc.ClosernMsgBox "添加班级信息成功!", vbOKOnly + vbExclamation, "添加班级信息"rnEnd Subrn这段代码中的mrc.MoveFirst这句出现黄色，怎么办啊

vb2005 未设置对象变量或with块变量: 用listbox显示当天销售票号，当选中某票号时叫LABEL显示票号对应的客户全称，可重复上述工作时却出“未设置对象变量或with块变量”错误，请高手指点，代码如下rn[code=VB.NET]Public Class dkshrn Dim astr As Stringrn Dim a As New DataSetrn Dim listdaset1 As New DataSetrn Dim date1 As Stringrn Dim mybm As BindingManagerBasern Dim dv As System.Data.DataViewrn Dim pd As Stringrn Dim view As DataView = New DataViewrn Dim datareader As SqlClient.SqlDataReaderrn Public stra As Stringrn Public strbjd As Stringrn Dim listdaset3 As New DataSetrn Public strbs As Stringrn Public strcs As Stringrn Public Shared thbm As Stringrn Public Shared dkph As Stringrn Dim datacp As New DataSetrn Dim com1 As Stringrn Dim com As Stringrnrn Dim listda As SqlClient.SqlDataAdapterrnrnrn Sub list1()rn If LoginForm1.conn.State = ConnectionState.Closed Thenrn LoginForm1.conn.Open()rnrn End Ifrnrn Me.GroupBox2.Text = Button4.Textrn If listdaset1.Tables("a") IsNot Nothing Thenrn listdaset1.Tables("a").Clear()rn ' dv.Table.Clear()rnrn End Ifrn Dim list1com As String = "select 票号,此次应收 from " & ComboBox1.Text & ".dbo.ysa where 业务2=1 and substring(票号,5,8)='" & date1 & "'"rn listda = New SqlClient.SqlDataAdapter(list1com, LoginForm1.conn)rn If listdaset1.Tables("a") Is Nothing Thenrn listda.Fill(listdaset1, "a")rn Elsern listdaset1.Tables("a").Clear()rn listda.Fill(listdaset1, "a")rn End Ifrnrnrn ListBox1.DisplayMember = "票号"rn ListBox1.DataSource = listdaset1.Tables("a")rn view = listdaset1.Tables("a").DefaultViewrnrn Label16.Text = listdaset1.Tables("a").Rows.Countrn view.Sort = "票号"rnrn 'Label17.Text = listdaset1.Tables("a").Compute()rn If IsDBNull(listdaset1.Tables("a").Compute("sum(此次应收)", view.RowFilter)) = True Thenrn Label17.Text = 0rn Elsern Label17.Text = listdaset1.Tables("a").Compute("sum(此次应收)", view.RowFilter)rn End Ifrnrn ' Me.ContextMenuStrip1.Items.Item("撤消").Visible = Falsernrnrn If LoginForm1.conn.State = ConnectionState.Open Thenrn LoginForm1.conn.Close()rnrn End Ifrnrnrnrnrnrnrnrnrn End Subrn Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChangedrnrn Tryrn If LoginForm1.conn.State = ConnectionState.Closed Thenrn LoginForm1.conn.Open()rnrn End Ifrnrn If ListBox1.Items.Count >= 1 Thenrn dkph = ListBox1.SelectedItem(0).ToString()rnrn End Ifrnrn ' End Ifrnrn If dkph IsNot Nothing Thenrnrn Dim com1 As String = "select 此次应收 from " & ComboBox1.Text & ".dbo.ysa where 票号='" & dkph & "'"rn Dim com As String = "select 客户全称 from " & ComboBox1.Text & ".dbo.ysa where 票号='" & dkph & "'"rnrn Dim adcom As New System.Data.SqlClient.SqlCommand(com, LoginForm1.conn)rn Dim adcom1 As New System.Data.SqlClient.SqlCommand(com1, LoginForm1.conn)rnrnrn Label13.Text = adcom.ExecuteScalarrnrnrnrn Label10.Text = adcom1.ExecuteScalarrnrn End Ifrnrnrnrn If LoginForm1.conn.State = ConnectionState.Open Thenrn LoginForm1.conn.Close()rnrn End Ifrnrnrn Catch ex As Exceptionrn MessageBox.Show(ex.ToString)rn End Tryrnrn End SubrnPrivate Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Clickrn Button5.Enabled = Truern Button4.Enabled = Falsern Button2.Enabled = Truern list1()rnrn End Subrn[/code]

设置对象变量或 With block 变量"?">asp代码封装成dll组件中的问题"未设置对象变量或 With block 变量"?: dll文件中的函数，用于添加记录到库中：rnPublic Sub addinformation(xn, xq, grade, subject, unit, title, author, introduce, sharetech, sharestud, flagsp, picfile)rnrn Dim conn As ADODB.Connectionrn Dim connstr As Stringrn connstr = "driver=sql server;server=;uid=sa;pwd=;database=boke"rn conn.Open connstrrn rn conn.Execute "insert into boke_news(xn,xq,grade,subject,unit,title,author,introduce,sharetech,sharestud,flagsp,picfile) values (" _rn & "'" & xn & " '," _rn & "'" & xq & " '," _rn & "" & grade & " ," _rn & "" & subject & " ," _rn & "'" & unit & " '," _rn & "'" & title & " '," _rn & "'" & author & " '," _rn & "'" & introduce & " '," _rn & "'" & sharetech & " '," _rn & "'" & sharestud & " '," _rn & "'" & flagsp & " '," _rn & "'" & picfile & "')"rn conn.ClosernEnd Subrnrnasp文件中获取表单的数据，并传送到dll函数中:rnrn'获取表单上传数据rn'定义变量,变量说明:grade:年级;subject:科目;unit:教学单元;title:标题;introduce:介绍;sharetech:教师共享;sharestud:学生共享;flagsp:是否带视频授课;picfile:形象页图片;rn grade=request("grade")rn subject=request("subject")rn unit=request("unit")rn title=request("title")rn introduce=request("introduce")rn sharetech=request("sharetech")rn sharestud=request("sharestud")rn flagsp=request("flagsp")rn picfile=request("musicfile")rn '表单信息获取结束rn rn '执行添加操作rn rn set addnewdata=server.createobject("bokeconn.inputclass")rn addnewdata.addinformation session("nowxn"),session("nowxq"),grade,subject,unit,title,session("code"),introduce,sharetech,sharestud,flagsp,picfilernrnrnrn'-------------------------rn'-------------------------rn执行的时候，系统提示出错：rn错误类型：rnbokeconn (0x800A005B)rn未设置对象变量或 With block 变量rn/boke/inputinformation.asp, 第 50 行rnrn各位帮小弟看看，到底哪里出错了？

请教问题，错误 '800a005b' 未设置对象变量或 With block 变量。。: vb 中类文件rnrnPublic Function GetConnection(dbname As String) As ADODB.Connectionrn Dim Conn As ADODB.Connectionrn Dim str_conn As Stringrn str_conn = "PROVIDER=SQLOLEDB;DATA SOURCE=localhost;UID=sa;PWD=123456;DATABASE=" & dbnamern Conn.Open str_connrn Set GetConnection = ConnrnEnd Functionrn********************************************************************rnasp 中应用rnrn set Connection=server.createobject("db.tool")rn set dbConn = Server.CreateObject("ADODB.Connection")rn dbConn=bbsConnection.GetConnection("xnsq")rnrn执行的时候 dbConn=bbsConnection.GetConnection("xnsq") 出错！！rnrn求解决办法！！rn

文章热词 tensorflow变量赋值操作 em算法中的隐变量问题 tensorflow的变量 Tensorflow框架变量 tensorflow变量管理
相关热词 c++回调函数的变量未申明 c++ lua 变量操作 c++ 变量和对象 go语言协程的变量问题菜鸟教程python变量 python教程线程变量

我们是很有底线的

操作Excel的问题 未设置对象变量或With block变量 [问题点数：50分]

操作Excel的问题未设置对象变量或With block变量 [问题点数：50分]