[原创] qtp连接TD中，添加的bug中属性ID为负数，请教！

[复制链接]

Weblogic

该用户从未签到

电梯直达

1^#

发表于 2010-9-13 18:20:09 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

如题，代码如下
Dim TDConnection,Pj,User,Psw
Pj = environment.Value("Project")
User = environment.Value("User")
Psw = environment.Value("Password")
Set TDConnection = CreateObject("TDApiOle.TDConnection")
TDConnection.InitConnection "http://server/tdbin"
TDConnection.ConnectProject Pj,User,Psw
Set BugFactory = TDConnection.BugFactory
Set Bug = BugFactory.AddItem (Nothing)
Bug.Status = "New"
Bug.Summary = "New defect"
Bug.field ("bg_DETECTION_DATE") = now
Bug.Field("BG_DESCRIPTION")= Description
Bug.DetectedBy = User
Bug.Post

调式界面中Bug中的属性如附件中所示，ID显示为负数，不知道是代码的问题还是和qtp本身设置或者操作系统有关系。

defect, server