VB 3265 错误，在对应所需名称或序数的集合中未找到项目

Question

报错语句在第7行，但数据库里有这些字段，不清楚怎么改？求高人解答
1  sql_gh_month = "select * from T_gonghaocunchu_month where 日期='" & m_now & "' "
2  Set mrc_month_gh = ExecuteSQL(sql_gh_month)
3     str1 = ""
4   For j = 0 To p_count_formula - 1
5   str1 = str1 & "update T_gonghaocunchu_month  set "
6      mrc_month_gh.Fields("数量").value = mrc_month_gh.Fields("数量").value + formula_table(j).value
    
7       str1 = str1 & "数量=" & mrc_month_gh.Fields("数量").value
    
8       str1 = str1 & " where 日期='" & m_now & "' and 工序='" & formula_table(j).LevelCode & "'" & vbCrLf
 
9      mrc_month_gh.MoveNext
10   Next j11 Set mrc_month_gh = ExecuteSQL(str1)
12 Set mrc_month_gh = Nothing

Answer 1

加断点，看看mrc_month_gh是否有记录，如果是在循环前面没问题，循环到一定时候报错，也是加断点看看数据是否正常，还有，加个判断，是否到了数据的末尾eof

Answer 2

mrc_month_gh有记录，而且在每个月月初的时候都都会添加记录，然后更新数值，这个错误只是在循环到某一时刻的时候出现，这个循环有时候报错有时候不报错，很难捕捉到，不是很理解您说的数据异常是什么情况？

Answer 3

出错的时候加断点查看一下数据，如果是跑到中间出错，很大可能是你的select结果里面某行的有null字段之类的。

Answer 4

 Transact-SQL 参考  
ISNULL
使用指定的替换值替换 NULL。语法
ISNULL ( check_expression , replacement_value ) 参数
check_expression将被检查是否为 NULL的表达式。check_expression 可以是任何类型的。replacement_value在 check_expression 为 NULL时将返回的表达式。replacement_value 必须与 check_expresssion 具有相同的类型。 返回类型
返回与 check_expression 相同的类型。注释
如果 check_expression 不为 NULL，那么返回该表达式的值；否则返回 replacement_value。示例
A. 将 ISNULL 与 AVG 一起使用
下面的示例查找所有书的平均价格，用值 $10.00 替换 titles 表的 price 列中的所有 NULL 条目。USE pubs
GO
SELECT AVG(ISNULL(price, $10.00))
FROM titles
GO下面是结果集：-------------------------- 
14.24                      (1 row(s) affected)B. 使用 ISNULL
下面的示例为 titles 表中的所有书选择书名、类型及价格。如果一个书名的价格是 NULL，那么在结果集中显示的价格为 0.00。USE pubs
GO
SELECT SUBSTRING(title, 1, 15) AS Title, type AS Type, 
   ISNULL(price, 0.00) AS Price
FROM titles
GO下面是结果集：Title           Type         Price          
--------------- ------------ -------------------------- 
The Busy Execut business     19.99                      
Cooking with Co business     11.95                      
You Can Combat  business     2.99                       
Straight Talk A business     19.99                      
Silicon Valley  mod_cook     19.99                      
The Gourmet Mic mod_cook     2.99                       
The Psychology  UNDECIDED    0.00                       
But Is It User  popular_comp 22.95                      
Secrets of Sili popular_comp 20.00                      
Net Etiquette   popular_comp 0.00                       
Computer Phobic psychology   21.59                      
Is Anger the En psychology   10.95                      
Life Without Fe psychology   7.00                       
Prolonged Data  psychology   19.99                      
Emotional Secur psychology   7.99                       
Onions, Leeks,  trad_cook    20.95                      
Fifty Years in  trad_cook    11.95                      
Sushi, Anyone?  trad_cook    14.99                      (18 row(s) affected)
请参见表达式IS [NOT] NULL系统函数WHERE©1988-2000 Microsoft Corporation。保留所有权利。