大家来看看！！！！

wower1985

Sub Bug_FieldChange(FieldName)
  '   On Error Resume Next
      Set objBugFactory=TDConnection.BugFactory
      Set BugList = objBugFactory.NewList("")  
      For Each objBug In BugList
   if objBug.Field("BG_USER_01").Value ="暂缓"    then
          reopen_Count =zhanhuan_Count + 1
          msgbox  Bug.Field("BG_USER_01").Value
       end if
      next
    On Error GoTo 0
End Sub
这一步 Bug.Field("BG_USER_01").Value ="暂缓"，为什么报 找不到对象的错误？   或者告诉我怎么遍历 BugList  ，小弟感激不尽，

Jun_Li

objBug.Field("BG_USER_01").Value ="暂缓"        "BG_USER_01" ＝＝ "暂缓"  ？

archonwang

估计可能是中文的问题。楼主尝试把中文改成英文试试看

wower1985

回复 2# Jun_Li

问题是在这个地方，但是具体原因是因为 QC 的bug域的里面的每个字段名称和新建字段的名称不一致造成的，感谢！

wower1985

if objBug.STATUS="暂缓" and objBug.Field("BG_DETECTION_VERSION")="V_1.0.0" then  .....
这样写就对了，这是看老外写的代码才发现的问题