51Testing软件测试论坛

标题: TD工作流：当开发修改当前状态为修复时弹窗提示加入修复的原因 [打印本页]

作者: allen2000 时间: 2011-3-9 14:50
标题: TD工作流：当开发修改当前状态为修复时弹窗提示加入修复的原因
本帖最后由 allen2000 于 2011-3-9 16:05 编辑

  if (User.IsInGroup("Developer") and FieldName = "BG_STATUS") then
         if (Bug_Fields("BG_STATUS").Value = "Fixed" and Bug_Fields("BG_DEV_COMMENTS").IsModified) then
                  Msgbox("

感谢支持")
else
Msgbox("

请输入修复原因,否则无法修改状态为Fixed")
                     Bug_Fields("BG_STATUS").Value="Reopen"
            end if
         end if


另外问几个小白问题：

怎么加注释而不会删除以前的注释呢？如加黑字体，改完状态后在注释里加一句：某某修复了此缺陷（当作为选择”是“的证据，哈哈，偶不要看历史记录）

BUG_FIELD("注释").value=user.username+ " 修改了此缺陷"

刚接触VBS 没经验哈！

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)