2010-09-17 17:46:55
/ [HP ALM/Quality Center/TestDirector]
Sub Bug_FieldChange(FieldName)'On Error Resume NextSet objBugFactory=TDConnection.BugFactorySet BugList = objBugFactory.NewList("")For Each objBug In BugListif objBug.Field("BG_USER_01").Value ="暂缓"thenreopen_Count =zhanhuan_Count + 1msgboxBug.Field("BG_USER_01").Valueend ifnextOn Error GoTo 0End Sub这一步 Bug.Field("BG_USER_01").Value ="暂缓",为什么报 找不到对象的错误?或者告诉我怎么遍历 BugL.
查看(1352)
评论(4)