wower1985 发表于 2010-9-17 17:46:55

大家来看看！！！！

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
          msgboxBug.Field("BG_USER_01").Value
       end if
      next
    On Error GoTo 0
End Sub
这一步 Bug.Field("BG_USER_01").Value ="暂缓"，为什么报 找不到对象的错误？   或者告诉我怎么遍历 BugList，小弟感激不尽，

Jun_Li 发表于 2010-9-19 08:54:53

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

archonwang 发表于 2010-9-28 14:33:38

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

wower1985 发表于 2011-2-11 11:12:25

回复 2# Jun_Li

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

wower1985 发表于 2011-2-11 11:43:41

if objBug.STATUS="暂缓" and objBug.Field("BG_DETECTION_VERSION")="V_1.0.0" then.....
这样写就对了，这是看老外写的代码才发现的问题
页: [1]
查看完整版本: 大家来看看！！！！