操作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 本版专家分：50420 红花 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

求教！急！急！急！未设置对象变量或Ｗith block变量问题出现该错误的程序　　提示：实时'91＇错误　未设置对象变量或Ｗith block变量问题 Private Sub cmdCancel_Click() Unload Me End Sub Private

⋅玩了18年DELHI，很好的一个语言，没有强大的靠山，我也准备离去了，去学他妈的JS ⋅grid控件 ⋅ACCESS与SQL SERVER中的日期类型的长度 更多帖子 关注空间博客 minizhuxianchun 本版专家分：2568: 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

VB提示未设置对象变量或with块变量 Public Class frmLogin Dim cnt As Integer Dim fd As Integer Private Property CM As Object Private Sub

收藏帖子

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

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

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

急！运行时错误91：未设置对象变量或WITH BLOCK 变量: Option Explicit Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal

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

Excel运行时错误'91',对象或变量块未设置: 之前项目用excel vba做的报表，一直都是OK的。今天上午打了系统补丁之后，主要还是Excel的补丁。现在不能导出excel了，错误如题。 Set rowList1 = doc.DocumentE

“对象变量或with块变量未设置”是什么意思？: 用VB开发了一个小型的学生资料管理系统，进行查询时老是提示“对象变量或with块变量未设置”用DAO方法连接的数据库

VB运行提示对象变量或With块变量未设置报错，求高手解决: VB运行提示对象变量或With块变量未设置报错，求高手解决 Public file_name As String Private Sub Command1_Click() CommonDialog1.

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

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

对象变量或with块变量未设置的错误怎么解决: Dim MLineObj1 As AcadMLine Dim MLineObj2 As AcadMLine Set MLineObj1 = ThisDrawing.ModelSpace.AddMLin

SqlServer执行SQL被block的操作: 有用的帖子链接： http://www.dotblogs.com.tw/ricochen/archive/2012/07/10/73316.aspx http://technet.microsoft.com/en-us/library/ms175519(v=sql.105).aspx 有用的查询或指令： 1.被block的sql SELECT SPID=p.spid, D

求教，vb高手！！！未设置对象变量或 With 块变量。: Imports Microsoft.Office.Interop Public Class Form1 Public strFileName As String Public mubanFileNam

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

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

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

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

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

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

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

VB编辑excel保存的时候报错“对象变量或With块变量未设置”是怎么回事儿？: VB编辑excel保存的时候报错“对象变量或With块变量未设置”是怎么回事儿？就是第一次保存的时候是正常的不报错但是第二次打开这个文件再保存的时候就会报错就是说当有同名文件的时候就会报错要怎

VB高手帮帮我，问题很急人，说对象变量或with块变量未设置

实时错误91，对象变量或with块变量未设置~~如何解决: Private Sub Command1_Click() If Text1.Text = "" Then MsgBox "请输入正确的网址", , "错误！" Text1.SetFocus Else

未设置对象变量或 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

实时错误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 ("文

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

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

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

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谢谢！

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

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请指点！谢谢！

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

[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 变量: 我的论文学生管理系统数据库连接那块，代码如下：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 变量

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

未设置对象变量或 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

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

关于“运行时错误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变量？？？: Private Sub Form_Load()rnDim abc As New Example.HelloworldrnSet abc = New Example.HelloworldrnCall abc.LoginrnSet abc = NothingrnEnd Subrnrn我实在是在工程中引用了example.dll文件的这个类模块！！！rn

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

未设置对象变量或 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

VB中对象变量或with块变量错误（91号错误）解决方法: 兄弟最近被这问题困搅，最后终于解决！ 1.你连接数据库时可能出错了，检查一下connectstring这句语句，是否写正确，或者把他该成connectstring ="file name=你保存的DNS的路径".注意的是在odbc源中选择dns文件哦！2.你的sql语句有没有写正确，查看方法是把你的语句放到sql server中的查询分析器中去运行一下，看看有没有什么问题！有问题就改一

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

对象变量或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 块变量: 有一数据表，字段包括标题（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块变量未设置: [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 块变量: 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变量未设置。: 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块变量未设置: 我想用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如何解决，谢谢！！！～～～

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

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

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

[求助]实时错误91，对象变量…: 原文地址：[求助]实时错误91，对象变量或with块变量未设置作者：芒果对象变量或 With 块变量没有设置（错误 91）创建对象变量有两个步骤。第一，必须先声明对象变量。然后必须用 Set 语句将一个正确的引用赋值给对象变量。同样地，With...End With 块必须先用 With 语句进入点来执行初始化。此错误有以下的原因和解决方法：试图使用的对象变量，还没有用一个正确对象的引用

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

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

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

对象变量未设置?: 有一段代码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该怎么解决？？

无法连接到local及运行错误"91"解决办法: 在刚开始做机房收费的时候一点头绪都没有，本来想看看资料里的样本是什么样子的然后出现了各种问题，数据库连接不上，运行错误“91”，具体问题及解决方法请看下图：输入用户名跟密码后出现了错误91，之前在做学生的时候也出现过类似的问题，然后就是数据库没有连接好，所以这次直接去连的数据库。图一：在连接服务器时

设置变量或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真是难死新人了请有空的老师指点下谢谢

block 捕获外部变量解析: 先看一张全图在上面的图片中可以看到： block 内部不可以修改自动变量的值，但是加上__block以后就可以 block 内部可以修改对象属性的值，但是不可以修改对象的指向接下来会逐个分析1. 全局变量 编译前编译后可以发现编译后是直接复制的，没有特殊操作 原因：全局变量是存放在全局符号表里面的，在整个 app 生命周期

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]

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

运行时出现“对象变量或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请多多指教

“对象变量或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谢谢

打开Office时出现“运行时错误91”问题的解决办法: 打开Office时出现“运行时错误91”问题的解决办法！

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

block(3) - 变量与__block修饰符: __block修饰变量的时候时候 1、__block修饰本地变量转为cpp的样子 //用__block修饰的本地变量b多了这个结构体 struct __Block_byref_b_0 { //直译为本地变量b在block中是通过引用的 void *__isa; __Block_byref_b_0 *__forwar...

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

Block原理，为什么block能捕获变量 -- 原理篇: 主要参考了这些文章 , 有删改： http://www.jianshu.com/p/ee9756f3d5f6 https://www.jianshu.com/p/c99f4974ddb5 https://www.jianshu.com/p/8865ff43f30e 前言 Blocks是C语言的扩充功能，而Apple 在OS X S...

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 了，为什...

对象变量或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]

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

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 这种形式是错误的。

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

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

我们是很有底线的

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

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