51Testing软件测试论坛

标题: 大家来看看!!!! [打印本页]

作者: wower1985    时间: 2010-9-17 17:46
标题: 大家来看看!!!!
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    时间: 2010-9-19 08:54
objBug.Field("BG_USER_01").Value ="暂缓"        "BG_USER_01" == "暂缓"  ?
作者: archonwang    时间: 2010-9-28 14:33
估计可能是中文的问题。楼主尝试把中文改成英文试试看
作者: wower1985    时间: 2011-2-11 11:12
回复 2# Jun_Li

问题是在这个地方,但是具体原因是因为 QC 的bug域的里面的每个字段名称和新建字段的名称不一致造成的,感谢!
作者: wower1985    时间: 2011-2-11 11:43
if objBug.STATUS="暂缓" and objBug.Field("BG_DETECTION_VERSION")="V_1.0.0" then  .....
这样写就对了,这是看老外写的代码才发现的问题




欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2