定制TD新建Bug的WorkFlow问题(已解决)

ggogw

Sub Defects_Bug_New
  WizardFieldCust_Add ' Added by wizard
  Defaltbugstatus = Bug_Fields
  Defaltbugstatus("BG_STATUS").Value = "open"'设置Bug提交默认状态为open
  '定制描述格式
  Defaltbugstatus("BG_DESCRIPTION").Value = "[预设条件]" & Chr(13) & Chr(10)_
  & Chr(13) & Chr(10) & "[过程描述]" & Chr(13) & Chr(10) & "1."& Chr(13)_
  & Chr(10) & "2." & Chr(13) & Chr(10) & "3." & Chr(13) & Chr(10)_
  & "[预期结果]"  & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "[实际结果]"
  '定制Asign To下拉选项为开发人员组的所有成员
  Defaltbugstatus("BG_RESPONSIBLE").Value=User.IsInGroup("开发人员")
  On Error Resume Next
  On Error GoTo 0
End Sub
前面设置Bug提交默认状态为open和定制描述格式都没问题，但就是定制Asign To下拉选项为开发人员组的所有成员不成功，下拉选项还是所有的User

[ 本帖最后由 ggogw 于 2008-4-7 08:51 编辑 ]

ggogw

此外我在customize project list 那里新建了一个开发人员list，并在list把开发人员的姓名都加上去了，把Defaltbugstatus("BG_RESPONSIBLE").Value=User.IsInGroup("开发人员")改成
Defaltbugstatus("BG_RESPONSIBLE").List=Lists("开发人员")
还是不行！！
不知道哪位指点一下，不胜感激！！

ggogw

终于搞定了~~！！
定制过程：
1、在customize project list 那里新建了一个开发人员list，并在list把开发人员的姓名都加上去。
2、在customize project  Entities里的Defect里的User Field添加一个Assign To 选择LookUp List，取值为开发人员list。
3、在WorkFlow 的Defects_Bug_New把所有的SetFieldApp "BG_RESPONSIBLE"的那一行改成SetFieldApp "BG_RESPONSIBLE", False, False, 0, 8，再在添加
SetFieldApp "BG_USER_01", True, True, 0, 20

elanzj

这样相当于另外加