![](https://img-blog.csdnimg.cn/20201014180756724.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VBA
betterfate
这个作者很懒,什么都没留下…
展开
-
在QC里,获取必填字段
'Get all defect mandatory fields Function GetBugfields() Dim fieldList, aField Set fieldList = tdQC.Fields("BUG") Dim dBugfieldIdx Set dBugfieldIdx = CreateObject("Scripting.Dic原创 2013-07-19 17:08:23 · 537 阅读 · 0 评论 -
连接QC/取消连接QC
'Connect to QC Function ConnectQC(sURL, sDomin, sProject, sUser, sPwd) ConnectQC = 0 Set tdQC = CreateObject("TDApiOle80.TDConnection.1") On Error Resume Next tdQC.InitConnectionE原创 2013-07-09 09:29:21 · 782 阅读 · 0 评论 -
在QC里,搜索DefectID
'Search DefectID 'Parameters: Detectedby, priority, severity, status Function SearchDefectID(sDetectedBy, sPriority, sSeverity, sStatus, sDetectedDate) Dim BugFact Dim BugFilter Dim原创 2013-07-29 16:00:46 · 694 阅读 · 0 评论 -
在QC里,通过UserID获取User的全名
'Get user full name by userID Function UserFullName(sUserID) Dim cust Dim cust_users Dim c_user Set cust = tdQC.Customization Set cust_users = cust.Users Set c_user = cust_users.User(sUserID)原创 2013-08-07 15:46:37 · 965 阅读 · 0 评论