[原创] TD工作流：当开发修改当前状态为修复时弹窗提示加入修复的原因

[复制链接]

allen2000

该用户从未签到

电梯直达

1^#

发表于 2011-3-9 14:50:01 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

本帖最后由 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 没经验哈！

修复, 工作流, 开发