Sub Bug_FieldChange(FieldName)
On Error Resume Next
if FieldName="BG_STATUS" then
if Fields("BG_STATUS").Value = "Open" and Fields("BG_PRIORITY").Value <> null then
Fields("BG_USER_02").Value = "zhangsan"
end if
end if
WizardListCust ' Added by wizard
On Error GoTo 0
End Sub作者: skyzhu 时间: 2010-9-2 10:29
你的代码作用大概会是
当 BG_PRIORITY 不是空 , 且BG_STATUS 更改为 open时, BG_USER_02自动赋值zhangsan,但这个赋值并不是提交,应该只是界面值变化
需要限制提交规则的话,应该写在 Defects_Bug_CanPost 中作者: cff2009 时间: 2010-9-2 10:58 标题: 回复 2# 的帖子 是吗,QC列表中修改一些字段,不是编辑页面,要写在Defects_Bug_CanPost吗?