标题: 大家来看看!!!! [打印本页] 作者: 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 .....
这样写就对了,这是看老外写的代码才发现的问题