软件测试论坛 › [软件缺陷管理] › 在配置cq时遇到的一个问题

yangliu_82316 发表于 2007-10-11 10:52:10

在配置cq时遇到的一个问题

我在配置cq时，对项目和该项目的模块实现对应的关系
该怎么设置呢？
例如：项目ABC中有4个子模块，想在提交bug时，选择项目ABC时，此项目的4个子模块就会相应的带出来，而不是选择一个项目，把其他项目对应的模块都带出来

lounacn 发表于 2007-10-12 00:29:57

家里没装CQ，脚本内容大概如下，请根据实际需要修改：

    Dim session
      Dim projectname
      Dim modelname

      set session = getsession
      projectname = GetFieldValue("项目").GetValue()

      if projectname<> "" then
      strsql = "Select 模块 from defect where 项目 = " + projectname
      Set ResultSet = session.BuildSQLQuery(strsql )
      ResultSet.Execute

      modelname = ResultSet.MoveNext
      while (modelname = AD_SUCCESS)
             choices.AddItem(ResultSet.GetCloumnValue(1))
             modelname = ResultSet.MoveNext
      wend

yangliu_82316 发表于 2007-10-12 09:35:41

非常感谢lounacn

查看完整版本: 在配置cq时遇到的一个问题